#!/usr/bin/env perl
#
# $Id$

use strict;
use warnings;

my %file;
my %dir;

while (<>)
{
  chomp;

  s#^\./+##;

  if (m#^/#)
  {
    warn "$_ is an absolute pathname, skipped\n";
  }

  if ( -f $_ )
  {
    ++$file{$_};
  }
  elsif ( -d $_ )
  {
    ++$dir{$_} unless $_ eq '.';
  }
  else
  {
    warn "$_ is no regular file or directory, ignored\n";
  }
}

if (%dir)
{
  print "[Dirs]\r\n";
  map {
    s#/#\\#g;
    printf 'Name: "%s"' . "\r\n", $_;
  } sort keys %dir;
}

if (%file)
{
  print "[Files]\r\n";
  map {
    my ( $dir, $base ) = m#(.*)/([^/]+)$#;

    if ( !defined($base) )
    {
      printf 'Source: "%s"; Destdir: "{app}"' . "\r\n", $_;
    }
    else
    {
      $dir =~ s#/#\\#g;
      printf 'Source: "%s"; DestDir: "{app}\%s"' . "\r\n", $_, $dir;
    }
  } sort keys %file;
}