From: timriker Date: Sat, 15 Mar 2008 17:53:32 +0000 (+0000) Subject: ws X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a1e66b2243083626975203eb23c9c24405d90054;hp=2496f759e3dc6277f266c130de883ce623ddf6fe;p=infobot.git ws git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@1638 c11ca15a-4712-0410-83d8-924469b57eb5 --- diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl index c4362dc..7907ec4 100644 --- a/src/IRC/Schedulers.pl +++ b/src/IRC/Schedulers.pl @@ -958,7 +958,7 @@ sub wingateCheck { ### TODO: ?? sub wingateWriteFile { if (@_) { - &ScheduleThis(3600, 'wingateWriteFile'); # once per hour + &ScheduleThis(3600, 'wingateWriteFile'); # once per hour return if ($_[0] eq '2'); # defer. } diff --git a/src/Modules/Debian.pl b/src/Modules/Debian.pl index 97c59fd..8ec592b 100644 --- a/src/Modules/Debian.pl +++ b/src/Modules/Debian.pl @@ -60,8 +60,6 @@ my %archiveurlpackages = ( "$protocol://debian.crosslink.net/debian-archive". "/dists/##DIST/non-free/binary-$arch/Packages.gz", ); - - my %urlcontents = ( @@ -1075,14 +1073,14 @@ sub fixDist { my %new; my ($key,$val); my %dist_urls; - + if (exists $archived_dists{$dist}){ if ($type eq 'contents'){ %dist_urls = %archiveurlcontents; } else { %dist_urls = %archiveurlpackages; - } + } } else { if ($type eq 'contents'){ @@ -1092,7 +1090,7 @@ sub fixDist { %dist_urls = %urlpackages; } } - + while (($key,$val) = each %dist_urls) { $key =~ s/##DIST/$dist/; $val =~ s/##DIST/$dist/; diff --git a/src/modules.pl b/src/modules.pl index 47389d8..3bb2bfa 100644 --- a/src/modules.pl +++ b/src/modules.pl @@ -157,7 +157,7 @@ sub reloadAllModules { my $retval = ''; &VERB("Module: reloading all.",2); - + # Reload version and save open(VERSION," || "(unknown version)";