Changeset 235

Timestamp:

06/12/07 22:20:16 (3 years ago)

Author:

eevee

Message:

Add current revision number to the footer. (#67)

Location:

veekun/trunk

Files:

• lib/Vee.pm (modified) (2 diffs)
• lib/Vee/Utils.pm (modified) (1 diff)
• templates/style/global.tt (modified) (1 diff)
• templates/wrapper.tt (modified) (1 diff)

veekun/trunk/lib/Vee.pm

@@ -54 +54 @@
 __PACKAGE__->setup;
 
+# grab the current revision number, if applicable
+__PACKAGE__->cache->{svn_revision} = 
+    Vee::Utils::timed_exec( 5 => sub {
+        open my $fh, '-|', 'svnversion' or return;
+        my $revision = <$fh>;
+        close $fh;
+        $revision =~ s/ \D+ $//gx;
+        return $revision;
+    } );
+
 {
     no strict 'refs';
@@ -85 +95 @@
 =cut
 
-my $cache = {};
+my $cache;
 sub cache {
+    $cache ||= {};  # so we can call this function above
     return $cache;
 }

veekun/trunk/lib/Vee/Utils.pm

@@ -84 +84 @@
 }
 
+# execute code but give up after x seconds
+# this is taken from perldoc -f alarm
+sub timed_exec {
+    my ($secs, $subref) = @_;
+    my $res = eval {
+        local $SIG{ALRM} = sub { die "alarm\n" };
+        alarm $secs;
+        my $res = $subref->();
+        alarm 0;
+        return $res;
+    };
+
+    if ($@) {
+        die unless $@ eq "alarm\n";  # propagate unexpected errors
+        return;
+    } else {
+        return $res;
+    }
+}
+
 sub pad { sprintf "%0$_[1]d", $_[0] }
 sub round { $_[1] ||= 0; return int($_[0] * 10 ** $_[1] + .5) / 10 ** $_[1]; }

veekun/trunk/templates/style/global.tt

@@ -96 +96 @@
 #debug { margin-bottom: 1em; }
 #footer { -moz-border-radius-bottomright: 64px; }
+  #footer #svn-revision { float: right; font-size: 85%; }
 
 #breadcrumbs { margin: -0.5em; margin-bottom: 0.5em; padding: 0.5em; background: [% glass_background(tablerow_fill2) %]; }

veekun/trunk/templates/wrapper.tt

@@ -173 +173 @@
 
 <div id="footer">
+[% IF c.cache.svn_revision %]
+    <div id="svn-revision">Revision [%
+        c.cache.svn_revision
+        .replace(':', ' through ')
+        .replace('(\d+)', '<a href="http://trac.veekun.com/changeset/$1">$1</a>')
+    %]</div>
+[% END %]
     All content copyright its original owners.  Pok&eacute;mon is copyright to Nintendo and Game Freak.  Current site layout by Eevee/Alex Munroe and is &copy;2005. <br/>
 [% IF from_cache %]