Subversion Repositories ORC

#!/usr/bin/perl

use strict;
use cPanelUserConfig;
use RollerCon;
use CGI;
use CGI::Cookie;
use WebDB;
our $h = HTML::Tiny->new( mode => 'html' );

my $cookie_string = authenticate(1) || die;
my ($EML, $PWD, $LVL) = split /&/, $cookie_string;
my $user = getUser($EML);
$user->{department} = convertDepartments $user->{department};
my $activated = max (values %{ $user->{department} });
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
my $DEPTS = getDepartments;

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

#foreach (sort keys %ENV) {
#       print "$_: $ENV{$_}\n<br>";
#}

#use DBI;
#my $dbh = WebDB->connect ();
my $dbh = getRCDBH;

use DateTime;
my $dt = DateTime->today;
$dt =~ s/T00\:00\:00$//;

my $schedule = getSchedule ($user->{RCid});

my @everyone;
my @printDEPTS = map { $DEPTS->{$_} } grep { $user->{department}->{$_} > 0 } grep { !/(ANN)|(OFF)/ } sort keys %{$user->{department}};
push @printDEPTS, "Officiating Lead" if $user->{department}->{"OFF"} > 1;
my $printDEPTS = join ", ", @printDEPTS;
push @everyone, $h->li ($h->a ({ href=>"/schedule/shifts.pl" }, "View and Sign Up for $printDEPTS Shifts")) if $printDEPTS;
push @everyone, $h->li ($h->a ({ href=>"/schedule/officiating_shifts.pl" }, "View and Sign Up for Officiating Shifts")) if $user->{department}->{OFF} > 0;
push @everyone, $h->li ($h->a ({ href=>"/schedule/announcer_shifts.pl" }, "View and Sign Up to Announce Games")) if $user->{department}->{ANN} > 0;
push @everyone, $h->li ($h->a ({ href=>"/schedule/manage_personal_time.pl" }, "Block Personal Time"));
push @everyone, $h->li ($h->a ({ href=>"/schedule/manage_user.pl?submit=Edit&RCid=$user->{RCid}" }, "Edit your profile"));

my @mvppass;
if ($user->{department}->{CLA} > 0) {
        push @mvppass, $h->li ($h->a ({ href=>"/schedule/mvpclasses.pl" }, "View and Sign Up for MVP Classes"))
}

my @leads = ();
if ($LVL > 1) {
        push @leads, $h->li ($h->a ({ href=>"/schedule/user_report.pl" }, "View Users in your Department(s)."));
        push @leads, $h->li ($h->a ({ href=>"/schedule/password_reset.pl" }, "Reset a Password."));

        # Officiating Leads:
        if ($user->{department}->{OFF} > 1) {
                unshift @leads, $h->li ($h->a ({ href=>"/schedule/scores.pl" }, "View / Update Game Scores"));
#                push @leads, $h->li ($h->a ({ href=>"daily_print.pl" }, "Daily Print Report"));
                push @leads, $h->li (["What's happening right now on...", $h->ul ([
                        $h->li ($h->a ({ href=>"right_now.pl?t=C1" }, "Track C1")),
                        $h->li ($h->a ({ href=>"right_now.pl?t=C2" }, "Track C2")),
                        $h->li ($h->a ({ href=>"right_now.pl?t=C3" }, "Track C3")),
                        $h->li ($h->a ({ href=>"right_now.pl?t=C4" }, "Track C4")),
#                       $h->li ($h->a ({ href=>"right_now.pl?t=B"  }, "Track B")),
                ])]);
        }
}
        
my @managers;
if ($LVL >= 3) {
        my $manager_departments = join " or ", map { "department like '%$_-0%'" } grep { $user->{department}->{$_} > 2 } keys %{$user->{department}};
        if ($manager_departments) {
        my ($count) = $dbh->selectrow_array ("select count(*) from official where $manager_departments");
        my $counttxt = $count == 1 ? "is 1 user" : "are $count users";
        push @managers, $h->li ($h->a ({ href=>"user_report.pl?autoload=1&RCid=true&derby_name=true&email=true&real_name=true&access=true&department=true&added=true&filter-RCid=&filter-derby_name=&filter-email=&filter-real_name=&filter-access=0&filter-department=&filter-added=&sortby=derby_name&limit=25&page=1" }, "There $counttxt waiting to be activated")) if $count;
        }
        push @managers, $h->li ($h->a ({ href=>"/schedule/log.pl" }, "Activity Log"));
  push @managers, $h->li ($h->a ({ href=>"/schedule/volhours.pl" }, "View Volunteer Hours by Department"));
  
  foreach (grep { $user->{department}->{$_} > 2 } keys %{$user->{department}}) {
    push @managers, $h->li ($h->a ({ href=>"/schedule/shifts.pl?autoload=1&dept=true&role=true&dayofweek=true&location=true&time=true&note=true&derby_name=true&filter-dept=$_&sortby=dayofweek&limit=All&page=1" }, "$DEPTS->{$_} Staff Schedule"));
  }
  
  if ($user->{department}->{VCI} > 2 or $user->{department}->{MVP} > 2 or $LVL > 4) {
    push @managers, $h->li ($h->a ({ href=>"/schedule/mvp_class_report.pl", target=>"_new" }, "Daily MVP Class Report (for print)"));
    push @managers, $h->li ($h->a ({ href=>"/schedule/daily_print.pl", target=>"_new" }, "Daily Officiating Report (for print)"));
    push @managers, $h->li ($h->a ({ href=>"/schedule/daily_print_announcers.pl", target=>"_new" }, "Daily Announcers Report (for print)"));
    push @managers, $h->li ($h->a ({ href=>"/schedule/print_dept_by_day.pl", target=>"_new" }, "BETA: Daily Shift Report (for print)"));
  }
  
        # Shift Report: select dayofweek, count(RCid) as filled_shifts, count(*) - count(RCid) as open_shifts, count(*) as total_shifts from v_shift group by date order by date
}

