#!/usr/bin/perl -w
our $rcsid = '$Id: on_vacation 822 2004-08-25 04:09:26Z adamm $';
use strict;

use Email::AutoReply;
use Getopt::Declare;

our $usage_spec = <<'UsageSpec';
    [strict]
    Normal operation is to accept an email to STDIN and bounce
    a reply back to the sender.

    --dbdump	
        List names in the "already sent to" database.
    --debug	
        Turn on debugging
UsageSpec

my $args = new Getopt::Declare ($usage_spec) or die;

my $auto = Email::AutoReply->new;

if ($args->{'--dbdump'}) {
  print "$_\n" for $auto->dbdump;
  exit(0);
}

$auto->debug(1) if ($args->{'--debug'});
$auto->reply();