• DirvishRunallV1p2

back to AnnotatedVersionV1p2

This is the main perl program called from cron; you may want to wrap it in another shell script that does more things.

The install.sh script appends loadconfig.pl (LoadConfigV1p2) to the end of this to build the runtime perl script "dirvish-expire".

#       $Id: DirvishRunallV1p2,v 1.6 2004/12/20 17:02:33 apache Exp apache $  $Name:  $

$VERSION = ('$Name:  $' =~ /Dirvish/i)
         ? ('$Name:  $' =~ m/^.*:\s+dirvish-(.*)\s*\$$/i)[0]
        : '1.1.2 patch' . ('$Id: DirvishRunallV1p2,v 1.6 2004/12/20 17:02:33 apache Exp apache $'
                =~ m/^.*,v(.*:\d\d)\s.*$/)[0];
$VERSION =~ s/_/./g;


#########################################################################
#                                                                       #
#       Copyright 2002 and $Date: 2004/12/20 17:02:33 $
#                         Pegasystems Technologies and J.W. Schultz     #
#                                                                       #
#       Licensed under the Open Software License version 2.0            #
#                                                                       #
#       This program is free software; you can redistribute it          #
#       and/or modify it under the terms of the Open Software           #
#       License, version 2.0 by Lauwrence E. Rosen.                     #
#                                                                       #
#       This program is distributed in the hope that it will be         #
#       useful, but WITHOUT ANY WARRANTY; without even the implied      #
#       warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR         #
#       PURPOSE.  See the Open Software License for details.            #
#                                                                       #
#########################################################################

use Time::ParseDate;
use POSIX qw(strftime);
use Getopt::Long;

sub loadconfig;
sub seppuku;

Usage (used by Getopt if you screw up the command line arguments ).

sub usage
{
        my $message = shift(@_);

        length($message) and print STDERR $message, "\n\n";

        $! and exit(255); # because getopt seems to send us here for death

        print STDERR <<EOUSAGE;
USAGE
        dirvish-runall OPTIONS
OPTIONS
        --config configfile
        --no-run
        --quiet
        --version
EOUSAGE

        exit 255;
}

$Options = {
        version         => sub {
                        print STDERR "dirvish version $VERSION\n";
                        exit(0);
                },
        help            => \&usage,
};

The activity starts here with command line processing.

GetOptions($Options, qw(
                config=s
                quiet no-run|dry-run
                version help
        )) or usage;

if ($$Options{config})
{
        $Config = loadconfig(undef, $$Options{config})
}
elsif ($CONFDIR =~ /dirvish$/ && -f "$CONFDIR.conf")
{
        $Config = loadconfig(undef, "$CONFDIR.conf");
}
elsif (-f "$CONFDIR/master.conf")
{
        $Config = loadconfig(undef, "$CONFDIR/master.conf");
}
elsif (-f "$CONFDIR/dirvish.conf")
{
        seppuku 250, <<EOERR;
ERROR: no master configuration file.
        An old $CONFDIR/dirvish.conf file found.
        Please read the dirvish release notes.
EOERR
}
else
{
        seppuku 251, "ERROR: no global configuration file";
}
$$Config{Dirvish} ||= 'dirvish';

$$Options{'no-run'} and $$Options{quiet} = 0;

$errors = 0;

Here is the main processing loop, calling the real workhorse, the "dirvish" perl script.

for $sched (@{$$Config{Runall}})
{
        ($vault, $itime) = split(/\s+/, $sched);
        $cmd = "$$Config{Dirvish} --vault $vault";
        $itime and $cmd .= qq[ --image-time "$itime"];
        $$Options{quiet}
                or printf "%s %s\n", strftime('%H:%M:%S', localtime), $cmd;
        $$Options{'no-run'} and next;
        $status = system($cmd);
        $status < 0 || $status / 256 and ++$errors;

}
$$Options{quiet}
        or printf "%s %s\n", strftime('%H:%M:%S', localtime), 'done';


exit ($errors < 200 ? $errors : 199);

The loadconfig.pl script is appended here.

HowThisPageWasBuilt