Here is the complete patch. It looks like the author did a last minute string replace which changed all occurances of slackware to slakware. As you might imagine, such made it rather difficult to locate things on the server.
sed s/slakware/slackware/g < old > new
Fixed it easily enough.
I've emailed this to David Cantrell as well.
Have a happy Thanksgiving !
Philip
phdye@acm.org
------------------------------cut-here------------------------------
*** autoslack.original Tue Nov 25 21:29:38 2003
--- autoslack Tue Nov 25 21:55:08 2003
***************
*** 104,110 ****
};
$terminal = Term::Cap->Tgetent( {OSPEED=>$OSPEED} );
! $clear = $terminal->Tputs( 'cl', 1, STDOUT );
# get terminal dimensions
( $wchar, $hchar, $wpixels, $hpixels ) = GetTerminalSize();
--- 104,110 ----
};
$terminal = Term::Cap->Tgetent( {OSPEED=>$OSPEED} );
! $clear = $terminal->Tputs( 'cl', 1, *STDOUT );
# get terminal dimensions
( $wchar, $hchar, $wpixels, $hpixels ) = GetTerminalSize();
***************
*** 736,744 ****
my $nodis;
# make sure we have the new files
! if( ! -T "$conf{SPOOLDIR}/CHECKSUMS.md5-slakware" )
{
! print( "\nERROR: Missing /slakware CHECKSUMS.md5 file.\n" );
my $miss = 1;
}
if( ! -T "$conf{SPOOLDIR}/CHECKSUMS.md5-contrib" && $opt{contrib} == 1 )
--- 736,744 ----
my $nodis;
# make sure we have the new files
! if( ! -T "$conf{SPOOLDIR}/CHECKSUMS.md5-slackware" )
{
! print( "\nERROR: Missing /slackware CHECKSUMS.md5 file.\n" );
my $miss = 1;
}
if( ! -T "$conf{SPOOLDIR}/CHECKSUMS.md5-contrib" && $opt{contrib} == 1 )
***************
*** 814,820 ****
###
# readsums( $path )
! # Reads the CHECKSUMS.md5-{slakware,contrib} files from the specified path
# and dumps them into a hash. The hash is returned.
###
sub readsums
--- 814,820 ----
###
# readsums( $path )
! # Reads the CHECKSUMS.md5-{slackware,contrib} files from the specified path
# and dumps them into a hash. The hash is returned.
###
sub readsums
***************
*** 825,835 ****
# we only track contrib if the user wants to
if( $opt{contrib} == 1 )
{
! @sf = qw(slakware contrib);
}
else
{
! @sf = qw(slakware);
}
# read in the files into a hash
--- 825,835 ----
# we only track contrib if the user wants to
if( $opt{contrib} == 1 )
{
! @sf = qw(slackware contrib);
}
else
{
! @sf = qw(slackware);
}
# read in the files into a hash
***************
*** 1114,1120 ****
else
{
my $series = $path;
! $series =~ s/slakware\///g;
$path = "$path/disk$series";
}
--- 1114,1120 ----
else
{
my $series = $path;
! $series =~ s/slackware\///g;
$path = "$path/disk$series";
}
***************
*** 1122,1130 ****
push( @descval, $path );
# get the md5sum for the description file
! if( $path =~ /slakware\// )
{
! open( IN, "$conf{SPOOLDIR}/CHECKSUMS.md5-slakware" );
my $tmppath = substr( $path, 9 );
while( <IN> )
--- 1122,1130 ----
push( @descval, $path );
# get the md5sum for the description file
! if( $path =~ /slackware\// )
{
! open( IN, "$conf{SPOOLDIR}/CHECKSUMS.md5-slackware" );
my $tmppath = substr( $path, 9 );
while( <IN> )
***************
*** 1313,1321 ****
{
# we're looking a package from the distribution, get the series dir
my $tmpstr = $d_file;
! $tmpstr =~ s/slakware\///g;
$tmpstr = substr( $tmpstr, 0, index($tmpstr, '/') );
! $d_path = "/slakware/$tmpstr/";
# set the description file to use
$d_desc = "disk$tmpstr";
--- 1313,1321 ----
{
# we're looking a package from the distribution, get the series dir
my $tmpstr = $d_file;
! $tmpstr =~ s/slackware\///g;
$tmpstr = substr( $tmpstr, 0, index($tmpstr, '/') );
! $d_path = "/slackware/$tmpstr/";
# set the description file to use
$d_desc = "disk$tmpstr";
***************
*** 1572,1582 ****
# Don't track contrib unless the user tells us to
if( $opt{contrib} == 1 )
{
! @sf = qw(slakware contrib);
}
else
{
! @sf = qw(slakware);
}
# use the package basename
--- 1572,1582 ----
# Don't track contrib unless the user tells us to
if( $opt{contrib} == 1 )
{
! @sf = qw(slackware contrib);
}
else
{
! @sf = qw(slackware);
}
# use the package basename
***************
*** 1639,1649 ****
# don't track contrib unless we're told to
if( $opt{contrib} == 1 )
{
! @sf = qw(slakware contrib);
}
else
{
! @sf = qw(slakware);
}
# we just want to use the short name
--- 1639,1649 ----
# don't track contrib unless we're told to
if( $opt{contrib} == 1 )
{
! @sf = qw(slackware contrib);
}
else
{
! @sf = qw(slackware);
}
# we just want to use the short name
***************
*** 1860,1867 ****
if( $opt{nfs} == 1 )
{
print( "Copying the latest CHECKSUMS.md5 files from $conf{NFSSERVER}...\n" );
! copy( "$conf{MOUNTPOINT}/slakware/CHECKSUMS.md5",
! "$conf{SPOOLDIR}/CHECKSUMS.md5-slakware");
if( $opt{contrib} == 1 )
{
--- 1860,1867 ----
if( $opt{nfs} == 1 )
{
print( "Copying the latest CHECKSUMS.md5 files from $conf{NFSSERVER}...\n" );
! copy( "$conf{MOUNTPOINT}/slackware/CHECKSUMS.md5",
! "$conf{SPOOLDIR}/CHECKSUMS.md5-slackware");
if( $opt{contrib} == 1 )
{
***************
*** 1872,1880 ****
else
{
print( "Fetching the latest CHECKSUMS.md5 files from $conf{SERVER}...\n" );
! fetch( '/slakware', 'CHECKSUMS.md5' );
move( "$conf{SPOOLDIR}/CHECKSUMS.md5",
! "$conf{SPOOLDIR}/CHECKSUMS.md5-slakware" );
if( $opt{contrib} == 1 )
{
--- 1872,1880 ----
else
{
print( "Fetching the latest CHECKSUMS.md5 files from $conf{SERVER}...\n" );
! fetch( '/slackware', 'CHECKSUMS.md5' );
move( "$conf{SPOOLDIR}/CHECKSUMS.md5",
! "$conf{SPOOLDIR}/CHECKSUMS.md5-slackware" );
if( $opt{contrib} == 1 )
{
------------------------------cut-here------------------------------