#!/usr/bin/perl

# print-source.cgi
#
# Josh Sled <jsled@xcf.berkeley.edu>
# $Id: print-source.cgi 1.2 Sat, 30 Jan 1999 16:28:12 -0800 jsled $
#
# Prints the source of the given CGI filename.

# Get CL argument
($arg) = @ARGV;

# Non-Standard Content-Type header
print "Content-Type: text/plain\n\n";

open (SRC, $arg);
print <SRC>;
close SRC;
exit(0);