Subversion Repositories ORC

Rev

Blame | Last modification | View Log | RSS feed 

#!/usr/bin/perl -w

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>...
page1

my $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