my @sysadmins;
if ($LVL >= 5) {
  push @sysadmins, $h->li ($h->a ({ href=>"/schedule/bulk_upload.pl" }, "Upload a CSV of Department Shifts"));
        push @sysadmins, $h->li ($h->a ({ href=>"/schedule/manage_shifts.pl" }, "Update department shift schedule"));
        
        my ($signupcount) = $dbh->selectrow_array ("select count(*) from v_shift where dept = ? and RCid <> ''", undef, "CLA");
        my ($mvpcount)    = $dbh->selectrow_array ("select count(*) from official where department REGEXP ?", undef, "CLA-1");
        
        $mvpcount = 265 unless $mvpcount;
        
        push @sysadmins, $h->li ($mvpcount." MVP Passholders have signed up for ".$signupcount." spots (".sprintf("%.2f", ($signupcount / ($mvpcount*6)) * 100)."\%).");
        
        my ($active) = $dbh->selectrow_array ("select count(distinct RCid) as users from log where timestamp > (now() - interval 30 minute) and event not like 'Updated User Details%' and event not like 'Activated to work%'");
        #my ($active) = $dbh->selectrow_array ("select * from official where last_login > (now() - interval 150 minute) order by last_login desc");
        push @sysadmins, $h->li ("There seem to be about $active user session(s) right now.");
#  push @sysadmins, $h->li ($h->a ({ href=>"/schedule/volhours.pl" }, "View Volunteer Hours by Department"));
}

my @activity_log;
my $alog = $dbh->prepare("select timestamp, event from v_log where RCid = ? limit 10");
$alog->execute($user->{RCid});
while (my @logs = $alog->fetchrow_array) {
        my ($d, $t) = split /\s+/, $logs[0];
        push @activity_log, $h->li ({ class=>"shaded" }, join " ", @logs);
}

my @reference;
push @reference, $h->li ($h->a ({ href=>"/info.html" }, "Information about using this tool"));
push @reference, $h->li ($h->a ({ href=>"http://rollercon.com/help-wanted/officiating/" }, "RollerCon Officiating Details"));

printRCHeader("Home");
print $h->close ("table");

print $h->form ({ name=>"Req", action=>url });

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Note:"), "<b>Your account is being reviewed.</b>", $h->br, "You won't have access to view or sign-up for things until you've been approved / added to a department.", $h->br, "Please watch your email for notifications." ]) unless $activated;

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Your up-coming schedule (as of $dt):"), $schedule, $h->h5 ("[".$h->a ({ href=>"export_ics.pl?RCid=$user->{RCid}" }, "use this link for iCal")."]") ]) if $schedule;

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "MVP Pass Holders:"), $h->ul ([ @mvppass ]) ]) if (scalar @mvppass);

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Things you can do:"), $h->ul ([ @everyone ]) ]);

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Things you can do as a Lead:"), $h->ul ([ @leads ]) ]) if ($LVL > 1);

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Things you can do as a Manager:"), $h->ul ([ @managers ]) ]) if ($LVL > 2);

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Things you can do as a SysAdmin:"), $h->ul ([ @sysadmins ]) ]) if ($LVL >= 5);

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Your Latest Activity:"), $h->ul ([ @activity_log ]), $h->h5 ($h->a ({ href=>"log.pl?excel=0&autoload=1&eventid=true&timestamp=true&event=true&RCid=true&derby_name=true&filter-timestamp=&filter-event=&filter-RCid=".$user->{RCid}."&filter-derby_name=&sortby=eventid&limit=25&page=1" }, "[Your entire log history]")) ]);

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Reference:"), $h->ul ([ @reference ]) ]);

print $h->close ("body"), $h->close ("html");
;