### TODO: ??
sub wingateWriteFile {
if (@_) {
- &ScheduleThis(3600, 'wingateWriteFile'); # once per hour
+ &ScheduleThis(3600, 'wingateWriteFile'); # once per hour
return if ($_[0] eq '2'); # defer.
}
"$protocol://debian.crosslink.net/debian-archive".
"/dists/##DIST/non-free/binary-$arch/Packages.gz",
);
-
-
my %urlcontents = (
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'){
%dist_urls = %urlpackages;
}
}
-
+
while (($key,$val) = each %dist_urls) {
$key =~ s/##DIST/$dist/;
$val =~ s/##DIST/$dist/;
my $retval = '';
&VERB("Module: reloading all.",2);
-
+
# Reload version and save
open(VERSION,"<VERSION");
$bot_release = <VERSION> || "(unknown version)";