Add header to generated xlatcharset include file

This commit is contained in:
Stas Degteff 2005-10-02 01:21:59 +00:00
parent 2c1aa4ac10
commit 863d5da6bf

View File

@ -21,7 +21,17 @@ my $dir=$ARGV[0], $out=$ARGV[1];
my @files=<$dir/*.chs>;
if( $#files < 0 ){
die "$dir/ don't contains files like *.chs, exit\n";
}
open OUT, ">$out" || die "Can't open/create file '$out': $!\n";
print OUT <<HEAD;
// Character translation definitions
// (include file for Golded+ config)
//
// Generated by 'xlatcfg.pl' script written by Stas Degteff 2:5080/102@fidonet
//
HEAD
print "Found " . ($#files+1) . " *.CHS files in $dir\n";