Subversion Repositories VORC

Rev

Rev 56 | Rev 147 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
8 - 1 
#!/usr/bin/perl
2 
 
56 bgadell 3 
# Redirect error messages to a log of my choosing. (it's annoying to filter for errors in the shared env)
4 
my $error_log_path = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "/home3/rollerco/logs/" : "/tmp/";
5 
close STDERR;
6 
open STDERR, '>>', $error_log_path.'vorc_error.log' or warn "Failed to open redirected logfile ($0): $!";
7 
#warn "Redirecting errors to ${error_log_path}vorc_error.log";
8 
 
8 - 9 
use strict;
10 
use cPanelUserConfig;
11 
use RollerCon;
38 - 12 
use tableViewer;
13 
use WebDB;
8 - 14 
use CGI;
15 
use CGI::Cookie;
16 
use DateTime;
17 
 
18 
my $cookie_string = authenticate(2) || die;
19 
my ($EML, $PWD, $LVL) = split /&/, $cookie_string;
20 
my $user = getUser($EML);
21 
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
22 
 
25 - 23 
my $dt = DateTime->now (time_zone => 'America/Los_Angeles');
24 
#$dt->subtract( hours => 7 );
8 - 25 
my $day = $dt->day_name;
26 
my $date = $dt->date;
27 
my $curtime = $dt->hms;
28 
 
29 
#$day = "Wednesday";
50 bgadell 30 
#$date = "2023-07-13";
8 - 31 
 
32 
my %class = qw(
33 
	U Unrestricted
34 
	M Mens
35 
	W Womens
36 
	SS Single-Gender
37 
);
38 
 
38 - 39 
my $dbh = WebDB::connect ();
8 - 40 
 
41 
print CGI::header(-cookie=>$RCAUTH_cookie);
42 
 
43 
my $query = new CGI;
44 
my $track = $query->param('t') || 'ALL';
45 
 
46 
 
47 
print<<output;
48 
<html><head><title>ORC Right Now - $day ($date) $curtime - Track $track</title>
49 
<link rel="stylesheet" type="text/css" href="/rollercon.css">
50 
</head>
51 
<body text="#000000" bgcolor="#FFFFFF" link="#0000EE" vlink="#551A8B" alink="#FF0000">
52 
output
53 
 
25 - 54 
my $rnh = $dbh->prepare("select * from v_shift_admin_view where id = (select id from game where date = ? and track = ? and time < CONVERT_TZ(now(), 'America/Chicago', 'America/Los_Angeles') and end_time > CONVERT_TZ(now(), 'America/Chicago', 'America/Los_Angeles'))");
55 
my $nuh = $dbh->prepare("select * from v_shift_admin_view where id = (select id from game where date = ? and track = ? and time > CONVERT_TZ(now(), 'America/Chicago', 'America/Los_Angeles') order by time limit 1)");
8 - 56 
 
38 - 57 
my $lrnh = $dbh->prepare("select * from v_shift where id in (select id from v_shift where dept = ? and date = ? and start_time < CONVERT_TZ(now(), 'America/Chicago', 'America/Los_Angeles') and end_time > CONVERT_TZ(now(), 'America/Chicago', 'America/Los_Angeles')) order by location");
58 
my $lnuh = $dbh->prepare("select * from v_shift where id in (select id from v_shift where dept = ? and date = ? and start_time > CONVERT_TZ(now(), 'America/Chicago', 'America/Los_Angeles') order by location, start_time)");
8 - 59 
 
60 
#my $gcount = 1; my $tcount = '';
61 
#my $sth = $dbh->prepare("select distinct teams, track, level, time, gtype, restrictions from v_shift where date = ? order by track, time");
62 
#my $crewhan = $dbh->prepare("select role, derby_name from v_shift where date = ? and track = ? and time = ?");
63 
#my $leadhan = $dbh->prepare("select track, time, derby_name from v_lead_shift where date = ? order by track, time");
64 
#my $openshifthan = $dbh->prepare("select time, level, restrictions, gtype, teams, tla, name from v_shift where tla <> 'ALT' and isNull(derby_name) = 1 and date = ? and track = ? order by time");
65 
 
66 
print "<table>\n<tr><td colspan=5><b>Right Now [$day $curtime Track $track]</b></td></tr></table><br>\n";
67 
 
68 
 
69 
print "<table>\n<tr><td colspan=5><b>All Leads On Duty</b></td></tr>\n";
38 - 70 
$lrnh->execute("OFF", $date);
8 - 71 
while (my $lshift = $lrnh->fetchrow_hashref()) {
38 - 72 
	print "<tr><td>$lshift->{location}</td><td>&nbsp;</td><td>$lshift->{time}</td><td>&nbsp;</td><td>$lshift->{derby_name}</td></tr>\n";
8 - 73 
}
74 
print "</table>\n";
75 
print "<br><br>\n";
76 
 
