From a30a2212f1694cfee401e5cc09c58f6cc4d84855 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Wed, 31 Jan 2001 13:31:16 +0000
Subject: [PATCH] make $refresh global in this file... removed all duplicates
 of getting debianRefreshInterval config var.

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@287 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/Modules/Debian.pl | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/src/Modules/Debian.pl b/src/Modules/Debian.pl
index 640976e..2701e03 100644
--- a/src/Modules/Debian.pl
+++ b/src/Modules/Debian.pl
@@ -12,6 +12,9 @@ use strict;
 # format: "alias=real".
 my $announce	= 0;
 my $defaultdist	= "unstable";
+my $refresh = &::getChanConfDefault("debianRefreshInterval",
+			undef, 7) * 60 * 60 * 24;
+
 my %dists	= (
 	"unstable"	=> "sid",
 	"testing"	=> "woody",	# new since 20001219.
@@ -66,8 +69,6 @@ my %urlpackages = (
 # Usage: &DebianDownload(%hash);
 sub DebianDownload {
     my ($dist, %urls)	= @_;
-    my $refresh = &::getChanConfDefault("debianRefreshInterval",
-			undef, 7) * 60 * 60 * 24;
     my $bad	= 0;
     my $good	= 0;
 
@@ -487,12 +488,11 @@ sub searchDesc {
 ####
 # Usage: &generateIncoming();
 sub generateIncoming {
-    my $interval = $::param{'debianRefreshInterval'};
     my $pkgfile  = "debian/Packages-incoming";
     my $idxfile  = $pkgfile.".idx";
     my $stale	 = 0;
-    $stale++ if (&::isStale($pkgfile.".gz", $interval));
-    $stale++ if (&::isStale($idxfile, $interval));
+    $stale++ if (&::isStale($pkgfile.".gz", $refresh));
+    $stale++ if (&::isStale($idxfile, $refresh));
     &::DEBUG("gI: stale => '$stale'.");
     return 0 unless ($stale);
 
@@ -623,7 +623,6 @@ sub getPackageInfo {
 # Usage: &infoPackages($query,$package);
 sub infoPackages {
     my ($query,$dist,$package) = ($_[0], &getDistroFromStr($_[1]));
-    my $interval = $::param{'debianRefreshInterval'} || 7;
 
     &::status("Debian: Searching for package '$package' in '$dist'.");
 
@@ -739,7 +738,6 @@ sub infoStats {
     return unless (defined $dist);
 
     &::DEBUG("infoS: dist => '$dist'.");
-    my $interval = $::param{'debianRefreshInterval'} || 7;
 
     # download packages file if needed.
     my %urls = &fixDist($dist, %urlpackages);
-- 
2.39.5