Subversion Repositories VORC

#!/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";

use strict;

use cPanelUserConfig;

use WebDB;

use HTML::Tiny;

use RollerCon;

use CGI qw/param header start_html url/;

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

my %F;

my $cookie_string = authenticate (RollerCon::ADMIN) || die;

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

my $user = getUser ($EML);

$user->{department} = convertDepartments $user->{department};

my $DepartmentNames = getDepartments ();

my $username = $user->{derby_name};

my $RCid = $user->{RCid};

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

my $YEAR = 1900 + (localtime)[5];

my $pageTitle = "Email Users";

my $homeURL = "/schedule/";

sub emailUsers {

  error ("ERROR: Only SysAdmins can change games.") unless $LVL >= RollerCon::ADMIN;

  my ($type, $ID, $subject, $body) = @_;

	my @emails;

  my $dbh = WebDB::connect ();

	if ($type eq "class") {

    push @emails, map { @{$_} } @{ $dbh->selectall_arrayref ("select email from v_class_signup_new join official on v_class_signup_new.RCid = official.RCid where id = ?", undef, $ID) };

	} elsif ($type eq "game") {

	  push @emails, map { @{$_} } @{ $dbh->selectall_arrayref ("select email from v_shift_officiating where id = ? and isnull(email) = 0 union select email from v_shift_announcer where id = ? and isnull(email) = 0", undef, $ID, $ID) };

	}

	$dbh->disconnect ();

	use RCMailer;

	foreach (@emails) {

	  EmailUser ($_, $subject, $body);

	  sleep (1);

	}

  print "SENT!";

	return;

}

print header (),

			start_html (-title => $pageTitle, -style => {'src' => "/style.css"} );

print $h->div ({ class => "accent pageheader" }, [

  $h->h1 ($pageTitle),

  $h->div ({ class=>"sp0" }, [

    $h->div ({ class=>"spLeft" }, [

    ]),

    $h->div ({ class=>"spRight" }, [

      $h->input ({ type=>"button", value=>"Home", onClick=>"window.location.href='$homeURL'" }),

    ]),

  ]),

]);

my $SEND = "";

if (param ("choice") eq "Send Email") {

  $SEND = 1;

}

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

my $type    = chooseType ();

my $ID      = chooseID   ($type);

printDetails ($type, $ID) unless (!$type or !$ID);

my $subject = setSubject ();

my $body    = setBody ();

my $choice = param ("choice") // "";

print $h->br, $h->br;

if ($SEND) {

  emailUsers ($type, $ID, $subject, $body);

} else {

  print $h->input ({ type=>"button", value => "Cancel" , onClick=>"history.back(); return false;" });

  print " ";

  print $h->input ({ type=>"submit", name=>"choice", value => "Send Email" });

}

print $h->close ("form");

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

sub chooseType {

  my $type = param ("type") // "";

  $type = "" unless ($type eq "class" or $type eq "game");

  for ("class", "game") {

    my %PROPS = (

      type     => "radio",

      id       => $_,

      name     => "type",

      value    => $_,

      onChange => "Req.ID.value=''; submit();"

    );

    $PROPS{checked} = [] if $type eq $_;

    $PROPS{disabled} = [] if $SEND;

    print $h->input (\%PROPS);

    print $h->label ({for=>$_}, ucfirst $_);

    print $h->br;

  }

  print $h->br;

  return $type;

}

sub chooseID {

  my $type = shift // "";

  my $ID = param ("ID") // "";

  $ID = "" unless $ID =~ /^\d+$/;

  if (!$type) {

    print $h->div ("Please select either Class or Game.");

    print $h->input ({type=>"hidden", name=>"ID"});

    print $h->br;

    return "";

  } else {

    my $table = $type eq "class" ? "v_class_new" : "v_games";

    my $field = $type eq "class" ? "name" : "teams";

    my $dbh = WebDB::connect ();

    #push @queued_users, map { @{$_} } @{ $qdbh->selectall_arrayref ("select queueid from queue where timestampdiff(minute, last_seen, now()) < 7 and (timestamp <> last_seen or timestampdiff(second, last_seen, now()) <= 60) order by timestamp") };

    my %things = map { $_->[0] => $_->[1] } @{ $dbh->selectall_arrayref ("select distinct id, $field from $table where year(date) = year(now())") };

  	$dbh->disconnect ();

  	if ($SEND) {

  	  print $h->div([ucfirst $type.": ", $things{$ID}]);

  	} else {

      print $h->div([ucfirst $type.": ", $h->select ({ name=>"ID", onChange=>"submit();" }, [ $h->option (),

        map { $ID eq $_ ? $h->option ({ value=>$_, selected=>[] }, $things{$_}) : $h->option ({ value=>$_ }, $things{$_}) } sort { $things{$a} cmp $things{$b} } keys %things

      ])]);

    }

  }

  print $h->br;

  return $ID;

}

sub printDetails {

  my $type = shift // "";

  my $ID   = shift // "";

  error ("No Class or Game Selected") unless $type and $ID;

  my $dbh = WebDB::connect ();

  my $user_count;

  if ($type eq "class") {

    print map { $_.$h->br } $dbh->selectrow_array ("select id, name, coach, date, dayofweek, time, location from v_class_new where id = ?", undef, $ID);

    ($user_count) = $dbh->selectrow_array ("select count(email) from v_class_signup_new join official on v_class_signup_new.RCid = official.RCid where id = ?", undef, $ID);

    print $user_count." Users".$h->br;

  } elsif ($type eq "game") {

    print map { $_.$h->br } $dbh->selectrow_array ("select id, teams, date, dayofweek, time, track, gtype from v_games where id = ?", undef, $ID);

    ($user_count) = $dbh->selectrow_array ("select count(*) from (select email from v_shift_officiating where id = ? and isnull(email) = 0 union select email from v_shift_announcer where id = ? and isnull(email) = 0) temptable", undef, $ID, $ID);

    print $user_count." Users".$h->br;

  } else {

    error ("Unknown Type: ".$type);

  }

	$dbh->disconnect ();

  print $h->br;

}

sub setSubject {

  my $subject = param ("subject") // "";

  if ($SEND) {

    print "Subject: ", $h->input ({ type=>"text", name=>"subject", value=>"$subject", size=>30, readonly=>[] });

  } else {

    print "Subject: ", $h->input ({ type=>"text", name=>"subject", value=>"$subject", size=>30 });

  }

  print $h->br;

  print $h->br;

  return $subject;

}

sub setBody {

  my $body = param ("body") // "";

  if ($SEND) {

    print $h->tag ("textarea", { name=>"body", value=>"$body", cols => 45, rows => 10, readonly=>[] }, $body);

  } else {

    print $h->tag ("textarea", { name=>"body", value=>"$body", cols => 45, rows => 10 }, $body);

  }

  return $body;

}

sub error {

	my $msg = shift;

	print $h->p ({ class=>"error" }, "Error: $msg");

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

	exit (0);

}