changeset 86:3e301f23b20d misc

Change order of output.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 25 Apr 2010 01:07:24 +0000
parents 9aa648df2366
children 28e24f92e957
files magestats.pl
diffstat 1 files changed, 26 insertions(+), 21 deletions(-) [+]
line wrap: on
line diff
--- a/magestats.pl	Sun Apr 25 01:03:26 2010 +0000
+++ b/magestats.pl	Sun Apr 25 01:07:24 2010 +0000
@@ -46,7 +46,7 @@
 ### Print out help if no arguments given
 ###
 my $prog_name = "Magestats";
-my $prog_version = "0.5";
+my $prog_version = "0.6";
 my $opt_mode = shift or die(
 "$prog_name v$prog_version - BatMUD Mage guild statistics generator
 Developed by Matti Hamalainen (Ggr \@ bat), <ccr\@tnsp.org>
@@ -386,7 +386,32 @@
 <p>
 Generated with $prog_name v$prog_version by Matti H&auml;m&auml;l&auml;inen aka Ggr Pupunen.
 </p>
+|;
 
+print OUT "
+<h2>Mage staff development</h2>
+<table class=\"info\">
+ <tr>
+  <th>Blasts</th>
+  <th>Major blasts</th>
+  <th>Singles</th>
+  <th>Areas</th>
+  <th>Staff short description</th>
+ </tr>
+";
+
+foreach my $foo (@{$spells->{"staff"}{"data"}}) {
+  print OUT "<tr><td>".$foo->{"blasts"}."</td><td>".
+  $foo->{"major"}."</td><td>".$foo->{"single"}."</td><td>".
+  $foo->{"area"}."</td><td>".htmlentities($foo->{"desc"})."</td></tr>\n";
+}
+
+print OUT "
+</table>
+";
+
+
+print OUT qq|
 <h2>Blasts, essence, etc</h2>
 <table class="info">
 <tr>
@@ -451,26 +476,6 @@
 print OUT "<br />
 Total essence gained: <b>".$spells->{"total"}{"essence"}."</b><br />
 </p>
-
-<h2>Mage staff development</h2>
-<table class=\"info\">
- <tr>
-  <th>Blasts</th>
-  <th>Major blasts</th>
-  <th>Singles</th>
-  <th>Areas</th>
-  <th>Staff short description</th>
- </tr>
-";
-
-foreach my $foo (@{$spells->{"staff"}{"data"}}) {
-  print OUT "<tr><td>".$foo->{"blasts"}."</td><td>".
-  $foo->{"major"}."</td><td>".$foo->{"single"}."</td><td>".
-  $foo->{"area"}."</td><td>".htmlentities($foo->{"desc"})."</td></tr>\n";
-}
-
-print OUT "
-</table>
 ";
 
 print OUT "