[Gforge-commits] gforge/cgi-bin cvsweb,NONE,1.1

[cbayle]

Update of /cvsroot/gforge/gforge/cgi-bin
In directory db.perdue.net:/tmp/cvs-serv22511/cgi-bin

Added Files:
        cvsweb 
Log Message:
Moved cvsweb from utils to cgi-bin


--- NEW FILE: cvsweb ---
#!/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);
}