diff options
-rwxr-xr-x | perl/sentry.pl | 2 |
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); |