version 1.23, 1998/08/15 09:59:11 |
version 1.26, 1998/11/10 19:26:16 |
|
|
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
# SUCH DAMAGE. |
# SUCH DAMAGE. |
# |
# |
# $fId: cvsweb.cgi,v 1.22 1998/08/13 10:35:26 wosch Exp $ |
# $fId: cvsweb.cgi,v 1.25 1998/08/24 16:41:42 wosch Exp $ |
# |
# |
|
|
|
|
Line 62 require 'cgi-style.pl'; |
|
Line 62 require 'cgi-style.pl'; |
|
%CVSROOT = ( |
%CVSROOT = ( |
'freebsd', '/home/ncvs', |
'freebsd', '/home/ncvs', |
'learn', '/c/learncvs', |
'learn', '/c/learncvs', |
'mozilla', '/a/mozilla-cvs', |
|
); |
); |
|
|
%CVSROOTdescr = ( |
%CVSROOTdescr = ( |
'freebsd', 'FreeBSD', |
'freebsd', 'FreeBSD', |
'learn', 'Learn', |
'learn', 'Learn', |
'mozilla', 'Mozilla FreeBSD', |
|
); |
); |
|
|
|
%mirrors = ( |
|
'Germany', 'http://www.de.freebsd.org/cgi/cvsweb.cgi', |
|
'Japan', 'http://www.jp.freebsd.org/cgi/cvsweb.cgi', |
|
); |
|
|
$cvstreedefault = 'freebsd'; |
$cvstreedefault = 'freebsd'; |
$cvstree = $cvstreedefault; |
$cvstree = $cvstreedefault; |
$cvsroot = $CVSROOT{"$cvstree"} || "/home/ncvs"; |
$cvsroot = $CVSROOT{"$cvstree"} || "/home/ncvs"; |
Line 156 if (!-d $cvsroot) { |
|
Line 159 if (!-d $cvsroot) { |
|
($CVSROOTdescr{$foo[$i]} ? |
($CVSROOTdescr{$foo[$i]} ? |
$CVSROOTdescr{$foo[$i]} : $foo[$i]) . qq{</a>} . |
$CVSROOTdescr{$foo[$i]} : $foo[$i]) . qq{</a>} . |
($i == $#foo ? ".\n" : ",\n"); |
($i == $#foo ? ".\n" : ",\n"); |
|
} |
|
} |
|
} |
|
|
|
|
|
{ |
|
local(@mirrors) = sort keys %mirrors;; |
|
if ($#mirrors >= 0) { |
|
$intro .= "<p>\nThis script is mirrored in:\n"; |
|
local($m); |
|
for($m = 0; $m <= $#mirrors; $m++) { |
|
$intro .= qq(<a href="$mirrors{$mirrors[$m]}">$mirrors[$m]</a>); |
|
$intro .= ',' if $m != $#mirrors; |
|
$intro .= "\n"; |
} |
} |
} |
} |
} |
} |