77 
my %crew;
78 
my $g;
79 
my $c = 1;
80 
$rnh->execute($date, $track);
81 
while (my $tg = $rnh->fetchrow_hashref()) {
82 
	if ($c) {
83 
		$g = $tg;
84 
		$c=0;
85 
	}
86 
	if ($tg->{derby_name}) {
87 
		$tg->{derby_name} .= " <A HREF='#' onClick=\"window.open('make_shift_change.pl?change=del&RCid=$tg->{RCid}&id=$tg->{id}&role=$tg->{role}','Confirm Shift Change','resizable,height=260,width=370'); return false;\">[DROP]</a>";
88 
		$tg->{derby_name} .= " | <A HREF='#' onClick=\"if (confirm('Really? They were a no show?')==true) { window.open('make_shift_change.pl?noshow=true&change=del&RCid=$tg->{RCid}&id=$tg->{id}&role=$tg->{role}','Confirm Shift Change','resizable,height=260,width=370'); return false; }\">[NO SHOW]</a>";
89 
	} else {
90 
		$tg->{derby_name} = "<A HREF='#' onClick=\"window.open('make_shift_change.pl?change=lookup&RCid=$tg->RCid&id=$tg->{id}&role=$tg->{role}','Confirm Shift Change','resizable,height=260,width=370'); return false;\">[ADD USER]</a>";
91 
	}
92 
 
93 
	$crew{$tg->{role}} = $tg->{derby_name};
94 
}
95 
 
96 
$g->{gtype} = join '', map { ucfirst lc } split /(\s+)/, $g->{gtype}; # Capitalize the game type to look nicer
97 
 
98 
my $P1 = "PLT-1";
99 
my $P2 = "PLT-2";
100 
my $PH = "PLT";
101 
if ($g->{gtype} eq "Full Length" or $g->{gtype} eq "Selected Staffing") {
102 
	$P1 = 'PLT/H';
103 
	$P2 = 'PLT';
104 
	$PH = $P1;
105 
}
106 
my $A = '';
107 
if (defined $crew{'ALT'}) {
108 
	$A = "ALT:";
109 
} else {
110 
	$crew{'ALT'} = '';
111 
}
112 
 
