Subversion Repositories ORC

Rev

Rev 25 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed 

#!/usr/bin/perl -w

use strict;
use lib "/home/rollerco/perl5/lib/perl5";
use RollerCon;
use scanFunctions;
use CGI;
use CGI::Cookie;
use DateTime;

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");

my $dt = DateTime->now;
$dt->subtract( hours => 7 );
my $day = $dt->day_name;
my $date = $dt->date;
my $curtime = $dt->hms;

#$day = "Wednesday";
#$date = "2019-07-17";

my %class = qw(
        U Unrestricted
        M Mens
        W Womens
        SS Single-Gender
);

my $dbh = getDBConnection();

print CGI::header(-cookie=>$RCAUTH_cookie);

my $query = new CGI;
my $track = $query->param('t') || 'ALL';


print<<output;
<html><head><title>ORC Right Now - $day ($date) $curtime - Track $track</title>
<link rel="stylesheet" type="text/css" href="/rollercon.css">
</head>
<body text="#000000" bgcolor="#FFFFFF" link="#0000EE" vlink="#551A8B" alink="#FF0000">
output

my $rnh = $dbh->prepare("select * from v_shift_admin_view where id = (select id from game where date = ? and track = ? and time < now() - interval 3 hour and end_time > now() - interval 3 hour)");
my $nuh = $dbh->prepare("select * from v_shift_admin_view where id = (select id from game where date = ? and track = ? and time > now() - interval 3 hour order by time limit 1)");

my $lrnh = $dbh->prepare("select * from v_lead_shift where id in (select id from lead_shift where date = ? and start_time < now() - interval 3 hour and end_time > now() - interval 3 hour) order by track");
my $lnuh = $dbh->prepare("select * from v_lead_shift where id in (select id from lead_shift where date = ? and start_time > now() - interval 3 hour order by track, start_time)");

#my $gcount = 1; my $tcount = '';
#my $sth = $dbh->prepare("select distinct teams, track, level, time, gtype, restrictions from v_shift where date = ? order by track, time");
#my $crewhan = $dbh->prepare("select role, derby_name from v_shift where date = ? and track = ? and time = ?");
#my $leadhan = $dbh->prepare("select track, time, derby_name from v_lead_shift where date = ? order by track, time");
#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");

print "<table>\n<tr><td colspan=5><b>Right Now [$day $curtime Track $track]</b></td></tr></table><br>\n";


print "<table>\n<tr><td colspan=5><b>All Leads On Duty</b></td></tr>\n";
$lrnh->execute($date);
while (my $lshift = $lrnh->fetchrow_hashref()) {
        print "<tr><td>$lshift->{track}</td><td>&nbsp;</td><td>$lshift->{time}</td><td>&nbsp;</td><td>$lshift->{derby_name}</td></tr>\n";
}
print "</table>\n";
print "<br><br>\n";

my %crew;
my $g;
my $c = 1;
$rnh->execute($date, $track);
while (my $tg = $rnh->fetchrow_hashref()) {
        if ($c) {
                $g = $tg;
                $c=0;
        }
        if ($tg->{derby_name}) {
                $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>";
                $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>";
        } else {
                $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>";
        }

        $crew{$tg->{role}} = $tg->{derby_name};
}

$g->{gtype} = join '', map { ucfirst lc } split /(\s+)/, $g->{gtype}; # Capitalize the game type to look nicer

my $P1 = "PLT-1";
my $P2 = "PLT-2";
my $PH = "PLT";
if ($g->{gtype} eq "Full Length" or $g->{gtype} eq "Selected Staffing") {
        $P1 = 'PLT/H';
        $P2 = 'PLT';
        $PH = $P1;
}
my $A = '';
if (defined $crew{'ALT'}) {
        $A = "ALT:";
} else {
        $crew{'ALT'} = '';
}

