Mercurial > eagle-eye

changeset 170:7df753a99926

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merged
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Sun, 02 Nov 2008 02:23:13 +0800
parents a60cf4d1a6dd (diff) 8f699a9da6c0 (current diff)
children 2efa901871e5
files
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/ally.pl	Sun Nov 02 02:26:28 2008 +0800
+++ b/ally.pl	Sun Nov 02 02:23:13 2008 +0800
@@ -59,16 +59,16 @@
     }
     </style></head><body><table border=1>");
 
-foreach my $x ($x1..$x2)
+foreach my $y($y1..$y2)
 {
     print(OUT "<tr>");
-    foreach my $y($y1..$y2)
+    foreach my $x ($x1..$x2)
     {
         # printf("<div stlye='float:left; background-color: black; padding: 0; Display:inline;'>o</div>");
         if(defined($maps{$x}{$y}{'density'})) {
             my $c = 255 - (15 * $maps{$x}{$y}{'density'});
-            printf(OUT "<td style=\"background-color: rgb(255,%d,%d);\"><a href=\"http://s2.ikariam.tw/index.php?view=island&id=%d\" title=\"[%d,%d] (%d)\">[%d,%d]</a></td>",
-                $c, $c, $maps{$x}{$y}{'id'}, $x, $y, $maps{$x}{$y}{'density'}, $x, $y);
+            printf(OUT "<td style=\"background-color: rgb(255,%d,%d);\"><a href=\"http://%s/index.php?view=island&id=%d\" title=\"[%d,%d] (%d)\">[%d,%d]</a></td>",
+                $c, $c, $::server, $maps{$x}{$y}{'id'}, $x, $y, $maps{$x}{$y}{'density'}, $x, $y);
         } else {
             printf(OUT "<td style=\"background-color: rgb(255,255,255);\">[%d,%d]</td>", $x, $y);
         }