Annotation of CVSROOT/commitinfo.pl, revision 1.1

1.1     ! albertel    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>