#!/usr/bin/perl

use strict;
use warnings;
use File::Find;

my $basedir = "C:/Test";
open( my $resultfile, '>', 'C:/SomewhereElse/resultfile.dat' ) or die "resultfile.dat: $!";

# the next bit should only be written one time per xml output file:
print $resultfile <<EOH;
<?xml version="1.0" encoding="UTF-8"?>
<!-- ****************************************************************-->
<!-- *                                                              *-->
<!-- * PuTTY Configuration Manager save file - All right reserved.  *-->
<!-- *                                                              *-->
<!-- ****************************************************************-->
<!-- The following lines can be modified at your own risks.  -->
<configuration version="0.1.1.2" savepassword="True">
<root type="database" name="$basedir" expanded="True">
EOH

my @containers;
my $indent = '';
find( \&wanted, $basedir );

if ( @containers ) {
    for ( 0 .. $#containers ) {
        print "$indent</container>\n";
        chop $indent;
    }
}
print $resultfile "</root>\n</configuration>\n";

sub wanted {
    return if ( /^..?$/ );
    if ( -d ) {
        my ( $root, @levels ) = split m{/}, $File::Find::dir;
        if ( @levels > @containers ) {  # push one level deeper
            $indent .= " ";
            print $resultfile "$indent<container type=\"folder\" name=\"$levels[-1]\" expanded=\"True\">\n";
        }
        elsif ( @levels < @containers ) {  # pop out one level
            print $resultfile "$indent</container>\n";
            chop $indent;
        }
        elsif ( $levels[-1] ne $containers[-1] ) {  # same level, different path
            print $resultfile "$indent</container>\n";
            print $resultfile "$indent<container type=\"folder\" name=\"$levels[-1]\" expanded=\"True\">\n";
        }
        @containers = @levels;
    }
    elsif ( -f _ and -s _ ) {  # Note use of "_" (see 'perldoc -f -X')
        process_file();
    }
}

sub process_file {
    my $filename = $_;
    open my $fh, '<', $filename or die "$File::Find::name : $!\n";
    my @linecolumns;
    while (<$fh>) {
        chomp;
        my @linecolumns = split;
    }

    print $resultfile <<ETX;
$indent<connection type="PuTTY" name="$filename">
$indent <connection_info>
$indent  <name>$filename</name>
$indent  <protocol>SSH</protocol>
$indent  <host>$linecolumns[5]</host>
$indent  <port>$linecolumns[4]</port>
$indent  <session>Default Settings</session>
$indent  <commandline>$linecolumns[9]</commandline>
$indent  <description />                  
$indent </connection_info>
$indent <login>
$indent  <password />
$indent  <prompt />
$indent </login>
$indent <timeout>
$indent  <connectiontimeout>1000</connectiontimeout>
$indent  <logintimeout>750</logintimeout>
$indent  <passwordtimeout>750</passwordtimeout>
$indent  <commandtimeout>750</commandtimeout>
$indent </timeout>
$indent <command>
$indent  <command1 />
$indent  <command2 />
$indent  <command3 />
$indent  <command4 />
$indent  <command5 />
$indent </command>                                      
$indent <options>
$indent  <loginmacro>False</loginmacro>
$indent  <postcommands>False</postcommands>
$indent  <endlinechar>10</endlinechar>
$indent </options>
$indent</connection>
ETX
}