[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Gforge-commits] gforge/cgi-bin cvsweb.cgi, NONE, 1.1 cvsweb, 1.1, NONE
From: |
cbayle |
Subject: |
[Gforge-commits] gforge/cgi-bin cvsweb.cgi, NONE, 1.1 cvsweb, 1.1, NONE |
Date: |
Thu, 04 Mar 2004 15:05:07 -0600 |
Update of /cvsroot/gforge/gforge/cgi-bin
In directory db.perdue.net:/tmp/cvs-serv24764/cgi-bin
Added Files:
cvsweb.cgi
Removed Files:
cvsweb
Log Message:
Renaming cgi-bin/cvsweb in cgi-bin/cvsweb.cgi
--- NEW FILE: cvsweb.cgi ---
#!/usr/bin/perl -s
#
# cvsweb - a CGI interface to CVS trees.
#
# Written in their spare time by
# Bill Fenner <address@hidden> (original work)
# extended by Henner Zeller <address@hidden>,
# Henrik Nordström <address@hidden>
# Ken Coar <address@hidden>
# Dick Balaska <address@hidden>
# Jens-Uwe Mager <address@hidden>
#
# Based on:
# * Bill Fenners cvsweb.cgi revision 1.28 available from:
# http://www.FreeBSD.org/cgi/cvsweb.cgi/www/en/cgi/cvsweb.cgi
#
# Copyright (c) 1996-1998 Bill Fenner
# (c) 1998-1999 Henner Zeller
# (c) 1999 Henrik Nordström
[...2939 lines suppressed...]
my ($compressed, $status) = $o->{dh}->deflate(substr($buf, 0, $len));
print {$o->{handle}} $compressed if defined($compressed);
$o->{crc} = Compress::Zlib::crc32(substr($buf, 0, $len), $o->{crc});
$o->{len} += $len;
return $len;
}
sub CLOSE {
my ($o) = @_;
return if !defined( $o->{dh});
my ($buf) = $o->{dh}->flush();
$buf .= pack("V V", $o->{crc}, $o->{len});
print {$o->{handle}} $buf;
undef $o->{dh};
}
sub DESTROY {
my ($o) = @_;
CLOSE($o);
}
--- cvsweb DELETED ---
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Gforge-commits] gforge/cgi-bin cvsweb.cgi, NONE, 1.1 cvsweb, 1.1, NONE,
cbayle <=