fg_signs_convert.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:37 2010 from fg_signs_convert.pl 2008/12/11 597.

#!/perl -w
# NAME: 
# AIM:
use strict;
use warnings;
require 'logfile.pl' or die "Unable to load logfile.pl ...\n";
# log file stuff
my ($LF);
my $pgmname = $0;
if ($pgmname =~ /\w{1}:\\.*/) {
    my @tmpsp = split(/\\/,$pgmname);
    $pgmname = $tmpsp[-1];
}
my $outfile = "temp.$pgmname.txt";
open_log($outfile);
prt( "$0 ... Hello, World ...\n" );
close_log($outfile,1);
exit(0);
sub convert($@) {
   my $file = shift;
   system (
      "convert",
      "-size", "1024x128",
      "xc:none",
      "-gravity", "center",
      @_,
      "-compress", "RLE",
      "SGI:$file",
   );
}
# eof

index -|- top

checked by tidy  Valid HTML 4.01 Transitional