Subversion Repositories VORC

#!/usr/bin/perl

# Redirect error messages to a log of my choosing. (it's annoying to filter for errors in the shared env)

my $error_log_path = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "/home3/rollerco/logs/" : "/tmp/";

close STDERR;

open STDERR, '>>', $error_log_path.'vorc_error.log' or warn "Failed to open redirected logfile ($0): $!";

#warn "Redirecting errors to ${error_log_path}vorc_error.log";

#if ($ENV{SHELL}) { die "This script shouldn't be executed from the command line!\n"; }

#use strict;

use cPanelUserConfig;

use CGI qw/param cookie header start_html url/;

use HTML::Tiny;

use tableViewer;

use WebDB;

use RollerCon;

our $h = HTML::Tiny->new( mode => 'html' );

use DateTime;

use DateTime::Duration;

my $now = DateTime->now (time_zone => 'America/Los_Angeles');

my $cookie_string = authenticate (1) || die;

# Add checking to make sure they're in this department

our ($EML, $PWD, $LVL) = split /&/, $cookie_string;

my $user = getUser ($EML);

$user->{department} = convertDepartments $user->{department};

if ($user->{department}->{"OFF"} < 1 and $LVL < 4) {

	print header(-cookie=>$RCAUTH_cookie);

	printRCHeader("Unauthorized Page");

	print $h->div ({ class=>"error" }, "You're not an Official");

	print $h->div ("Your user account is not registered as an Official, so you can't see this page.  It's possible that your access is still being reviewed.  Please be patient.");

	print $h->a ({ href=>"/schedule/" }, "[Go Home]");

	print $h->close ("html");

	exit;

}

my $username = $h->a ({ href=>"/schedule/view_user.pl?submit=View&RCid=$user->{RCid}" }, $user->{derby_name});

my $RCid = $user->{RCid};

my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");

#my $YEAR = 1900 + (localtime)[5]; #which year of data to display, default to current

my $YEAR = 1900 + (localtime)[5];

#$LVL = 1;

my $dbh = WebDB::connect ();

my $games = $dbh->prepare ("select * from v_shift_officiating where year(date) = ? and now() > date and RCid = ? and gtype in ('challenge', 'selected staffing', 'full length')");

my $teams = $dbh->prepare ("select team1, team2 from game where id = ?");

my $headofficial = $dbh->prepare ("select derby_name from v_shift_officiating where id = ? and tla = ?");

my $date = `date +"%m%d%y%H%M%S"`; chomp $date;

my $filename = "RollerCon_${YEAR}_OHD_$user->{derby_name}_${date}_$$.csv";

print "Content-type: text/CSV\n";

# The Content-Disposition will generate a prompt to save the file. If you want

# to stream the file to the browser, comment out the following line.

print "Content-Disposition: attachment; filename=$filename\n";

print "\n";

print "Date,Event Name,Event Location,Event Host,Home / High Seed,Visitor / Low Seed,Association,Game Type,Position,2nd Position,Software,Head Referee,Head NSO,Notes\n";

$games->execute ($YEAR, $user->{RCid});

while (my $game = $games->fetchrow_hashref ()) {

  $teams->execute ($game->{id});

  my ($team1, $team2) = $teams->fetchrow_array ();

  $headofficial->execute ($game->{id}, "HR");

  my ($HR) = $headofficial->fetchrow_array ();

  $headofficial->execute ($game->{id}, "PLT/HNSO");

  my ($HNSO) = $headofficial->fetchrow_array ();

  if ($game->{tla} eq "PLT/HNSO") {

    $game->{tla} = "HNSO";

    $game->{tla2} = "PLT";

  } elsif ($game->{tla} eq "HR") {

    $game->{tla2} = "IPR";

  } else {

    $game->{tla2} = "";

  }

  my @line;

  push @line, $game->{date};

  push @line, 'RollerCon '.$YEAR;

  push @line, '"The Expo at World Market Center, Las Vegas, NV"';

  push @line, 'RollerCon';

  push @line, $team1;

  push @line, $team2;

  push @line, "Other";

  push @line, $game->{gtype} eq "challenge" ? "Other" : "Reg";

  push @line, $game->{tla};

  push @line, $game->{tla2};

  push @line, $game->{tla} eq "SBO" ? "C" : "";

  push @line, $HR;

  push @line, $HNSO;

  push @line,

  print join ",", @line;

  print "\n";

}

exit;