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>