#!C:/Programme/Perl/bin/perl.exe -w
#
-# Dev-Editor 3.0.1
+# Dev-Editor 3.1
#
# Dev-Editor's main program
#
use Output;
use Tool;
-$VERSION = '3.0.1';
+$VERSION = '3.1';
# Path to configuration file
# Change if necessary!
$tpl->add_loop_data('SUCCESS',{FILE => encode_html($file_success),
FILE_PATH => encode_html(clean_path($virtual.'/'.$file_success))});
}
-
+
$tpl->parse_loop('SUCCESS');
}
}
if(scalar(@failed) > 0)
{
$tpl->parse_if_block('failed',1);
-
+
foreach my $file_failed(@failed)
{
$tpl->add_loop_data('FAILED',{FILE => encode_html($file_failed),
FILE_PATH => encode_html(clean_path($virtual.'/'.$file_failed))});
}
-
+
$tpl->parse_loop('FAILED');
}
else
$tpl->add_loop_data('FILES',{FILE => encode_html($file),
FILE_PATH => encode_html(clean_path($virtual.'/'.$file))});
}
-
+
$tpl->parse_loop('FILES');
$tpl->fillin('COUNT',scalar(@new_files));