Subject: Vacation script.

From: Jeff Uphoff <[email-masked]>
Date: Wed, 4 Oct 1995 16:45:31 -0400

Here's a small script that I wrote to browse the .vacation.db file and
show the addresses that have been replied to, as well as the time/date
of the most recent 'vacation' reply to each address:

#!/usr/local/bin/perl5
#
# $Id$

require 5;                      # This script requires Perl v5.
use GDBM_File;                  # Format that 'vacation' uses.

# Associate the file with local hash.
tie (%vacdb, GDBM_File, "$ENV{'HOME'}/.vacation.db", 0, undef);

# Dump the contents (with converted time-stamps).
map {
    printf ("%s: %s\n", $_, scalar (localtime (unpack ('i', $vacdb{$_}))))
    } sort keys %vacdb;

Output looks like:

[email-masked]: Wed Oct  4 16:28:57 1995
[email-masked]: Wed Oct  4 14:25:50 1995
[email-masked]: Wed Oct  4 14:57:30 1995
[email-masked]: Wed Oct  4 15:46:21 1995

(I just thought you might want to toss this little thing in with the
next release of 'vacation' as a "contrib" item...)

--Up.

-- 
Jeff Uphoff - systems/network admin.  |  [email-masked]
National Radio Astronomy Observatory  |  [email-masked]
Charlottesville, VA, USA              |  http://linux.nrao.edu/~juphoff/