if ($g->{teams}) {
        print<<game;
<table>
        <tr><td>Date:</td><td>$day ($date)</td><td>&nbsp;</td><td>Track:</td><td>$g->{track}</td></tr>
        <tr><td>Time:</td><td>$g->{time}</td><td>&nbsp;</td><td>Class:</td><td>$class{$g->{restrictions}} $g->{level} $g->{gtype}</td></tr>
        <tr><td>Game:</td><td colspan=4>$g->{teams}</td></tr>
        <tr><td colspan=5>&nbsp;</td></tr>
        <tr><td>HR:</td><td>$crew{'HR'}</td><td>&nbsp;</td><td>$PH:</td><td>$crew{$P1}</td></tr>
        <tr><td>IPR:</td><td>$crew{'IPR'}</td><td>&nbsp;</td><td>PLT:</td><td>$crew{$P2}</td></tr>
        <tr><td>JR:</td><td>$crew{'JR-1'}</td><td>&nbsp;</td><td>SK:</td><td>$crew{'SK-1'}</td></tr>
        <tr><td>JR:</td><td>$crew{'JR-2'}</td><td>&nbsp;</td><td>SK:</td><td>$crew{'SK-2'}</td></tr>
        <tr><td>OPR:</td><td>$crew{'OPR-1'}</td><td>&nbsp;</td><td>PBM:</td><td>$crew{'PBM'}</td></tr>
        <tr><td>OPR:</td><td>$crew{'OPR-2'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-1'}</td></tr>
        <tr><td>OPR:</td><td>$crew{'OPR-3'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-2'}</td></tr>
        <tr><td>$A</td><td>$crew{'ALT'}</td><td>&nbsp;</td><td>JT:</td><td>$crew{'JT'}</td></tr>
        <tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>SO:</td><td>$crew{'SO'}</td></tr>
</table><br>
game
} else {
        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";
}
#       $gcount++ % 2 == 0 ? print "<div class='pagebreak'><hr></div>\n" : { };


print "<table>\n<tr><td colspan=5><b>Next Up...</b></td></tr></table>\n";

print "<table>\n<tr><td colspan=5><b>Leads On Duty Later</b></td></tr>\n";
$lnuh->execute($date);
while (my $lshift = $lnuh->fetchrow_hashref()) {
        print "<tr><td>$lshift->{track}</td><td>&nbsp;</td><td>$lshift->{time}</td><td>&nbsp;</td><td>$lshift->{derby_name}</td></tr>\n";
}
print "</table>\n";
print "<br><br>\n";

my %crew;
my $g;
my $c = 1;
$nuh->execute($date, $track);
while (my $tg = $nuh->fetchrow_hashref()) {
        if ($c) {
                $g = $tg;
                $c=0;
        }
        if ($tg->{derby_name}) {
                $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>";
                $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>";
        } else {
                $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>";
        }

        $crew{$tg->{role}} = $tg->{derby_name}; 
}
        
$g->{gtype} = join '', map { ucfirst lc } split /(\s+)/, $g->{gtype}; # Capitalize the game type to look nicer

my $P1 = "PLT-1";
my $P2 = "PLT-2";
my $PH = "PLT";
if ($g->{gtype} eq "Full Length" or $g->{gtype} eq "Selected Staffing") {
        $P1 = 'PLT/H';
        $P2 = 'PLT';
        $PH = $P1;
}
my $A = '';
if (defined $crew{'ALT'}) {
        $A = "ALT:";
} else {
        $crew{'ALT'} = '';
}

if ($g->{teams}) {
        print<<game;
<table>
        <tr><td>Date:</td><td>$day ($date)</td><td>&nbsp;</td><td>Track:</td><td>$g->{track}</td></tr>
        <tr><td>Time:</td><td>$g->{time}</td><td>&nbsp;</td><td>Class:</td><td>$class{$g->{restrictions}} $g->{level} $g->{gtype}</td></tr>
        <tr><td>Game:</td><td colspan=4>$g->{teams}</td></tr>
        <tr><td colspan=5>&nbsp;</td></tr>
        <tr><td>HR:</td><td>$crew{'HR'}</td><td>&nbsp;</td><td>$PH:</td><td>$crew{$P1}</td></tr>
        <tr><td>IPR:</td><td>$crew{'IPR'}</td><td>&nbsp;</td><td>PLT:</td><td>$crew{$P2}</td></tr>
        <tr><td>JR:</td><td>$crew{'JR-1'}</td><td>&nbsp;</td><td>SK:</td><td>$crew{'SK-1'}</td></tr>
        <tr><td>JR:</td><td>$crew{'JR-2'}</td><td>&nbsp;</td><td>SK:</td><td>$crew{'SK-2'}</td></tr>
        <tr><td>OPR:</td><td>$crew{'OPR-1'}</td><td>&nbsp;</td><td>PBM:</td><td>$crew{'PBM'}</td></tr>
        <tr><td>OPR:</td><td>$crew{'OPR-2'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-1'}</td></tr>
        <tr><td>OPR:</td><td>$crew{'OPR-3'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-2'}</td></tr>
        <tr><td>$A</td><td>$crew{'ALT'}</td><td>&nbsp;</td><td>JT:</td><td>$crew{'JT'}</td></tr>
        <tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>SO:</td><td>$crew{'SO'}</td></tr>
</table><br>
game
} else {
        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";
}

        print "<table>\n<tr><td colspan=5><a href='/schedule/'>[ go home ]</td></tr></table><br>\n";



print<<tail;
</BODY>
</HTML>
tail