Rev 56 | Blame | Compare with Previous | Last modification | View Log | RSS feed
#!/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";use strict;use lib "/home/rollerco/perl5/lib/perl5";use RollerCon;use CGI;use CGI::Cookie;my $cookie_string = authenticate(2) || die;my ($EML, $PWD, $LVL) = split /&/, $cookie_string;my $user = getUser($EML);my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");print CGI::header(-cookie=>$RCAUTH_cookie);#foreach (sort keys %ENV) {# print "$_: $ENV{$_}\n<br>";#}my $query = new CGI;my $change = $query->param('change');my $shift = $query->param('shift');print<<page1;<html><head><title>RollerCon Officials Schedule Manager - Lead Shift Change</title><link rel="stylesheet" type="text/css" href="/rollercon.css"></head><body text="#000000" bgcolor="#FFFFFF" link="#0000EE" vlink="#551A8B" alink="#FF0000" onload="reloadParent()"><TABLE><TR><TD valign=top>Making a lead shift change...</td><TD valign=top></TD></TR></TABLE>So, <b>$user->{derby_name}</b>, you\'d like to <b>$change</b> a lead shift where for <b>Shift $shift</b>...page1my $change_err = changeLeadShift($change, $shift, $user->{RCid});print<<tail;<SCRIPT language="JavaScript"><!--function sleep(milliseconds) {var start = new Date().getTime();for (var i = 0; i < 1e7; i++) {if ((new Date().getTime() - start) > milliseconds){break;}}}function reloadParent() {window.opener.document.Req.submit();sleep(5000);window.close();}//--></SCRIPT></body></html>tail