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

[cbayle]

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

Added Files:
        cvsweb 
Log Message:
New modified 3.0.1 version for cvsweb.php wrapper


--- NEW FILE: cvsweb ---
#!/usr/bin/perl -T
#
# 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 Nordstrom     <address@hidden>
#             Ken Coar             <address@hidden>
#             Dick Balaska         <address@hidden>
#             Akinori MUSHA        <address@hidden>
#             Jens-Uwe Mager       <address@hidden>
#             Ville Skyttä         <address@hidden>
#             Vassilii Khachaturov <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
#
[...4498 lines suppressed...]
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);
}

# Local variables:
# indent-tabs-mode: nil
# cperl-indent-level: 2
# End: