Subversion Repositories ORC

Rev

Rev 7 | 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;

my $cookie_string = authenticate(1) || 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 $RCid = $query->param('RCid');
my $id = $query->param('id');
my $role = $query->param('role');
my $noshow = $query->param('noshow');

        print<<page1;
        <html><head><title>RollerCon Officials Schedule Manager - 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>
page1


if ($change eq "lookup") {
        if ($LVL < 2) {
                print<<errorout;
                <TR>
                        <TD valign=top><font color=red><b>ERROR: </b></font>You're not allowed to change other people's schedules.</td>
                        <TD valign=top></TD>
                </TR>
                        
        </TABLE>
errorout
        die;
        } else {
                
        }
        my $options = fetchDerbyNameWithRCid();
        
        print<<page2;
<FORM action=make_shift_change.pl>
<INPUT type=hidden name=change value=add>
<INPUT type=hidden name=id value=$id>
<INPUT type=hidden name=role value=$role>
                <TR>
                        <TD valign=top>Add User to Shift (Game $id / Role $role):</td>
                </tr><tr>
                        <TD valign=top><SELECT name=RCid>$options</SELECT> </TD>
                </TR><tr>
                  <td><input type=submit name=Save> <input type=reset name=Cancel onClick=window.close();></td>
                  </tr>
</FORM>
        </TABLE>

page2
        
} else {
        print<<page1;
                <TR>
                        <TD valign=top>Making a shift change...</td>
                        <TD valign=top></TD>
                </TR>
                        
        </TABLE>
page1

if ($noshow eq "true") {
  logit($RCid, "NO SHOW: Game ($id): $role");
  logit($user->{RCid}, "Logged a No Show for ($RCid): Game ($id): $role");
  print "Logged a No Show and removing the official from the shift...";
  #logit
} elsif ($RCid eq $user->{RCid}) {
  print "So, <b>$user->{derby_name}</b>, you\'d like to <b>$change</b> a shift where you are <b>$role</b> for game <b>$id</b>...";
} else {
  my $target = getUserDerbyName($RCid);
  print "So, <b>$user->{derby_name}</b>, you\'d like to <b>$change</b> a shift where <b>$target</b> is <b>$role</b> for game <b>$id</b>...";  
}

        my $change_err = changeShift($change, $id, $role, $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
}