[Kick-developers] CVS: kick mkall.pl,NONE,1.1

[Michael R. <mr...@us...>]

Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv16500

Added Files:
	mkall.pl 
Log Message:
no message

--- NEW FILE: mkall.pl ---
#!/usr/bin/perl

# =============================================================================
# RVS Status    : $State: Exp $
# Author        : $Author: mrau $
# Last Modified : $Date: 2002/09/27 23:32:06 $
# Revision      : $Revision: 1.1 $
# =============================================================================

use Getopt::Long;

# ==============================================================================

my $EXECUTE    = 'perl ksh %s/%s';
my $LOG        = 'all.log';
my $SEPERATOR  = '';

# ==============================================================================

my (%parms);
GetOptions (
    \%parms,
    "-older:s",
    "-newer:s",
    "-help",
    "-noexecute",
);

# help

if ($parms { help })
{
    system( 'pod2text', $0 );
    exit;
}

# ==============================================================================

# source directory

my $SCRIPT = $ENV { 'skripte' } || ".";
$SCRIPT =~ s/\\/\//gis;
$SCRIPT =~ s/[\/]$//;

# construct regular expression to strip out directory

my $regEx = $SCRIPT;
$regEx =~ s/(\W)/\\$1/gis;
$regEx .= '\/';

# glob all files

my @files;
while (my $file = <$SCRIPT/*.*>)
{
    if ($file =~ /[\/\\]\d\d\d\d\..+$/)
    {
        push @files, $file;
    }
}

# delete logfile

if (defined( $LOG ))
{
    unlink ( $LOG );
}

# execution

foreach my $file (sort @files)
{
    $file =~ s/$regEx//oxe;
    my $older = defined( $parms { older } )
                    ? $file lt $parms { older }
                    : 1;
    my $newer = defined( $parms { newer } )
                    ? $file gt $parms { newer }
                    : 1;
    if ($older && $newer)
    {
        print "$file\n";
        my $com = sprintf "$EXECUTE >> $LOG$SEPERATOR\n", $SCRIPT, $file;
        $com   .= sprintf "$ECHO %s$SEPERATOR\n", $file;
        if (!$parms { noexecute })
        {
            print "\a";
            system( $com );
        }
    }
}

# ==============================================================================

__END__

=head1 NAME

mkall.pl - Ausführung mehrerer Buchungsskripte

=head1 VERSION

    $Revision: 1.1 $

=head1 SYNOPSIS

    mkall.pl -older [FILENAME] -newer [FILENAME] -noexecute -h -hilfe

=head1 DESCRIPTION

Dieses Skript führt eine oder mehrere KICK Buchungsskripte aus. Die optionalen
Parameter -newer und -older spezifizieren dabei den Dateinamen der
Buchungsskripte.

=head1 REQUIRES

PERL.

=head1 EXAMPLE

    perl mkall.pl -newer 2001.ende -older 2002.ende

=head1 RELEASE NOTES

    $Log: mkall.pl,v $
    Revision 1.1  2002/09/27 23:32:06  mrau
    no message

    Revision 1.1  2002/09/26 08:26:40  mrau
    no message


=head1 AUTOR

Michael Rau (m-...@gm...).

Bug Reports, Feedback und Kommentare sind herzlich willkommen.

=head1 COPYRIGHT

Copyright (c) 2001 Michael Rau.

Dieses Programm ist freie Software. Sie können es unter den Bedingungen der
GNU General Public License, wie von der Free Software Foundation
herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der
Lizenz oder (wenn Sie es wünschen) jeder späteren Version.

Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen
von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite
Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK.
Details finden Sie in der GNU General Public License.

Sie sollten eine Kopie der GNU General Public License zusammen mit diesem
Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

=cut

=cut