From 6bf41292c1807437ec7472f7957227f6736109b0 Mon Sep 17 00:00:00 2001 From: Nick Mathewson Date: Fri, 8 Jun 2012 14:01:09 -0400 Subject: Why are we still carrying the old perl scripts around? --- perl-v2/PDOSCGI.pm | 69 ------------------------------------------------------ 1 file changed, 69 deletions(-) delete mode 100644 perl-v2/PDOSCGI.pm (limited to 'perl-v2/PDOSCGI.pm') diff --git a/perl-v2/PDOSCGI.pm b/perl-v2/PDOSCGI.pm deleted file mode 100644 index bb081bb..0000000 --- a/perl-v2/PDOSCGI.pm +++ /dev/null @@ -1,69 +0,0 @@ -package main; - -##### -# SERVER DATA - -$server_url = "http://www.pdos.lcs.mit.edu"; -$img_dir = "/img"; -$cgi_dir = "/cgi-bin"; -$main_dir = ""; # == top dir -$css_dir = ""; # == top dir -#$pdos_bib_dir = "/home/am0/httpd/htdocs/pdosbib"; -$pdos_bib_dir = "."; - - -##### -# ERROR_EXIT -# &error_exit($title, $message...) prints an HTML document summarizing the -# error and exits. - -sub error_exit ($@) { - my($title) = $_[0]; - my($message) = join('', @_[1..$#_]); - print <<"EOD;"; -Content-type: text/html - - -PDOS CGI Error - - -

$title

- -

$message - -

PDOS home page - - - -EOD; - exit 0; -} - -##### -# HTTP_DATE -# Given a time value (seconds since 00:00:00 UTC, Jan 1, 1970), formats an -# HTTP date and returns it. Useful for Expires:. - -@PDOSCGI::weekdays = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat'); -@PDOSCGI::months = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', - 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'); - -sub http_date ($) { - my($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = - gmtime($_[0]); - sprintf("%s, %02d %s %d %02d:%02d:%02d GMT", - $PDOSCGI::weekdays[$wday], $mday, $PDOSCGI::months[$mon], - $year, $hour, $min, $sec); -} - -##### -# URL_TRANSLATE - -sub url_translate ($) { - my($x) = $_[0]; - $x =~ s/\+/ /g; - $x =~ s/%(\w\w)/pack('C', hex($1))/eg; - $x; -} - -1; -- cgit v1.2.3-70-g09d2