#!/usr/bin/perl

$head="viewsource-head.html";
$foot="viewsource-foot.html";

print "Content-type: text/html\n\n";

$file="$ENV{QUERY_STRING}\n";
$file =~ s/\.\./__/g;			# get rid of any '..' sequences
$file =~ s/http:\/\/www.intuitive.com//;
$file =~ s/http:\/\/new.intuitive.com//;

if ( $file =~ /^\//) { 
  &catfile($head);
  print "<center>";
  print "<h2>Error: Can't view the source of fully qualified filenames</h2>\n";
  &catfile($foot);
  exit 0;
}

if ( ! ( $file =~ /^[A-Za-z0-9\.-\/]+$/ ) ) { 
  &catfile($head);
  print "<center>";
  print "<h2>Error: Illegal character; can't go beyond simple filenames.</h2>\n";
  &catfile($foot);
  exit 0;
}

if ( $file eq "" ) {
  $file="index.shtml";
}
elsif ( $file eq "FAQ/" ) {
  $file="FAQ/index.html";
}

&catfile($head);

print "<CENTER><font size=5 color='#3333CC'><B>$file</B></FONT>\n";
print "</CENTER><P><HR NOSHADE><P>\n";
print "<PRE>\n";

&showsource($file);

print "</PRE>\n";
print "<P><HR NOSHADE>\n";
print "<CENTER><a href=\"$file\"><img src=/coolweb/Graphics/back.gif\n";
print "ALT=Back BORDER=0></a></CENTER>\n";

&catfile($foot);

exit 0;

sub
catfile
{
   my $file=$_[0];

    if (open INF, $file) {
        while (<INF>) {
            print $_;
        }
        close INF;
    }
}

sub
showsource
{
   $file=$_[0];

    if (open INF, $file) {
        print "<font face=arial size=-1 color='#000033'>\n";
        while (<INF>) {
            $_ =~ s/</\&lt;/g;
            $_ =~ s/>/\&gt;/g;
            print $_;
        }
        print "</font>\n";           
        close INF;
    }
    else {
       print "<BR><I>Sorry, couldn't open file $file</I><P>\n";
    }
}