#!/usr/bin/perl use strict; my ($count, $title, $outname, $bgcolor, $fgcolor,$line, $pgname); my ($link_name, $link_ref); die "Need Data File!\n" unless $ARGV[0]; open(FDIN,"<$ARGV[0]") or die "Cannot open file ".$ARGV[0]."\n"; chomp($title = ); print "title => $title\n"; chomp($pgname = ); print "Page name => $pgname\n"; chomp($outname = ); print "output file => $outname\n"; chomp($bgcolor = ); print "bgcolor => $bgcolor\n"; chomp($fgcolor = ); print "fgcolor => $fgcolor\n"; chomp($count = ); print "number of links => $count\n"; open(FDOUT,">$outname") or die "Could not create file ".$outname."\n"; print FDOUT <$title

$pgname

EOD $count++; for(;$count > 0; $count--) { chomp($line = ); if($line =~ /__END__/) { print "All Finished, Cleaning up."; last; } ($link_name,$link_ref) = split(/,/,$line); print "Link Name: ".$link_name."\n"; print "Link Reference: ".$link_ref."\n"; print FDOUT "$link_name\n"; } close(FDIN); print FDOUT << "OFF";

OFF close(FDOUT);