set-active.pl

A Perl-based statistics management system designed for academic competition tournaments. These tourn

#!/usr/bin/perl -w

# Livestat 1.2, by Jason Weill ([e-mail])
# Copyright (C) 2001-02 Jason Weill

# Livestat is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# Livestat is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Livestat; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

# Sets the active tournament.

# Arguments: The name of a tournament.
# Result: Sets the active tournament, if it exists.

use strict;

my $dir;

$dir = $ARGV[0];

if (not -e $dir) {
  die "Cannot change directory: $dir does not exist";
}

open ACTIVE, ">activetourney" or 
  die "Cannot open tournament file: $!";

print ACTIVE $dir;

close ACTIVE or die "Cannot close tournament file: $!";