#!/usr/bin/env wml
"Tor" and the "Onion Logo" are registered trademarks of The Tor Project, Inc. Content on this site is licensed under a Creative Commons Attribution 3.0 United States License, unless otherwise noted.
# This will grab the date from svn info but formatting is tedious # REQUIRES svn for this to work
<:{
my $svninfo = `svn info`;
if ($svninfo =~ m/Last Changed Date: (\d{4}-\d{2}-\d{2})\s(\d{2}:\d{2}:\d{2})\s(.*)\s\((.*)\)/) {
my $modifydate = "$4 $2 $3";
# remove commas from date
$modifydate =~ s/,//;
print 'Last modified: '.$modifydate."\n";
}
}:>
<:{
#my $compiledate = `date`;
my $compiledate = `date +"%a %b %d %Y %k:%M:%S %z"`;
print 'Last compiled: '.$compiledate."\n";
}:>