CompSoc
use CompSoc qw/ $debug $host $year /;
if ($debug) { # Stuff to do when in debug mode. }
if ($host eq 'molotov') { # Stuff to only run on the server 'molotov' }
my $current_year = $year; # The current academic year.
This package defines three variables, and is fairly pointless.
Controls whether the site is in debug mode.
The year that the current academic year started. Except it has to be manually changed every year.
This is the hostname of the local system, lowercased. That will probably only affect silly Windows users who use silly hostnames with capital letters in.
This variable's sole purpose in life is to affect the paths hardcoded into CompSoc::Theme.
Please don't use it, look at Sys::Hostname instead.
Written or rewritten by each of James Ross, David Buckley and Tim Retout.
$year must be updated manually each year. Oh, and THE ENTIRE MODULE IS POINTLESS.
Further, the weird capitalisation means that it's relatively difficult to use.
Copyright (C) 2005 University of Warwick Computing Society.