|
#!/usr/bin/perl -w
#
# Copyright 2000 by Michael Coyle
# Released under GPL.
#
# Call it with:
# [an error occurred while processing this directive]
#
# Get the file name from the browser...
$file_name = $ENV{'QUERY_STRING'};
# Open the file...
open (EP, $file_name);
# Print to the browser...
print "Content-Type: text/html \n\n";
# Load the file and keep spitting it out to the browser...
while () {
chomp;
print "$_ ";
}
# Close the file and go home...
close EP
#!/usr/bin/perl -w
#
# Copyright 2000 by Michael Coyle
# Released under GPL.
#
# Call it with:
# [an error occurred while processing this directive]
#
# Get the file name from the browser...
$file_name = $ENV{'QUERY_STRING'};
# Open the file...
open (EP, $file_name);
# Print to the browser...
print "Content-Type: text/html \n\n";
# Load the file and keep spitting it out to the browser...
while () {
chomp;
print "$_ ";
}
# Close the file and go home...
close EP
#!/usr/bin/perl -w
#
# Copyright 2000 by Michael Coyle
# Released under GPL.
#
# Call it with:
# [an error occurred while processing this directive]
#
# Get the file name from the browser...
$file_name = $ENV{'QUERY_STRING'};
# Open the file...
open (EP, $file_name);
# Print to the browser...
print "Content-Type: text/html \n\n";
# Load the file and keep spitting it out to the browser...
while () {
chomp;
print "$_ ";
}
# Close the file and go home...
close EP
#!/usr/bin/perl -w
#
# Copyright 2000 by Michael Coyle
# Released under GPL.
#
# Call it with:
# [an error occurred while processing this directive]
#
# Get the file name from the browser...
$file_name = $ENV{'QUERY_STRING'};
# Open the file...
open (EP, $file_name);
# Print to the browser...
print "Content-Type: text/html \n\n";
# Load the file and keep spitting it out to the browser...
while () {
chomp;
print "$_ ";
}
# Close the file and go home...
close EP
#!/usr/bin/perl -w
#
# Copyright 2000 by Michael Coyle
# Released under GPL.
#
# Call it with:
# [an error occurred while processing this directive]
#
# Get the file name from the browser...
$file_name = $ENV{'QUERY_STRING'};
# Open the file...
open (EP, $file_name);
# Print to the browser...
print "Content-Type: text/html \n\n";
# Load the file and keep spitting it out to the browser...
while () {
chomp;
print "$_ ";
}
# Close the file and go home...
close EP
#!/usr/bin/perl -w
#
# Copyright 2000 by Michael Coyle
# Released under GPL.
#
# Call it with:
# [an error occurred while processing this directive]
#
# Get the file name from the browser...
$file_name = $ENV{'QUERY_STRING'};
# Open the file...
open (EP, $file_name);
# Print to the browser...
print "Content-Type: text/html \n\n";
# Load the file and keep spitting it out to the browser...
while () {
chomp;
print "$_ ";
}
# Close the file and go home...
close EP
#!/usr/bin/perl -w
#
# Copyright 2000 by Michael Coyle
# Released under GPL.
#
# Call it with:
# [an error occurred while processing this directive]
#
# Get the file name from the browser...
$file_name = $ENV{'QUERY_STRING'};
# Open the file...
open (EP, $file_name);
# Print to the browser...
print "Content-Type: text/html \n\n";
# Load the file and keep spitting it out to the browser...
while () {
chomp;
print "$_ ";
}
# Close the file and go home...
close EP
#!/usr/bin/perl -w
#
# Copyright 2000 by Michael Coyle
# Released under GPL.
#
# Call it with:
# [an error occurred while processing this directive]
#
# Get the file name from the browser...
$file_name = $ENV{'QUERY_STRING'};
# Open the file...
open (EP, $file_name);
# Print to the browser...
print "Content-Type: text/html \n\n";
# Load the file and keep spitting it out to the browser...
while () {
chomp;
print "$_ ";
}
# Close the file and go home...
close EP
#!/usr/bin/perl -w
#
# Copyright 2000 by Michael Coyle
# Released under GPL.
#
# Call it with:
# [an error occurred while processing this directive]
#
# Get the file name from the browser...
$file_name = $ENV{'QUERY_STRING'};
# Open the file...
open (EP, $file_name);
# Print to the browser...
print "Content-Type: text/html \n\n";
# Load the file and keep spitting it out to the browser...
while () {
chomp;
print "$_ ";
}
# Close the file and go home...
close EP
#!/usr/bin/perl -w
#
# Copyright 2000 by Michael Coyle
# Released under GPL.
#
# Call it with:
# [an error occurred while processing this directive]
#
# Get the file name from the browser...
$file_name = $ENV{'QUERY_STRING'};
# Open the file...
open (EP, $file_name);
# Print to the browser...
print "Content-Type: text/html \n\n";
# Load the file and keep spitting it out to the browser...
while () {
chomp;
print "$_ ";
}
# Close the file and go home...
close EP
#!/usr/bin/perl -w
#
# Copyright 2000 by Michael Coyle
# Released under GPL.
#
# Call it with:
# [an error occurred while processing this directive]
#
# Get the file name from the browser...
$file_name = $ENV{'QUERY_STRING'};
# Open the file...
open (EP, $file_name);
# Print to the browser...
print "Content-Type: text/html \n\n";
# Load the file and keep spitting it out to the browser...
while () {
chomp;
print "$_ ";
}
# Close the file and go home...
close EP
#!/usr/bin/perl -w
#
# Copyright 2000 by Michael Coyle
# Released under GPL.
#
# Call it with:
# [an error occurred while processing this directive]
#
# Get the file name from the browser...
$file_name = $ENV{'QUERY_STRING'};
# Open the file...
open (EP, $file_name);
# Print to the browser...
print "Content-Type: text/html \n\n";
# Load the file and keep spitting it out to the browser...
while () {
chomp;
print "$_ ";
}
# Close the file and go home...
close EP
|
