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

    1: #!/usr/bin/perl
    2: # insert a call to this file in your commitinfo:
    3: # <module-name> /path/to/commitinfo.pl
    4: # 
    5: # Copyright (c) 1999, 2000 Sascha Schumann <sascha@schumann.cx>
    6: use strict;
    7: 
    8: my $last_file = "/var/cvs/lastdir";
    9: 
   10: my $id = getpgrp();
   11: 
   12: my $directory = $ARGV[0];
   13: 
   14: open(FC, ">$last_file.$id") || die "cannot open last file";
   15: print FC "$directory\n";
   16: close(FC);
   17: 
   18: # throw away STDIN so parent doesn't get SIGPIPE
   19: while(<>) { }

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