#!/usr/bin/perl -w # rsdnl.pl use strict; use warnings; ######################################### ###### PROGRAM DESCRIPTION ###### # This script pulls information from text # files and posts it on the web. ######################################### ## Declare Variables ## my $Source_File; my $Source_Title; my @Contents; my $content; ## Read Post Input and Set Source ## $Source_File = $ENV { 'QUERY_STRING' }; $Source_File = "Not Defined" unless $Source_File; $Source_Title = $Source_File; $Source_Title =~ s/^.*\///; ## Display Web Page ## print "Content-type: text/html\n\n"; print <<"EOF"; SOCOM Networks EOF ## Include Banner my $header_file = './index/_header01.txt'; open ( HEADER, $header_file ) || die "Cannot open $header_file: $!\n"; while (
) { print; } close (HEADER); print <<"EOF";


$Source_Title  
EOF if ( -e $Source_File ) { open ( SOURCE, "$Source_File" ) || die "Cannot open $Source_File: $!\n";; @Contents = ; close ( SOURCE ); print "
\n";
  foreach $content ( @Contents ) {
    print "$content
";
  } #foreach $content ( @Contents )
  print "
\n"; } else { print "

   The file specified does not exist!


\n"; } #if ( -e $Source_File ) print <<"EOF";
EOF exit 0;