Browse Source

Non-existent files where causing this to fail, and the db, there was

also a die, now there is a check to avoid this.
master
freesource 20 years ago
parent
commit
f8f6630c0f
  1. 12
      bin/fastswim

12
bin/fastswim

@ -52,6 +52,7 @@ my %version;
#$#name = 2000; #$#name = 2000;
#$#ppackage = 2000; #$#ppackage = 2000;
# This way has been de-pre-c-whatever-ated because it lacks version # This way has been de-pre-c-whatever-ated because it lacks version
# rememberance, and is just kept for testing purposes # rememberance, and is just kept for testing purposes
if ($#ARGV == -1) { if ($#ARGV == -1) {
@ -78,6 +79,7 @@ my %version;
} }
# Make a nice md. I decided on a Hash of Lists, giving all # Make a nice md. I decided on a Hash of Lists, giving all
# files/dirs unique name, and then a list of packages which # files/dirs unique name, and then a list of packages which
# correspond..because this should be faster than a Hash of Hash # correspond..because this should be faster than a Hash of Hash
@ -93,12 +95,15 @@ my %version;
print STDERR " Making the massive hash\n"; print STDERR " Making the massive hash\n";
$| = 1; my $x = 1; $| = 1; my $x = 1;
foreach $thingy (sort @ppackage) { foreach $thingy (sort @ppackage) {
open(LIST, "$ARGV[1]/$thingy") or die "Humm, strange";
if (-e "$ARGV[1]/$thingy") {
open(LIST, "$ARGV[1]/$thingy");
# Because of the version..there are sometimes dots # Because of the version..there are sometimes dots
$thingy =~ m,(.*)\.list,; $thingy =~ m,(.*)\.list,;
my $count = 0; my $count = 0;
my @count = <LIST>; my @count = <LIST>;
close(LIST); close(LIST);
foreach (@count) { foreach (@count) {
$x = 1 if $x == 6; $x = 1 if $x == 6;
print STDERR "|\r" if $x == 1 || $x == 4; print STDERR "/\r" if $x == 2; print STDERR "|\r" if $x == 1 || $x == 4; print STDERR "/\r" if $x == 2;
@ -142,6 +147,7 @@ my %version;
} }
} }
} }
}
undef @ppackage; undef @ppackage;
# We will create one file with the 1..and another with >1.. # We will create one file with the 1..and another with >1..
@ -149,8 +155,8 @@ my %version;
# things much faster. Remember clean-up routines for kill. # things much faster. Remember clean-up routines for kill.
print STDERR " Starting ... writing to $ARGV[2]!\n"; print STDERR " Starting ... writing to $ARGV[2]!\n";
# Create the database # Create the database
open(BIG, ">$ARGV[2]/big.debian") or die; open(BIG, ">$ARGV[2]/big.debian") or die "Couldn't find big.debian\n";
open(LONG, ">$ARGV[2]/long.debian") or die; open(LONG, ">$ARGV[2]/long.debian") or die "Couldn't find long.debian\n";
foreach $thingy (sort keys %HL ) { foreach $thingy (sort keys %HL ) {
$x = 1 if $x == 6; $x = 1 if $x == 6;
print STDERR "|\r" if $x == 1 || $x == 4; print STDERR "/\r" if $x == 2; print STDERR "|\r" if $x == 1 || $x == 4; print STDERR "/\r" if $x == 2;

Loading…
Cancel
Save