head	1.3;
access;
symbols
	OPENPKG_E1_MP_HEAD:1.3
	OPENPKG_E1_MP:1.3;
locks; strict;
comment	@# @;


1.3
date	2002.03.11.13.46.39;	author rse;	state dead;
branches;
next	1.2;

1.2
date	2001.11.30.14.26.25;	author rse;	state Exp;
branches;
next	1.1;

1.1
date	2001.09.20.11.11.47;	author rse;	state Exp;
branches;
next	;


desc
@@


1.3
log
@remove obsolete stuff
@
text
@#!/usr/bin/perl
##
##  00DEV/editspec -- Edit .spec files in OpenPKG CVS repository
##  Copyright (c) 2000-2001 Cable & Wireless Deutschland GmbH
##  Copyright (c) 2000-2001 Ralf S. Engelschall <rse@@engelschall.com>
##
##  Permission to use, copy, modify, and distribute this software for
##  any purpose with or without fee is hereby granted, provided that
##  the above copyright notice and this permission notice appear in all
##  copies.
##
##  THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
##  WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
##  MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
##  IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
##  CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
##  SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
##  LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
##  USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
##  ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
##  OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
##  OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
##  SUCH DAMAGE.
##

if ($#ARGV == -1) {
    print STDERR "Usage: $0 <cmd> [<cmd> ...] [-- <pkg> [<pkg> ...]]\n";
    exit(1);
}

my @@cmd = ();
my @@pkg = ();
my $iscmd = 1;
foreach my $arg (@@ARGV) {
    if ($iscmd and $arg eq '--') {
        $iscmd = 0;
        next;
    }
    if ($iscmd) {
        push(@@cmd, $arg);
    }
    else {
        push(@@pkg, $arg);
    }
}
if ($#pkg == -1) {
    foreach my $pkg (glob("*")) {
        next if (not -d $pkg or not -f "$pkg/$pkg.spec");
        push(@@pkg, $pkg);
    }
}

my $all = 0;
foreach my $p (@@pkg) {
    print "Package $p:\n";
    next if (not -d $p or not -f "$p/$p.spec");

    open(SPEC, "<$p/$p.spec") || die;
    my $spec = '';
    $spec .= $_ while (<SPEC>);
    close(SPEC);

    $_ = $spec;
    foreach $cmd (@@cmd) {
        eval $cmd;
    }

    if ($spec ne $_) {
        $spec = $_;
        open(SPEC, ">$p/$p.spec.new") || die;
        print SPEC $spec;
        close(SPEC);
        system("diff -u1 $p/$p.spec $p/$p.spec.new");
        my $ok;
        if ($all) {
            $ok = "yes";
        }
        else {
            print "Edit [a(ll)/Y(es)/n(o)]: ";
            $ok = <STDIN>;
        }
        if ($ok =~ m/^(?:A|a)(?:ll)?\n?$/s) {
            $ok = "yes";
            $all = 1;
        }
        if ($ok =~ m/^(?:Y|y)(?:es)?\n?$/s or $ok eq '') {
            # $spec =~ s|(\nRelease:\s+)(\d+)|$1 . sprintf("%d", $2+1)|se;
            print "Ok: Edited $p/$p.spec\n";
            open(SPEC, ">$p/$p.spec") || die;
            print SPEC $spec;
            close(SPEC);
        }
        unlink("$p/$p.spec.new");
    }
}

@


1.2
log
@adjust distribution and release
@
text
@@


1.1
log
@Add a useful script for editing one or more .spec files in the CVS
repository by performing operations on $_ (containing the whole spec
file) and automatically increasing the "Release:" number.
@
text
@d87 1
a87 1
            $spec =~ s|(\nRelease:\s+)(\d+)|$1 . sprintf("%d", $2+1)|se;
@