113 
if ($g->{teams}) {
114 
	print<<game;
115 
<table>
116 
	<tr><td>Date:</td><td>$day ($date)</td><td>&nbsp;</td><td>Track:</td><td>$g->{track}</td></tr>
117 
	<tr><td>Time:</td><td>$g->{time}</td><td>&nbsp;</td><td>Class:</td><td>$class{$g->{restrictions}} $g->{level} $g->{gtype}</td></tr>
118 
	<tr><td>Game:</td><td colspan=4>$g->{teams}</td></tr>
119 
	<tr><td colspan=5>&nbsp;</td></tr>
120 
	<tr><td>HR:</td><td>$crew{'HR'}</td><td>&nbsp;</td><td>$PH:</td><td>$crew{$P1}</td></tr>
121 
	<tr><td>IPR:</td><td>$crew{'IPR'}</td><td>&nbsp;</td><td>PLT:</td><td>$crew{$P2}</td></tr>
122 
	<tr><td>JR:</td><td>$crew{'JR-1'}</td><td>&nbsp;</td><td>SK:</td><td>$crew{'SK-1'}</td></tr>
123 
	<tr><td>JR:</td><td>$crew{'JR-2'}</td><td>&nbsp;</td><td>SK:</td><td>$crew{'SK-2'}</td></tr>
124 
	<tr><td>OPR:</td><td>$crew{'OPR-1'}</td><td>&nbsp;</td><td>PBM:</td><td>$crew{'PBM'}</td></tr>
125 
	<tr><td>OPR:</td><td>$crew{'OPR-2'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-1'}</td></tr>
126 
	<tr><td>OPR:</td><td>$crew{'OPR-3'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-2'}</td></tr>
127 
	<tr><td>$A</td><td>$crew{'ALT'}</td><td>&nbsp;</td><td>JT:</td><td>$crew{'JT'}</td></tr>
128 
	<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>SO:</td><td>$crew{'SO'}</td></tr>
129 
</table><br>
130 
game
131 
} else {
132 
	print "<table>\n<tr><td colspan=5>There doesn't seem to be a game on this track right now.</td></tr></table><br>\n";
133 
}
134 
#	$gcount++ % 2 == 0 ? print "<div class='pagebreak'><hr></div>\n" : { };
135 
 
136 
 
137 
print "<table>\n<tr><td colspan=5><b>Next Up...</b></td></tr></table>\n";
138 
 
139 
print "<table>\n<tr><td colspan=5><b>Leads On Duty Later</b></td></tr>\n";
38 - 140 
$lnuh->execute("OFF", $date);
8 - 141 
while (my $lshift = $lnuh->fetchrow_hashref()) {
38 - 142 
	print "<tr><td>$lshift->{location}</td><td>&nbsp;</td><td>$lshift->{time}</td><td>&nbsp;</td><td>$lshift->{derby_name}</td></tr>\n";
8 - 143 
}
144 
print "</table>\n";
145 
print "<br><br>\n";
146 
 
147 
my %crew;
148 
my $g;
149 
my $c = 1;
150 
$nuh->execute($date, $track);
151 
while (my $tg = $nuh->fetchrow_hashref()) {
152 
	if ($c) {
153 
		$g = $tg;
154 
		$c=0;
155 
	}
156 
	if ($tg->{derby_name}) {
157 
		$tg->{derby_name} .= " <A HREF='#' onClick=\"window.open('make_shift_change.pl?change=del&RCid=$tg->{RCid}&id=$tg->{id}&role=$tg->{role}','Confirm Shift Change','resizable,height=260,width=370'); return false;\">[DROP]</a>";
158 
		$tg->{derby_name} .= " | <A HREF='#' onClick=\"if (confirm('Really? They were a no show?')==true) { window.open('make_shift_change.pl?noshow=true&change=del&RCid=$tg->{RCid}&id=$tg->{id}&role=$tg->{role}','Confirm Shift Change','resizable,height=260,width=370'); return false; }\">[NO SHOW]</a>";
159 
	} else {
160 
		$tg->{derby_name} = "<A HREF='#' onClick=\"window.open('make_shift_change.pl?change=lookup&RCid=$tg->RCid&id=$tg->{id}&role=$tg->{role}','Confirm Shift Change','resizable,height=260,width=370'); return false;\">[ADD USER]</a>";
161 
	}
162 
 
163 
	$crew{$tg->{role}} = $tg->{derby_name};
164 
}
165 
 
166 
$g->{gtype} = join '', map { ucfirst lc } split /(\s+)/, $g->{gtype}; # Capitalize the game type to look nicer
167 
 
168 
my $P1 = "PLT-1";
169 
my $P2 = "PLT-2";
170 
my $PH = "PLT";
171 
if ($g->{gtype} eq "Full Length" or $g->{gtype} eq "Selected Staffing") {
172 
	$P1 = 'PLT/H';
173 
	$P2 = 'PLT';
174 
	$PH = $P1;
175 
}
176 
my $A = '';
177 
if (defined $crew{'ALT'}) {
178 
	$A = "ALT:";
179 
} else {
180 
	$crew{'ALT'} = '';
181 
}
182 
 
183 
if ($g->{teams}) {
184 
	print<<game;
185 
<table>
186 
	<tr><td>Date:</td><td>$day ($date)</td><td>&nbsp;</td><td>Track:</td><td>$g->{track}</td></tr>
187 
	<tr><td>Time:</td><td>$g->{time}</td><td>&nbsp;</td><td>Class:</td><td>$class{$g->{restrictions}} $g->{level} $g->{gtype}</td></tr>
188 
	<tr><td>Game:</td><td colspan=4>$g->{teams}</td></tr>
189 
	<tr><td colspan=5>&nbsp;</td></tr>
190 
	<tr><td>HR:</td><td>$crew{'HR'}</td><td>&nbsp;</td><td>$PH:</td><td>$crew{$P1}</td></tr>
191 
	<tr><td>IPR:</td><td>$crew{'IPR'}</td><td>&nbsp;</td><td>PLT:</td><td>$crew{$P2}</td></tr>
192 
	<tr><td>JR:</td><td>$crew{'JR-1'}</td><td>&nbsp;</td><td>SK:</td><td>$crew{'SK-1'}</td></tr>
193 
	<tr><td>JR:</td><td>$crew{'JR-2'}</td><td>&nbsp;</td><td>SK:</td><td>$crew{'SK-2'}</td></tr>
194 
	<tr><td>OPR:</td><td>$crew{'OPR-1'}</td><td>&nbsp;</td><td>PBM:</td><td>$crew{'PBM'}</td></tr>
195 
	<tr><td>OPR:</td><td>$crew{'OPR-2'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-1'}</td></tr>
196 
	<tr><td>OPR:</td><td>$crew{'OPR-3'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-2'}</td></tr>
197 
	<tr><td>$A</td><td>$crew{'ALT'}</td><td>&nbsp;</td><td>JT:</td><td>$crew{'JT'}</td></tr>
198 
	<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>SO:</td><td>$crew{'SO'}</td></tr>
199 
</table><br>
200 
game
201 
} else {
202 
	print "<table>\n<tr><td colspan=5>There don't seem to be any more games on this track today.</td></tr></table><br>\n";
203 
}
204 
 
205 
	print "<table>\n<tr><td colspan=5><a href='/schedule/'>[ go home ]</td></tr></table><br>\n";
206 
 
207 
 
208 
 
209 
print<<tail;
210 
</BODY>
211 
</HTML>
212 
tail