Subversion Repositories PEEPS

#!/usr/bin/perl

# Redirect error messages to a log of my choosing. (it's annoying to filter for errors in the shared env)

#my $error_log_path = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "/home3/rollerco/logs/" : "/tmp/";

#close STDERR;

#open STDERR, '>>', $error_log_path.'vorc_error.log' or warn "Failed to open redirected logfile ($0): $!";

#warn "Redirecting errors to ${error_log_path}vorc_error.log";

#if ($ENV{SHELL}) { die "This script shouldn't be executed from the command line!\n"; }

use strict;

use CGI qw/param cookie header start_html url/;

use HTML::Tiny;

use tableViewer;

use PEEPS;

our $h = HTML::Tiny->new( mode => 'html' );

$ENV{HTTPS} = 'ON' if $ENV{SERVER_NAME} =~ /^peeps/;

my $cookie_string = authenticate (1) || die;

our ($EML, $PWD, $LVL) = split /&/, $cookie_string;

my $PEEPSAUTH_cookie = CGI::Cookie->new(-name=>'PEEPSAUTH',-value=>"$cookie_string",-expires=>"+30m");

my $pageTitle = "Org Log Viewer";

our $DBTABLE = 'v_org_log';

my %COLUMNS = (

# colname   =>  [qw(DisplayName       N    type     status)],   status ->  static | default | <blank>

  eventid     => [qw(EventID       5    number      default )],

  timestamp   => [qw(Timestamp    10    date        default )],

  event       => [qw(Event        15    text        default )],

  person_id   => [qw(PEEPSID      20    number       )],

  derby_name  => [qw(Actor        25    select      default )],

  organization_id   => [qw(ORGID      30    number       )],

  league_name => [qw(League      35    select      default )],

);

my @leagues = @{ isLeagueAdmin ($ORCUSER->{person_id}) };

do {

  print header (-cookie=> [ $cookie_string, $PEEPSAUTH_cookie ] );

  printRCHeader ("Organization Log Viewer");

  print $h->div ({class => "error"}, "Only League Admins can view the Organization Log");

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

  logit ($ORCUSER->{person_id}, "Tried to view the Organization Logs and isn't a League Admin");

  exit;

} unless $ORCUSER->{SYSADMIN} or scalar @leagues;

# Set any custom "where" DB filters here...

my @whereClause;

push @whereClause, "organization_id in (".join (", ", @leagues).")" unless $ORCUSER->{SYSADMIN};

# If we need to modify line item values, create a subroutine named "modify_$columnname"

#    It will receive a hashref to the object lineitem

# If we need to modify how a filter works, create a subroutine named "filter_$columnname"

#    It will receive two fields, the field name and the current filter value (if any)

sub filter_derby_name {

  my $colName = shift;

  my $filter = shift;

  my $dbh = getDBConnection ();

  if (defined $filter)  {

    if ($filter eq "<-blank->") {

      return "$colName = \"\" or isnull($colName) = 1";

    } else {

      return "$colName = \"$filter\"";

    }

  } else {

    my $Options = $ORCUSER->{SYSADMIN} ?

         $h->option ("", "<-blank->", @{ $dbh->selectall_arrayref ("select distinct derby_name from $DBTABLE where derby_name <> '' order by derby_name") })

       : $h->option ("", @{ $dbh->selectall_arrayref ("select distinct derby_name from $DBTABLE where organization_id in (".join (", ", @leagues).") order by derby_name") });

    my $tmpfilter = getFilterValue ($colName);

    $Options =~ s/>($tmpfilter)/ selected>$1/;

    return "<SELECT name=filter-${colName} onChange='page.value = 1; submit();'>$Options</SELECT>";

  }

}

sub filter_league_name {

  my $colName = shift;

  my $filter = shift;

  my $dbh = getDBConnection ();

  if (defined $filter)  {

    if ($filter eq "<-blank->") {

      return "$colName = \"\" or isnull($colName) = 1";

    } else {

      return "$colName = \"$filter\"";

    }

  } else {

    my $Options = $ORCUSER->{SYSADMIN} ?

         $h->option ("", "<-blank->", @{ $dbh->selectall_arrayref ("select distinct league_name from $DBTABLE where league_name <> '' order by league_name") })

       : $h->option ("", sort map { getLeagueName ($_) } @leagues);

    my $tmpfilter = getFilterValue ($colName);

    $Options =~ s/>($tmpfilter)/ selected>$1/;

    return "<SELECT name=filter-${colName} onChange='page.value = 1; submit();'>$Options</SELECT>";

  }

}

# Uncomment and update if we want to enable clicking on a row to open a new page.

#

#sub addRowClick {

#  my $t = shift;

#  return "location.href='view_thing.pl?field=$t->{field}&choice=View'";

#}

# Call the function to print the table view page (with available options)

printTablePage ({ Title   => $pageTitle,

#                  Prefs   => $prefscookie,

                  Table   => $DBTABLE,

                  Columns => \%COLUMNS,

                  RCAuth  => $PEEPSAUTH_cookie,

                  Where   => join (" and ", @whereClause),

                  DisplayYearSelect  => 0,

                  ShowMyShifts       => 0,

                  PersonalTimeButton => 0,

                  HighlightShifts    => 0,

#                  HeaderButton       => { field  => "id",

#                                          button => $h->input ({ type=>"button", value=>"Add", onClick=>"window.location.href='view_game.pl'" }) }

               });