| verzia 1.26, 2003/05/28 23:55:52 |
verzia 1.27, 2004/10/06 15:32:55 |
|
|
| #!/usr/bin/perl -wT |
#!/usr/bin/perl -w |
| |
|
| # |
# |
| # cvsweb - a CGI interface to CVS trees. |
# cvsweb - a CGI interface to CVS trees. |
|
|
| # $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.84 2001/10/07 20:50:10 knu Exp $ |
# $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.84 2001/10/07 20:50:10 knu Exp $ |
| # |
# |
| # DONT'T delete lines between '$''Idaemons' and '$''Platon' -- patches from FreeBSD failed then |
# DONT'T delete lines between '$''Idaemons' and '$''Platon' -- patches from FreeBSD failed then |
| # $Platon: scripts/cgi/cvsweb/cvsweb.cgi,v 1.25 2003/04/25 04:29:44 rajo Exp $ |
# $Platon: scripts/cgi/cvsweb/cvsweb.cgi,v 1.26 2003/05/28 23:55:52 nepto Exp $ |
| # |
# |
| ### |
### |
| |
|
|
|
| <meta name="generator" content="FreeBSD-CVSweb $VERSION"> |
<meta name="generator" content="FreeBSD-CVSweb $VERSION"> |
| <meta http-equiv="Content-Script-Type" content="text/javascript"> |
<meta http-equiv="Content-Script-Type" content="text/javascript"> |
| <meta http-equiv="Content-Style-Type" content="text/css"> |
<meta http-equiv="Content-Style-Type" content="text/css"> |
| |
<!-- running on cvsweb.platon.sk --> |
| EOM |
EOM |
| |
|
| # Check if the zlib C library interface is installed, and if yes, |
# Check if the zlib C library interface is installed, and if yes, |
| Riadok 273 $cvstreedefault = $logo = $defaulttitle |
|
| Riadok 274 $cvstreedefault = $logo = $defaulttitle |
|
| ##### End of configuration variables ##### |
##### End of configuration variables ##### |
| |
|
| $verbose = $v; |
$verbose = $v; |
| $checkoutMagic = "~checkout~"; |
$checkoutMagic = "___checkout___"; |
| $pathinfo = defined($ENV{PATH_INFO}) ? $ENV{PATH_INFO} : ''; |
$pathinfo = defined($ENV{PATH_INFO}) ? $ENV{PATH_INFO} : ''; |
| |
$pathinfo =~ s/\xff//g; # dummy Jyxobot/1 and PEAR HTTP_Request class ( http://pear.php.net/ ) |
| |
warn "pathinfo = '$pathinfo'"; |
| $where = $pathinfo; |
$where = $pathinfo; |
| $doCheckout = ($where =~ m|^/$checkoutMagic/|); |
$doCheckout = ($where =~ m|^/$checkoutMagic/|); |
| $where =~ s|^/$checkoutMagic/|/|; |
$where =~ s|^/$checkoutMagic/|/|; |