bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2026-09-16 08:31:39 -04:00
Code Issues Projects Releases Wiki Activity

Making debconf happy.

Browse Source
This commit is contained in:
freesource
2001-10-12 18:51:01 +00:00
parent 35c8a84f05
commit d59c384d16
4 changed files with 75 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/fastswim
+10 -10
View File
@@ -1,5 +1,5 @@
#!/usr/bin/perl -w
#use diagnostics;
require 5.004;
use strict;
@@ -7,7 +7,7 @@ use strict;
#
# Package administration and research tool for Debian
#
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
#
#
#
@@ -56,7 +56,7 @@ my $home = $ENV{'HOME'} . "/";
# This way has been de-pre-c-whatever-ated because it lacks version
# rememberance, and is just kept for testing purposes
if ($#ARGV == -1) {
print "swim: fastswim requires option/arguments, see program for instructions\n";
print STDERR "swim: fastswim requires option/arguments, see program for instructions\n";
exit;
chdir("$ARGV[1]");
#consider readdir
@@ -91,7 +91,7 @@ my $home = $ENV{'HOME'} . "/";
# Better check for packages which don't have /. in their *.list...
# which is rare, but does happen. Sometimes *.list(s) don't have
# all the parent directories, but we won't worry about that.
print " Making the massive hash\n";
print STDERR " Making the massive hash\n";
$| = 1; my $x = 1;
foreach $thingy (sort @ppackage) {
open(LIST, "$ARGV[1]/$thingy") or die "Humm, strange";
@@ -102,8 +102,8 @@ my $home = $ENV{'HOME'} . "/";
close(LIST);
foreach (@count) {
$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++;
chomp $_;
# does /. exist? it should be first.
@@ -147,14 +147,14 @@ my $home = $ENV{'HOME'} . "/";
# We will create one file with the 1..and another with >1..
# than split..reverse..and order.accordingly..this makes
# things much faster. Remember clean-up routines for kill.
print " Starting ... writing to $ARGV[2]!\n";
print STDERR " Starting ... writing to $ARGV[2]!\n";
# Create the database
open(BIG, ">$ARGV[2]/big.debian") or die;
open(LONG, ">$ARGV[2]/long.debian") or die;
foreach $thingy (sort keys %HL ) {
$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 "/\r" if $x == 2;
print STDERR "-\r" if $x == 3 || $x == 6; print "\\\r" if $x == 5;
$x++;
# Humm, will split or grep be faster?
#my $tingy = "@{ $HL{$thingy} }" . " " . @{ $HL{$thingy} };
@@ -170,6 +170,6 @@ my $home = $ENV{'HOME'} . "/";
close(BIG);
close(LONG);
#undef %HL;
print " Cleaning up\n";
print STDERR " Cleaning up\n";
__END__