Subversion Repositories VORC

Rev

Rev 56 | Rev 121 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 56 Rev 65
Line 15... Line 15...
15 
use tableViewer;
 15 
use tableViewer;
16 
use RollerCon;
 16 
use RollerCon;
17 
our $h = HTML::Tiny->new( mode => 'html' );
 17 
our $h = HTML::Tiny->new( mode => 'html' );
Line 18... Line 18...
18 
 
 18 
 
19 
my $secure = "";
 19 
my $secure = "";
20 
if ($ENV{REQUEST_URI}  =~ /^\/scores.pl/) {
 20 
if ($ENV{SCRIPT_NAME}  =~ /^\/scores.pl/) {
21 
	$secure = 0;
 21 
	$secure = 0;
22 
} else {
 22 
} else {
23 
	$secure = 1;
 23 
	$secure = 1;
Line 192... Line 192...
192 
}
 192 
}
Line 193... Line 193...
193 
 
 193 
 
Line 194... Line 194...
194 
my $signedOnAs = $username ? "Welcome, $username. ".$h->a ({ href=>"index.pl", onClick=>"document.cookie = 'RCAUTH=; expires=Thu, 01 Jan 1970 00:00:01 GMT; path=/';return true;" }, "[Log Out]") : "You are not signed in.";
 194 
my $signedOnAs = $username ? "Welcome, $username. ".$h->a ({ href=>"index.pl", onClick=>"document.cookie = 'RCAUTH=; expires=Thu, 01 Jan 1970 00:00:01 GMT; path=/';return true;" }, "[Log Out]") : "You are not signed in.";
195 
 
 195 
 
196 
# Set some cookie stuff...
 196 
# Set some cookie stuff...
197 
my $path = `dirname $ENV{REQUEST_URI}`; chomp $path; $path .= '/' unless $path eq "/";
 197 
my $path = `dirname $ENV{SCRIPT_NAME}`; chomp $path; $path .= '/' unless $path eq "/";
198 
my $queryCookie = cookie(-NAME=>$prefscookie,
 198 
my $queryCookie = cookie(-NAME=>$prefscookie,
199 
			-VALUE=>"$QUERY_STRING",
 199 
			-VALUE=>"$QUERY_STRING",
Line 367... Line 367...
367 
        "If this page is displaying oddly, ", $h->a ({ href=>url ()."?ignoreCookie=1" }, "[Reset Your View]"),
 367 
        "If this page is displaying oddly, ", $h->a ({ href=>url ()."?ignoreCookie=1" }, "[Reset Your View]"),
368 
        @excelcode,
 368 
        @excelcode,
369 
        $h->br,
 369 
        $h->br,
370 
        "This page was displayed on ", currentTime (),
 370 
        "This page was displayed on ", currentTime (),
371 
        $h->br,
 371 
        $h->br,
372 
        "Please direct questions, problems, and concerns to Officials.RollerCon.Schedule\@gmail.com",
 372 
        "Please direct questions, problems, and concerns to $SYSTEM_EMAIL",
373 
        $h->br,
 373 
        $h->br,
374 
        "Displaying: ", $h->select ({ name=>"year", onchange=>"Req.submit();" }, [ @yearoptions ])
 374 
        "Displaying: ", $h->select ({ name=>"year", onchange=>"Req.submit();" }, [ @yearoptions ])
375 
      ])
 375 
      ])
376 
    ]),
 376 
    ]),
377 
    $h->div ({ class=>"spRight" }, [
 377 
    $h->div ({ class=>"spRight" }, [