p4cat

#!perl
# -*- Perl -*-
# Copyright 1999 Greg Spencer (greg_spencer@acm.org)
 
######################################################################
#
# Argument parsing
#
######################################################################
 
use p4Config;
use p4Util;
use CGI;
use LWP::MediaTypes;
use HTTP::Date;
 
sub GetModDate {
    my $file = shift;
    my %filehash = &p4Util::GetFileInfo($file);
    my $modtime = $filehash{$file}{headTime};
    my $date = &time2str($modtime);
 
    return $date;
}
 
$query = new CGI;
$input_file=$query->path_info();
 
# it's been given as a script argument via the url...
if (!$input_file) {
	@param_keys = $query->keywords;
	$input_file=$param_keys[0] if !$input_file;
}
 
$input_file =~ s,^//depot,,; # make sure it isn't already there.
$input_file = "//depot".$input_file; # so we don't have to give the depot...
 
$input_file =~ s|/$||; # strip a trailing slash...
($file_name = $input_file) =~ s/\[#\@].*$//; # strip off the version number, if any
 
$type = guess_media_type($file_name);
 
$type = "text/plain" if ($type eq "application/octet-stream");
 
if (!open(INPUT,"p4 print \"$input_file\" 2>&1 |")) {
    print "Status: 200 OK\n";
    print "Content-type: text/html\n\n";
    print "<HTML><TITLE>Unable to open file...</TITLE><BODY bgcolor=white>\n";
    print "<H2>$input_file</H2><HR>\n";
    print "<BR><CENTER><B><FONT color=red size=+2>\n";
    print "Unable to run Perforce on server (this shouldn't happen!)\n";
    print "</FONT></B></CENTER><BR>\n";
    print "<HR></BODY></HEAD>\n";
    exit(0);
}
 
my $info = <INPUT>; # strip off the perforce info...
if ($info =~ m/(no such file|protected namespace)/) {
    print "Status: 200 OK\n";
    print "Content-type: text/html\n\n";
    print "<HTML><TITLE>Unable to open file...</TITLE><BODY bgcolor=white>\n";
    print "<H2>$input_file</H2><HR>\n";
    print "<BR><CENTER><B><FONT color=red size=+2>\n";
    
    if ($version) {
	print "There is no such revision number...";
    }
    elsif ($changenum) {
	print "There is no such change number...";
    }
    else {
	print "File or Path Doesn't Exist.\n";
    }
    print "</FONT></B></CENTER><BR>\n";
    print "<HR></BODY></HEAD>\n";
    
    exit(0);
}
 
$modDate = &GetModDate($input_file);
print "Status: 200 OK\n";
print "Content-type: $type\n";
if ($modDate ne "") {
    print "Last-modified: $modDate\n";
}
print "\n";
 
# keep from loading these files into memory 
# (as they might be BIG binary files)
while (<INPUT>) { print; }
#	Change	User	Description	Committed
#1	80	Greg Spencer	This adds the file-centric perforce browser to the guest depot. I rewrote it (again) th...	26 years ago