cgi-bin/ 040755 000000 000000 00000000000 06210220212 012674 5 ustar 00root system 000000 000000 cgi-bin/archie 100755 000000 000000 00000000573 05501021512 014063 0 ustar 00root system 000000 000000 #!/bin/sh ARCHIE=/usr/local/bin/archie echo Content-type: text/html echo if [ -x $ARCHIE ]; then if [ $# = 0 ]; then cat << EOM
EOM else echo \
$ARCHIE "$*" fi else echo Cannot find archie on this system. fi cgi-bin/calendar 100755 000000 000000 00000000631 05501021513 014375 0 ustar 00root system 000000 000000 #!/bin/sh CAL=/bin/cal echo Content-type: text/html echo if [ -x $CAL ]; then if [ $# = 0 ]; then cat << EOMCalendar Calendar
To look up a calendar month, type the month followed by a space then the year. Example:
3 1993
would give the calendar for March 1993. EOM else echo \$CAL $* fi else echo Cannot find cal on this system. fi cgi-bin/date 100755 000000 000000 00000000227 05534704740 013562 0 ustar 00root system 000000 000000 #!/bin/sh DATE=/bin/date echo Content-type: text/plain echo if [ -x $DATE ]; then $DATE else echo Cannot find date command on this system. fiTo look up a calendar month, type the month followed by a space then the year. Example:
3 1993
would give the calendar for March 1993. EOM else echo \$CAL $* fi else echo Cannot find cal on this system. fi cgi-bin/finger 100755 000000 000000 00000000600 05534704742 014114 0 ustar 00root system 000000 000000 #!/bin/sh FINGER=/usr/ucb/finger echo Content-type: text/html echo if [ -x $FINGER ]; then if [ $# = 0 ]; then cat << EOMFinger Gateway Finger Gateway
This is a gateway to "finger". Type a user@host combination in your browser's search dialog. EOM else echo \
$FINGER "$*" fi else echo Cannot find finger on this system. fi cal on this system. fi cgi-bin/fortune 100755 000000 000000 00000000254 05534704744 014333 0 ustar 00root system 000000 000000 #!/bin/sh FORTUNE=/usr/games/fortune echo Content-type: text/plain echo if [ -x $FORTUNE ]; then $FORTUNE else echo Cannot find fortune command on this system. fi ewayThis is a gateway to "finger". Type a user@host combination in your browser's search dialog. EOM else echo \
$FINGER "$*" fi else echo Cannot find finger on this system. fi cal on this system. fi cgi-bin/nph-test-cgi 100755 000000 000000 00000001340 05501021525 015127 0 ustar 00root system 000000 000000 #!/bin/sh echo HTTP/1.0 200 OK echo Content-type: text/plain echo Server: $SERVER_SOFTWARE echo echo CGI/1.0 test script report: echo echo argc is $#. argv is "$*". echo echo SERVER_SOFTWARE = $SERVER_SOFTWARE echo SERVER_NAME = $SERVER_NAME echo GATEWAY_INTERFACE = $GATEWAY_INTERFACE echo SERVER_PROTOCOL = $SERVER_PROTOCOL echo SERVER_PORT = $SERVER_PORT echo REQUEST_METHOD = $REQUEST_METHOD echo HTTP_ACCEPT = "$HTTP_ACCEPT" echo PATH_INFO = $PATH_INFO echo PATH_TRANSLATED = $PATH_TRANSLATED echo SCRIPT_NAME = $SCRIPT_NAME echo QUERY_STRING = $QUERY_STRING echo REMOTE_HOST = $REMOTE_HOST echo REMOTE_ADDR = $REMOTE_ADDR echo REMOTE_USER = $REMOTE_USER echo CONTENT_TYPE = $CONTENT_TYPE echo CONTENT_LENGTH = $CONTENT_LENGTH cgi-bin/test-cgi 100755 000000 000000 00000001321 05534704746 014366 0 ustar 00root system 000000 000000 #!/bin/sh echo Content-type: text/plain echo echo CGI/1.0 test script report: echo echo argc is $#. argv is "$*". echo echo SERVER_SOFTWARE = $SERVER_SOFTWARE echo SERVER_NAME = $SERVER_NAME echo GATEWAY_INTERFACE = $GATEWAY_INTERFACE echo SERVER_PROTOCOL = $SERVER_PROTOCOL echo SERVER_PORT = $SERVER_PORT echo REQUEST_METHOD = $REQUEST_METHOD echo HTTP_ACCEPT = "$HTTP_ACCEPT" echo PATH_INFO = "$PATH_INFO" echo PATH_TRANSLATED = "$PATH_TRANSLATED" echo SCRIPT_NAME = "$SCRIPT_NAME" echo QUERY_STRING = "$QUERY_STRING" echo REMOTE_HOST = $REMOTE_HOST echo REMOTE_ADDR = $REMOTE_ADDR echo REMOTE_USER = $REMOTE_USER echo AUTH_TYPE = $AUTH_TYPE echo CONTENT_TYPE = $CONTENT_TYPE echo CONTENT_LENGTH = $CONTENT_LENGTH CONTENT_LENGTH cgi-bin/test-cgi.tcl 100755 000000 000000 00000002624 05520356520 015142 0 ustar 00root system 000000 000000 #!/usr/local/bin/tclsh # tcl-cgi.tcl # robert.bagwill@nist.gov, no warranty, no rights reserved # print out command line args, stdin, and environment variables # set envvars {SERVER_SOFTWARE SERVER_NAME GATEWAY_INTERFACE SERVER_PROTOCOL SERVER_PORT REQUEST_METHOD PATH_INFO PATH_TRANSLATED SCRIPT_NAME QUERY_STRING REMOTE_HOST REMOTE_ADDR REMOTE_USER AUTH_TYPE CONTENT_TYPE CONTENT_LENGTH HTTP_ACCEPT} puts "Content-type: text/HTML\n" puts "" puts "" puts "CGI/1.0 TCL script report: " puts "" puts "" puts "Command Line Arguments
" puts "argc is $argc. argv is $argv." puts "" puts "Message
" puts "" set message [split [read stdin $env(CONTENT_LENGTH)] &] foreach pair $message { set name [lindex [split $pair =] 0] set val [lindex [split $pair =] 1] regsub -all {\+} $val { } val # kludge to unescape chars regsub -all {\%0A} $val \n\t val regsub -all {\%2C} $val {,} val regsub -all {\%27} $val {'} val puts "$name\t= $val" } puts "" puts "Environment Variables
" puts "
";
print "You may use compound searches, such as: environment AND cgi
\n";
print "
\n"; print "
\n
"; # the following was &'safeopen open(WAISCAT, "$waisd/$src.cat") || die "$src.cat: $!"; while (\n"; } else { print ") { s#(Catalog for database:)\s+.*#$1 $src.src#; s#Headline:\s+(.*)#Headline: $1#; print; } close(WAISCAT); print "\n
EOM else echo \
$FINGER "$*" fi else echo Cannot find finger on this system. fi _PORT echo REQUEST_METHOD = $REQUEST_METHOD echo HTTP_ACCEPT = "$HTTP_ACCEPT" echo PATH_INFO = "$PATH_INFO" echo PATH_TRANSLATEDcgi-bin/jj 100750 000000 000000 00000116372 06160153300 013236 0 ustar 00root system 000000 000000 1 r Q H , @ H 1L .pad .text , co lu .pad !, .data " jY 6 @.bss .pad X 5 .loader v 6 .debug ( :v B 9 2 i 2 H yO , A h H =A | | ! 0; c H ɀA 0c H A 0c H A 0tc H A 0c H A 0c H yA 0c H iA 00c H YA 0pc H IA 0c H 9A 0 c H !A 0c H A 0D c H A 0xc H A 0Ā c H ـA 0c H ɀA 0