From b8f1c6607684876e2d7a3389e4006ebcdca4607e Mon Sep 17 00:00:00 2001 From: "Ralf S. Engelschall" Date: Mon, 11 Mar 2002 13:46:39 +0000 Subject: [PATCH] remove obsolete stuff --- 00DEV/00TODO | 2 - 00DEV/editspec | 96 ----------------------------------------------- 00DEV/src2make.sh | 9 ----- 00DEV/status2html | 44 ---------------------- 4 files changed, 151 deletions(-) delete mode 100644 00DEV/00TODO delete mode 100755 00DEV/editspec delete mode 100755 00DEV/src2make.sh delete mode 100755 00DEV/status2html diff --git a/00DEV/00TODO b/00DEV/00TODO deleted file mode 100644 index bf351216da..0000000000 --- a/00DEV/00TODO +++ /dev/null @@ -1,2 +0,0 @@ - - nothing to do. Just a test diff --git a/00DEV/editspec b/00DEV/editspec deleted file mode 100755 index c6b76b00ce..0000000000 --- a/00DEV/editspec +++ /dev/null @@ -1,96 +0,0 @@ -#!/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 -## -## 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 [ ...] [-- [ ...]]\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 (); - 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 = ; - } - 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"); - } -} - diff --git a/00DEV/src2make.sh b/00DEV/src2make.sh deleted file mode 100755 index e779c0752b..0000000000 --- a/00DEV/src2make.sh +++ /dev/null @@ -1,9 +0,0 @@ -#!/bin/sh -./src2make \ - --prefix=/cw \ - --srcdir=$HOME/work/openpkg/PKG/SRC \ - --dstdir=$HOME/work/openpkg/PKG/BIN \ - --tmpdir=/tmp/openpkg.$USER \ - --outdir=. \ - --verbose - diff --git a/00DEV/status2html b/00DEV/status2html deleted file mode 100755 index 0d36d119fa..0000000000 --- a/00DEV/status2html +++ /dev/null @@ -1,44 +0,0 @@ -#!/usr/bin/perl -# -# Convert the Status text file to HTML -# -# Usage: status2html.pl < 00STATUS > 00STATUS.html -# -my $bgcolor = "ffffff"; - -print ("\n"); -LOOP:while(<>) { -@array = ($text0, $text1, $text2, $text3, $text4) = /^(\w+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+/; - - - $array[0] =~ s|^\s+(.*?)|{$array[0]=$1}|es; # Remove whitespaces at the beginning - next LOOP if $array[0] eq ""; - next LOOP if $array[0] =~ /^=/; - $array[0] =~ s|(.*?)\s+$|{$array[0]=$1}|es; # Remove whitespaces at the end - - - printf ("\n", $bgcolor); - - -foreach (@array) { - print (""); -} - - -if ($bgcolor eq "f0f0f0") { $bgcolor = "ffffff"; } -else { $bgcolor = "f0f0f0"; } - -} - -print ("
"); - ($dummy, $_) = ($_ =~ /^(\w+):(\S+)/) if ($_ =~ /^(\w+):(\S+)/); # Remove 1th part to ":" - - if ($_ eq "no") { - print (""); - } elsif ($_ eq "yes") { - print (""); - } - print ("$_"); - print ("
\n"); - -