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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # Going to be adding some stuff to nsearchindex.deb and ndirindex.deb
# so better remove any compressed versions if they exist # so better remove any compressed versions if they exist
if (defined @GONE || defined @NEW) { if (@GONE || @NEW) {
if (($commands->{"dbpath"} && $commands->{"root"}) || if (($commands->{"dbpath"} && $commands->{"root"}) ||
($commands->{"dbpath"} && !$commands->{"root"}) || ($commands->{"dbpath"} && !$commands->{"root"}) ||
(!$commands->{"dbpath"} && !$commands->{"root"})) { (!$commands->{"dbpath"} && !$commands->{"root"})) {
@ -487,7 +487,7 @@ sub db {
########### ###########
# SECTION # # SECTION #
########### ###########
if (defined $section) { if ($section) {
chomp $section; chomp $section;
} }
else { else {
@ -516,7 +516,7 @@ sub db {
############ ############
# PRIORITY # # PRIORITY #
############ ############
if (defined $priority) { if ($priority) {
$priory = substr($priority,10); $priory = substr($priority,10);
} }
else { else {
@ -548,7 +548,7 @@ sub db {
###################### ######################
# SECTION & PRIORITY # # SECTION & PRIORITY #
###################### ######################
if (defined $section) { if ($section) {
$col1 = $section; $col1 = $section;
} }
else { else {
@ -593,7 +593,7 @@ sub db {
#my $cool = $installed_size . $maintainer; #my $cool = $installed_size . $maintainer;
#print PRETTY $cool; #print PRETTY $cool;
$col1 = $installed_size; $col1 = $installed_size;
if (defined $source) { if ($source) {
$col2 = $source; $col2 = $source;
} }
else { else {

28
SWIM/DB_Init.pm
View File

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

2
SWIM/DB_Library.pm
View File

@ -1,5 +1,5 @@
# Package administration and research tool for Debian # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # 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 # it under the terms of the GNU General Public License as published by