bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2025-04-04 08:13:24 -04:00
Code Issues Projects Releases Wiki Activity

Fixed most bugs, one related to purging still needs correction.

Browse Source
This commit is contained in:
freesource 2005-01-24 15:54:33 +00:00
parent eea770be37
commit 2956005281
2 changed files with 49 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
SWIM/DB.pm
View File

@ -107,12 +107,16 @@ sub db {
elsif (/^Status:/) {
chomp;
$status = substr($_,8);
# a test
#if ($status eq "purge ok not-installed") {
# if (defined $db{$package[1]}) {
# print "$db{$package[1]}\n";
# }
#}
# a test and now a solution
if ($status eq "purge ok not-installed") {
##########
# PURGED #
##########
if (defined $db{$package[1]}) {
#push(@gone,"$db{$package[1]}");
print "$db{$package[1]}\n";
}
}
}
# hold ok not-installed - may want to change this just to
# non-installed.
@ -221,6 +225,7 @@ sub db {
untie %ib;
undef %ib;
# Going to be adding some stuff to nsearchindex.deb and ndirindex.deb
# so better remove any compressed versions if they exist
if (@GONE || @NEW) {
@ -329,8 +334,8 @@ sub db {
# files for *.list are in ./info/backup/*.list.bk. We will also have to
# deal with those rare cases that forget /. (smail 2.0v). We should remove
# this file as well as the packagename-conf.md5sums file below.
my $file = "$parent$base/info/backup/$_.list.bk";
my $md5sum_file = "$parent$base/info/$_-conf.md5sums";
my $file = "$main::home$parent$base/info/backup/$_.list.bk";
my $md5sum_file = "$main::home$parent$base/info/$_-conf.md5sums";
open(LIST,"$file");
while (<LIST>) {
chomp;
@ -797,21 +802,23 @@ sub db {
# made, might as well use this. There is a possibility this can be
# used instead of fastswim for initial fileindex.deb.
my $package_name;
if (!-d "$parent$base/info/backup") {
mkdir("$parent$base/info/backup",0666);
if (!-d "$main::home$parent$base/info/backup") {
mkdir("$main::home$parent$base/info/backup",0666);
}
print STDERR "\n" if $#NEW != -1; $x = 1;
foreach $package_name (@NEW) {
open(FILENAME,"$parent$base/info/$package_name.list");
open(CP,">$parent$base/info/backup/$package_name.list.bk");
open(FILENAME,"$main::home$parent$base/info/$package_name.list");
open(CP,">$main::home$parent$base/info/backup/$package_name.list.bk");
if ( -e "$main::home$parent$base/info/$package_name.list" ) {
while (<FILENAME>) {
print CP $_;
}
}
close(FILENAME);
close(CP);
my $file = "$parent$base/info/backup/$package_name.list.bk";
my $file = "$main::home$parent$base/info/backup/$package_name.list.bk";
print STDERR "#$x"; print STDERR " N|C $package_name.list \r";
$x++;
open(LIST,"$file");

12
pkg/dpkg/changelog
View File

@ -1,9 +1,19 @@
dswim (0.4.3-1) unstable; urgency=low
* Stricter checking in Perl 5.8 caused the db not to be built if
fastswim noticed non-existent files because this is considered a
fatal error. Removed the die function and now check for non-
existent files in fastswim, imswim also produced some related error
output that was fixed.
-- Jonathan Rosenbaum <freesource@freesoftwarepc.com> Wed, 5 Jan 2005 22:48:34 -0500
dswim (0.4.2-1) unstable; urgency=low
* Fixes error output caused by repetitive opts found by the recent
Getopt::Long. Rebuild db if you've updated to the newest DB_File.
-- Jonathan Rosenbaum <root@funhouse.domain.com> Wed, 6 Nov 2002 08:16:49 -0500
-- Jonathan Rosenbaum <freesource@users.sourceforge.net> Wed, 6 Nov 2002 08:16:49 -0500
dswim (0.4.1-1) unstable; urgency=low