summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
2496f75)
### TODO: ??
sub wingateWriteFile {
if (@_) {
### TODO: ??
sub wingateWriteFile {
if (@_) {
- &ScheduleThis(3600, 'wingateWriteFile'); # once per hour
+ &ScheduleThis(3600, 'wingateWriteFile'); # once per hour
return if ($_[0] eq '2'); # defer.
}
return if ($_[0] eq '2'); # defer.
}
"$protocol://debian.crosslink.net/debian-archive".
"/dists/##DIST/non-free/binary-$arch/Packages.gz",
);
"$protocol://debian.crosslink.net/debian-archive".
"/dists/##DIST/non-free/binary-$arch/Packages.gz",
);
my %new;
my ($key,$val);
my %dist_urls;
my %new;
my ($key,$val);
my %dist_urls;
if (exists $archived_dists{$dist}){
if ($type eq 'contents'){
%dist_urls = %archiveurlcontents;
}
else {
%dist_urls = %archiveurlpackages;
if (exists $archived_dists{$dist}){
if ($type eq 'contents'){
%dist_urls = %archiveurlcontents;
}
else {
%dist_urls = %archiveurlpackages;
}
else {
if ($type eq 'contents'){
}
else {
if ($type eq 'contents'){
%dist_urls = %urlpackages;
}
}
%dist_urls = %urlpackages;
}
}
while (($key,$val) = each %dist_urls) {
$key =~ s/##DIST/$dist/;
$val =~ s/##DIST/$dist/;
while (($key,$val) = each %dist_urls) {
$key =~ s/##DIST/$dist/;
$val =~ s/##DIST/$dist/;
my $retval = '';
&VERB("Module: reloading all.",2);
my $retval = '';
&VERB("Module: reloading all.",2);
# Reload version and save
open(VERSION,"<VERSION");
$bot_release = <VERSION> || "(unknown version)";
# Reload version and save
open(VERSION,"<VERSION");
$bot_release = <VERSION> || "(unknown version)";