File:  [LON-CAPA] / CVSROOT / commitinfo.pl
Revision 1.1: download - view: text, annotated - select for diffs
Wed Feb 6 18:14:04 2002 UTC (20 years, 3 months ago) by albertel
Branches: MAIN
CVS tags: HEAD
- adding file

#!/usr/bin/perl
# insert a call to this file in your commitinfo:
# <module-name> /path/to/commitinfo.pl
# 
# Copyright (c) 1999, 2000 Sascha Schumann <sascha@schumann.cx>
use strict;

my $last_file = "/var/cvs/lastdir";

my $id = getpgrp();

my $directory = $ARGV[0];

open(FC, ">$last_file.$id") || die "cannot open last file";
print FC "$directory\n";
close(FC);

# throw away STDIN so parent doesn't get SIGPIPE
while(<>) { }

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>