get the source work now again
This commit is contained in:
parent
06f12b62b6
commit
5fe7b2fbcf
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=8671
1 changed files with 6 additions and 3 deletions
|
|
@ -33,7 +33,7 @@
|
|||
# BSDI Id: bsdi-man,v 1.2 1995/01/11 02:30:01 polk Exp
|
||||
# Dual CGI/Plexus mode and new interface by sanders@bsdi.com 9/22/1995
|
||||
#
|
||||
# $Id: man.cgi,v 1.23 2001-01-04 19:44:13 wosch Exp $
|
||||
# $Id: man.cgi,v 1.24 2001-01-11 19:56:37 wosch Exp $
|
||||
|
||||
#use Data::Dumper;
|
||||
#use Carp;
|
||||
|
|
@ -347,7 +347,10 @@ sub debug {
|
|||
}
|
||||
|
||||
sub get_the_sources {
|
||||
open(R, $0) || &mydie("open $0: $!\n");
|
||||
local($file) = '/usr/local/www/bsddoc/bin/man.cgi';
|
||||
$file = $0 if ! -f $file;
|
||||
|
||||
open(R, $file) || &mydie("open $file: $!\n");
|
||||
print "Content-type: text/plain\n\n";
|
||||
while(<R>) { print }
|
||||
close R;
|
||||
|
|
@ -759,7 +762,7 @@ Please direct questions about this server to
|
|||
URL: <A HREF="$BASE" target=_parent>$www{'home'}$BASE</a><br>
|
||||
ETX
|
||||
|
||||
print q{$Date: 2001-01-04 19:44:13 $ $Revision: 1.23 $};
|
||||
print q{$Date: 2001-01-11 19:56:37 $ $Revision: 1.24 $};
|
||||
print "<br>\n";
|
||||
print "</BODY>\n</HTML>\n";
|
||||
0;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue