unicorns found by creep.im admin.
Andrew Lewman

Andrew Lewman commited on 2013-05-30 18:53:22
Zeige 1 geänderte Dateien mit 3 Einfügungen und 3 Löschungen.

... ...
@@ -41,7 +41,7 @@ sub sanitize {
41 41
 sub FetchDate {
42 42
     my $url = shift; # Base url for mirror
43 43
     my $trace = "project/trace/www-master.torproject.org"; # this file should always exist
44
-    $url = "$url$trace";
44
+    $url = "$url*/*$trace";
45 45
 
46 46
     print "Fetching possible date from: $url\n";
47 47
 
... ...
@@ -1168,7 +1168,7 @@ foreach my $server ( sort { $m{$b}{'updateDate'} <=> $m{$a}{'updateDate'}} keys
1168 1168
      if ( "$m{$server}{'updateDate'}" ne "Unknown") {
1169 1169
 	  if ( $m{$server}{'updateDate'} > $tortime ) {
1170 1170
 	    $time = "Up to date";
1171
-	  } else { $time = "Out of date"; }
1171
+	  } else { $time = "DO NOT USE. Out of date."; }
1172 1172
      } else { $time = "Unknown"; }
1173 1173
 print OUT <<"END";
1174 1174
      \n<tr>\n
... ...
@@ -1184,7 +1184,7 @@ END
1184 1184
                         rsyncWebsiteMirror => "rsync",
1185 1185
                         httpDistMirror => "http",
1186 1186
                         httpsDistMirror => "https",
1187
-                        rsyncDistMirrors => "rsync", );
1187
+                        rsyncDistMirror => "rsync", );
1188 1188
 
1189 1189
      foreach my $precious ( sort keys %prettyNames )
1190 1190
      {
1191 1191