#!/usr/bin/perl

# print-source.cgi
#
# Josh Sled <jsled@xcf.berkeley.edu>
# $Id: print-source.cgi 1.1 Sun, 08 Mar 1998 18:29:03 -0800 jsled $
# $ProjectHeader: helpPages 0.13 Fri, 20 Mar 1998 21:52:06 -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);