| 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> </td><td>$lshift->{time}</td><td> </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}) {
|
| 147 |
- |
114 |
if ($g->{track} eq "BT") {
|
|
|
115 |
print<<BTgame;
|
| 8 |
- |
116 |
<table>
|
|
|
117 |
<tr><td>Date:</td><td>$day ($date)</td><td> </td><td>Track:</td><td>$g->{track}</td></tr>
|
|
|
118 |
<tr><td>Time:</td><td>$g->{time}</td><td> </td><td>Class:</td><td>$class{$g->{restrictions}} $g->{level} $g->{gtype}</td></tr>
|
|
|
119 |
<tr><td>Game:</td><td colspan=4>$g->{teams}</td></tr>
|
|
|
120 |
<tr><td colspan=5> </td></tr>
|
| 147 |
- |
121 |
<tr><td>HR:</td><td>$crew{'HR'}</td><td> </td><td>GE:</td><td>$crew{'GE'}</td></tr>
|
|
|
122 |
<tr><td>PR:</td><td>$crew{'PR-1'}</td><td> </td><td>PT:</td><td>$crew{'PT'}</td></tr>
|
|
|
123 |
<tr><td>PR:</td><td>$crew{'PR-2'}</td><td> </td><td>PTA:</td><td>$crew{'PTA'}</td></tr>
|
|
|
124 |
<tr><td>JR:</td><td>$crew{'JR-1'}</td><td> </td><td>PB:</td><td>$crew{'PB-1'}</td></tr>
|
|
|
125 |
<tr><td>JR:</td><td>$crew{'JR-2'}</td><td> </td><td>PB:</td><td>$crew{'PB-2'}</td></tr>
|
|
|
126 |
<tr><td>OPR:</td><td>$crew{'OPR-1'}</td><td> </td><td>EYE:</td><td>$crew{'EYE-1'}</td></tr>
|
|
|
127 |
<tr><td>OPR:</td><td>$crew{'OPR-2'}</td><td> </td><td>EYE:</td><td>$crew{'EYE-2'}</td></tr>
|
|
|
128 |
<tr><td> </td><td> </td><td> </td><td>WB:</td><td>$crew{'WB'}</td></tr>
|
|
|
129 |
<tr><td> </td><td> </td><td> </td><td>SBO:</td><td>$crew{'SBO'}</td></tr>
|
|
|
130 |
</table><br><br><br><br><br><br><br><br><br><br><br><br>
|
|
|
131 |
BTgame
|
|
|
132 |
|
|
|
133 |
} else {
|
|
|
134 |
print<<game;
|
|
|
135 |
<table>
|
|
|
136 |
<tr><td>Date:</td><td>$day ($date)</td><td> </td><td>Track:</td><td>$g->{track}</td></tr>
|
|
|
137 |
<tr><td>Time:</td><td>$g->{time}</td><td> </td><td>Class:</td><td>$class{$g->{restrictions}} $g->{level} $g->{gtype}</td></tr>
|
|
|
138 |
<tr><td>Game:</td><td colspan=4>$g->{teams}</td></tr>
|
|
|
139 |
<tr><td colspan=5> </td></tr>
|
| 8 |
- |
140 |
<tr><td>HR:</td><td>$crew{'HR'}</td><td> </td><td>$PH:</td><td>$crew{$P1}</td></tr>
|
|
|
141 |
<tr><td>IPR:</td><td>$crew{'IPR'}</td><td> </td><td>PLT:</td><td>$crew{$P2}</td></tr>
|
|
|
142 |
<tr><td>JR:</td><td>$crew{'JR-1'}</td><td> </td><td>SK:</td><td>$crew{'SK-1'}</td></tr>
|
|
|
143 |
<tr><td>JR:</td><td>$crew{'JR-2'}</td><td> </td><td>SK:</td><td>$crew{'SK-2'}</td></tr>
|
|
|
144 |
<tr><td>OPR:</td><td>$crew{'OPR-1'}</td><td> </td><td>PBM:</td><td>$crew{'PBM'}</td></tr>
|
|
|
145 |
<tr><td>OPR:</td><td>$crew{'OPR-2'}</td><td> </td><td>PBT:</td><td>$crew{'PBT-1'}</td></tr>
|
|
|
146 |
<tr><td>OPR:</td><td>$crew{'OPR-3'}</td><td> </td><td>PBT:</td><td>$crew{'PBT-2'}</td></tr>
|
|
|
147 |
<tr><td>$A</td><td>$crew{'ALT'}</td><td> </td><td>JT:</td><td>$crew{'JT'}</td></tr>
|
|
|
148 |
<tr><td> </td><td> </td><td> </td><td>SO:</td><td>$crew{'SO'}</td></tr>
|
|
|
149 |
</table><br>
|
|
|
150 |
game
|
| 147 |
- |
151 |
}
|
| 8 |
- |
152 |
} else {
|
|
|
153 |
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";
|
|
|
154 |
}
|
|
|
155 |
# $gcount++ % 2 == 0 ? print "<div class='pagebreak'><hr></div>\n" : { };
|
|
|
156 |
|
|
|
157 |
|
|
|
158 |
print "<table>\n<tr><td colspan=5><b>Next Up...</b></td></tr></table>\n";
|
|
|
159 |
|
|
|
160 |
print "<table>\n<tr><td colspan=5><b>Leads On Duty Later</b></td></tr>\n";
|
| 38 |
- |
161 |
$lnuh->execute("OFF", $date);
|
| 8 |
- |
162 |
while (my $lshift = $lnuh->fetchrow_hashref()) {
|
| 38 |
- |
163 |
print "<tr><td>$lshift->{location}</td><td> </td><td>$lshift->{time}</td><td> </td><td>$lshift->{derby_name}</td></tr>\n";
|
| 8 |
- |
164 |
}
|
|
|
165 |
print "</table>\n";
|
|
|
166 |
print "<br><br>\n";
|
|
|
167 |
|
|
|
168 |
my %crew;
|
|
|
169 |
my $g;
|
|
|
170 |
my $c = 1;
|
|
|
171 |
$nuh->execute($date, $track);
|
|
|
172 |
while (my $tg = $nuh->fetchrow_hashref()) {
|
|
|
173 |
if ($c) {
|
|
|
174 |
$g = $tg;
|
|
|
175 |
$c=0;
|
|
|
176 |
}
|
|
|
177 |
if ($tg->{derby_name}) {
|
|
|
178 |
$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>";
|
|
|
179 |
$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>";
|
|
|
180 |
} else {
|
|
|
181 |
$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>";
|
|
|
182 |
}
|
|
|
183 |
|
|
|
184 |
$crew{$tg->{role}} = $tg->{derby_name};
|
|
|
185 |
}
|
|
|
186 |
|
|
|
187 |
$g->{gtype} = join '', map { ucfirst lc } split /(\s+)/, $g->{gtype}; # Capitalize the game type to look nicer
|
|
|
188 |
|
|
|
189 |
my $P1 = "PLT-1";
|
|
|
190 |
my $P2 = "PLT-2";
|
|
|
191 |
my $PH = "PLT";
|
|
|
192 |
if ($g->{gtype} eq "Full Length" or $g->{gtype} eq "Selected Staffing") {
|
|
|
193 |
$P1 = 'PLT/H';
|
|
|
194 |
$P2 = 'PLT';
|
|
|
195 |
$PH = $P1;
|
|
|
196 |
}
|
|
|
197 |
my $A = '';
|
|
|
198 |
if (defined $crew{'ALT'}) {
|
|
|
199 |
$A = "ALT:";
|
|
|
200 |
} else {
|
|
|
201 |
$crew{'ALT'} = '';
|
|
|
202 |
}
|
|
|
203 |
|
|
|
204 |
if ($g->{teams}) {
|
| 147 |
- |
205 |
if ($g->{track} eq "BT") {
|
|
|
206 |
print<<BTgame;
|
| 8 |
- |
207 |
<table>
|
|
|
208 |
<tr><td>Date:</td><td>$day ($date)</td><td> </td><td>Track:</td><td>$g->{track}</td></tr>
|
|
|
209 |
<tr><td>Time:</td><td>$g->{time}</td><td> </td><td>Class:</td><td>$class{$g->{restrictions}} $g->{level} $g->{gtype}</td></tr>
|
|
|
210 |
<tr><td>Game:</td><td colspan=4>$g->{teams}</td></tr>
|
|
|
211 |
<tr><td colspan=5> </td></tr>
|
| 147 |
- |
212 |
<tr><td>HR:</td><td>$crew{'HR'}</td><td> </td><td>GE:</td><td>$crew{'GE'}</td></tr>
|
|
|
213 |
<tr><td>PR:</td><td>$crew{'PR-1'}</td><td> </td><td>PT:</td><td>$crew{'PT'}</td></tr>
|
|
|
214 |
<tr><td>PR:</td><td>$crew{'PR-2'}</td><td> </td><td>PTA:</td><td>$crew{'PTA'}</td></tr>
|
|
|
215 |
<tr><td>JR:</td><td>$crew{'JR-1'}</td><td> </td><td>PB:</td><td>$crew{'PB-1'}</td></tr>
|
|
|
216 |
<tr><td>JR:</td><td>$crew{'JR-2'}</td><td> </td><td>PB:</td><td>$crew{'PB-2'}</td></tr>
|
|
|
217 |
<tr><td>OPR:</td><td>$crew{'OPR-1'}</td><td> </td><td>EYE:</td><td>$crew{'EYE-1'}</td></tr>
|
|
|
218 |
<tr><td>OPR:</td><td>$crew{'OPR-2'}</td><td> </td><td>EYE:</td><td>$crew{'EYE-2'}</td></tr>
|
|
|
219 |
<tr><td> </td><td> </td><td> </td><td>WB:</td><td>$crew{'WB'}</td></tr>
|
|
|
220 |
<tr><td> </td><td> </td><td> </td><td>SBO:</td><td>$crew{'SBO'}</td></tr>
|
|
|
221 |
</table><br><br><br><br><br><br><br><br><br><br><br><br>
|
|
|
222 |
BTgame
|
|
|
223 |
|
|
|
224 |
} else {
|
|
|
225 |
print<<game;
|
|
|
226 |
<table>
|
|
|
227 |
<tr><td>Date:</td><td>$day ($date)</td><td> </td><td>Track:</td><td>$g->{track}</td></tr>
|
|
|
228 |
<tr><td>Time:</td><td>$g->{time}</td><td> </td><td>Class:</td><td>$class{$g->{restrictions}} $g->{level} $g->{gtype}</td></tr>
|
|
|
229 |
<tr><td>Game:</td><td colspan=4>$g->{teams}</td></tr>
|
|
|
230 |
<tr><td colspan=5> </td></tr>
|
| 8 |
- |
231 |
<tr><td>HR:</td><td>$crew{'HR'}</td><td> </td><td>$PH:</td><td>$crew{$P1}</td></tr>
|
|
|
232 |
<tr><td>IPR:</td><td>$crew{'IPR'}</td><td> </td><td>PLT:</td><td>$crew{$P2}</td></tr>
|
|
|
233 |
<tr><td>JR:</td><td>$crew{'JR-1'}</td><td> </td><td>SK:</td><td>$crew{'SK-1'}</td></tr>
|
|
|
234 |
<tr><td>JR:</td><td>$crew{'JR-2'}</td><td> </td><td>SK:</td><td>$crew{'SK-2'}</td></tr>
|
|
|
235 |
<tr><td>OPR:</td><td>$crew{'OPR-1'}</td><td> </td><td>PBM:</td><td>$crew{'PBM'}</td></tr>
|
|
|
236 |
<tr><td>OPR:</td><td>$crew{'OPR-2'}</td><td> </td><td>PBT:</td><td>$crew{'PBT-1'}</td></tr>
|
|
|
237 |
<tr><td>OPR:</td><td>$crew{'OPR-3'}</td><td> </td><td>PBT:</td><td>$crew{'PBT-2'}</td></tr>
|
|
|
238 |
<tr><td>$A</td><td>$crew{'ALT'}</td><td> </td><td>JT:</td><td>$crew{'JT'}</td></tr>
|
|
|
239 |
<tr><td> </td><td> </td><td> </td><td>SO:</td><td>$crew{'SO'}</td></tr>
|
|
|
240 |
</table><br>
|
|
|
241 |
game
|
| 147 |
- |
242 |
}
|
| 8 |
- |
243 |
} else {
|
|
|
244 |
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";
|
|
|
245 |
}
|
|
|
246 |
|
|
|
247 |
print "<table>\n<tr><td colspan=5><a href='/schedule/'>[ go home ]</td></tr></table><br>\n";
|
|
|
248 |
|
|
|
249 |
|
|
|
250 |
|
|
|
251 |
print<<tail;
|
|
|
252 |
</BODY>
|
|
|
253 |
</HTML>
|
|
|
254 |
tail
|