aboutsummaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorRobin H. Johnson <robbat2@gentoo.org>2018-12-09 23:16:22 -0800
committerRobin H. Johnson <robbat2@gentoo.org>2018-12-09 23:16:22 -0800
commitd52d8dda5354b945ef6b5916237d93b4d582f97e (patch)
treea5a5aeb3e7f3f7593e1c9c59bd221cbcfc3f976d /perl
parentindex: do not downgrade to HTTP (diff)
downloadbouncer-d52d8dda5354b945ef6b5916237d93b4d582f97e.tar.gz
bouncer-d52d8dda5354b945ef6b5916237d93b4d582f97e.tar.bz2
bouncer-d52d8dda5354b945ef6b5916237d93b4d582f97e.zip
sentry: set last_check timestamp
Signed-off-by: Robin H. Johnson <robbat2@gentoo.org>
Diffstat (limited to 'perl')
-rwxr-xr-xperl/sentry.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/sentry.pl b/perl/sentry.pl
index ad82570..c0cf4ff 100755
--- a/perl/sentry.pl
+++ b/perl/sentry.pl
@@ -31,7 +31,7 @@ my $dbh = DBI->connect( "DBI:mysql:$db:$host",$user,$pass) or die "Connecting :
$location_sql = qq{SELECT * FROM mirror_locations JOIN mirror_products USING (product_id) WHERE product_priority > 0 ORDER BY product_priority DESC};
#$mirror_sql = qq{SELECT * FROM mirror_mirrors WHERE mirror_active IN ('1') ORDER BY mirror_rating DESC, mirror_name};
$mirror_sql = qq{SELECT * FROM mirror_mirrors WHERE mirror_active IN ('1') ORDER BY RAND()};
-$update_sql = qq{REPLACE mirror_location_mirror_map SET location_id=?,mirror_id=?,location_active=?};
+$update_sql = qq{REPLACE mirror_location_mirror_map SET location_id=?, mirror_id=?, location_active=?, last_check=NOW()};
my $location_sth = $dbh->prepare($location_sql);
my $mirror_sth = $dbh->prepare($mirror_sql);