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

Updated 2000 to 2001, removed some defined, and added STDERR to a lot of prints

Browse Source 
so that debconf can be happy and users can see output.
This commit is contained in:
freesource 2001-10-12 18:57:56 +00:00
parent d59c384d16
commit d734ed5acc
28 changed files with 46 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
SWIM/Ag.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/Apt.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/Compare.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/Conf.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

12
SWIM/DB.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@ -220,7 +220,7 @@ sub db {
# Going to be adding some stuff to nsearchindex.deb and ndirindex.deb
# so better remove any compressed versions if they exist
if (defined @GONE || defined @NEW) {
if (@GONE || @NEW) {
if (($commands->{"dbpath"} && $commands->{"root"}) ||
($commands->{"dbpath"} && !$commands->{"root"}) ||
(!$commands->{"dbpath"} && !$commands->{"root"})) {
@ -487,7 +487,7 @@ sub db {
###########
# SECTION #
###########
if (defined $section) {
if ($section) {
chomp $section;
}
else {
@ -516,7 +516,7 @@ sub db {
############
# PRIORITY #
############
if (defined $priority) {
if ($priority) {
$priory = substr($priority,10);
}
else {
@ -548,7 +548,7 @@ sub db {
######################
# SECTION & PRIORITY #
######################
if (defined $section) {
if ($section) {
$col1 = $section;
}
else {
@ -593,7 +593,7 @@ sub db {
#my $cool = $installed_size . $maintainer;
#print PRETTY $cool;
$col1 = $installed_size;
if (defined $source) {
if ($source) {
$col2 = $source;
}
else {

28
SWIM/DB_Init.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@ -37,7 +37,7 @@ sub database {
my ($commands) = @_;
my %commands = %$commands;
print scalar(localtime), "\n";
print STDERR scalar(localtime), "\n";
#my whatever that is
my @dpackage; # passes name_version to md()
@ -98,7 +98,7 @@ sub database {
$the_status = "$parent$base/status";
}
else {
print "swim: crucial file(s)/directories are missing in $parent\n";
print STDERR "swim: crucial file(s)/directories are missing in $parent\n";
exit;
}
@ -108,7 +108,7 @@ sub database {
if ($commands->{"initdb"}) {
if (-e "$main::home$parent$library/packages.deb" &&
-e "$main::home$parent$library/fileindex.deb") {
print "swim: use --rebuilddb\n";
print STDERR "swim: use --rebuilddb\n";
exit;
}
else {
@ -155,7 +155,7 @@ sub database {
if -e "$main::home$parent$library/dirindex.deb.gz";
}
else {
print "swim: use --initdb to create databases\n";
print STDERR "swim: use --initdb to create databases\n";
exit;
}
}
@ -164,7 +164,7 @@ sub database {
if ($commands->{"initdb"}) {
if (-e "$main::home$parent$base/packages.deb" &&
-e "$main::home$parent$base/fileindex.deb") {
print "swim: use --rebuilddb\n";
print STDERR "swim: use --rebuilddb\n";
exit;
}
else {
@ -211,7 +211,7 @@ sub database {
if -e "$main::home$parent$library/dirindex.deb.gz";
}
else {
print "swim: use --initdb to create databases\n";
print STDERR "swim: use --initdb to create databases\n";
exit;
}
}
@ -225,7 +225,7 @@ sub database {
# Seems like both approaches are about the same speed.
#use File::Copy;
print "Making backups of *.list\n";
print STDERR "Making backups of *.list\n";
if (!-d "$main::home$parent$base/info/backup") {
system "mkdir $main::home$parent$base/info/backup";
}
@ -240,7 +240,7 @@ sub database {
}
closedir(COPY);
print "Description Database is being made\n";
print STDERR "Description Database is being made\n";
$| = 1; my $x = 0;
open(PRETTY, ">$format_deb");
@ -251,8 +251,8 @@ sub database {
@package = split(/: /,$_);
chomp $package[1];
$x = 1 if $x == 6;
print "|\r" if $x == 1 || $x == 4; print "/\r" if $x == 2;
print "-\r" if $x == 3 || $x == 6; print "\\\r" if $x == 5;
print STDERR "|\r" if $x == 1 || $x == 4; print STDERR "/\r" if $x == 2;
print STDERR "-\r" if $x == 3 || $x == 6; print STDERR "\\\r" if $x == 5;
$x++;
}
# Some other pertinent fields
@ -538,7 +538,7 @@ sub database {
# database().
# Put the groups into the groupindex.deb database.
print "Group Database is being made\n";
print STDERR "Group Database is being made\n";
if (($commands->{"dbpath"} && $commands->{"root"}) ||
($commands->{"dbpath"} && !$commands->{"root"}) ||
(!$commands->{"dbpath"} && !$commands->{"root"})) {
@ -555,7 +555,7 @@ sub database {
undef %group;
# Create the important status database.
print "Status Database is being made\n";
print STDERR "Status Database is being made\n";
if (($commands->{"dbpath"} && $commands->{"root"}) ||
($commands->{"dbpath"} && !$commands->{"root"}) ||
(!$commands->{"dbpath"} && !$commands->{"root"})) {
@ -633,7 +633,7 @@ sub md {
system $fastswim, "--transfer", $argument2, $tmp;
}
else {
print "Gathering the file(s)/dir(s)\n";
print STDERR "Gathering the file(s)/dir(s)\n";
system $imswim, $argument2, $tmp;
system $slowswim, $tmp, $sort;
}

2
SWIM/DB_Library.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/Deb.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/Deps.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/Dir.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/F.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/File.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/Findex.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/Format.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/Global.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/Groups.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/Indexer.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/Info.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/Library.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/MD.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/NDB.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/NDB_File.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/NDB_Init.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/Pn_print.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/Qftp.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/Ramdisk.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/Safex.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by

2
SWIM/Search.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by