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 RollerCon;

use tableViewer;

use CGI qw/param cookie header start_html url/;

use HTML::Tiny;

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

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

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

my $user = getUser($EML);

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

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

print header (-cookie=>$RCAUTH_cookie);

#foreach (sort keys %ENV) {

#	print "$_: $ENV{$_}\n<br>";

#}

my $change = param ('modtime') // "pick";

my $RCid   = param ('RCid');

my $shiftid     = param ('shiftid');

my $department = getShiftDepartment ($shiftid);

print start_html (-title => "vORC Modify Shift Time", -style => {'src' => "/style.css"}), $h->open ("body");

if ($user->{department}->{$department} < 2 or $LVL < 5) {

	print $h->div ({ class=>"error" }, "ERROR: You're not allowed to modify this shift's time.");

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

  die;

} elsif (!$shiftid or !$RCid) {

	print $h->div ({ class=>"error" }, "ERROR: Missing required fields.");

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

  die;

} elsif ($RCid eq $user->{RCid} and ($user->{department}->{$department} < 3 or $LVL < 5)) {

	print $h->div ({ class=>"error" }, "ERROR: Leads aren't allowed to modify their own shift's time.");

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

  die;

}

if ($change eq "pick") {

	use WebDB;

	my $dbh = WebDB::connect ();

	my ($current, $shiftlength) = $dbh->selectrow_array ("select mod_time, volhours from v_shift where RCid = ? and id = ?", undef, $RCid, $shiftid);

	$shiftlength -= $current;

	my $options;

	print $h->p ("Modifying time for Shift ($shiftid):");

	print $h->p ({ class=>"hint" }, "Add or Remove volunteer time earned if someone stays late or leaves early.");

  print $h->form ({ action=>url }, [

    $h->input ({ type=>"hidden", name=>"shiftid", value=>$shiftid }),

    $h->input ({ type=>"hidden", name=>"RCid", value=>$RCid }),

#    $h->p ("Modify Time for Shift ($RCid):"),

    $h->input ({ name=>"modtime", type=>"number", value=>$current, step=>.25, min=>-$shiftlength, id=>"pickname" }),

    $h->input ({ type=>"submit", value=>"Save", onClick=>"if (document.getElementById('pickname').selectedIndex === 0) { return false; }" }),

    $h->input ({ type=>"reset", value=>"Cancel", onClick=>"window.close();" })

  ]);

} else {

	print $h->p ("Modifying Shift Time...");

    my $target = getUserDerbyName ($RCid);

    print $h->p ("So, <b>$user->{derby_name}</b>, you'd like to add/remove time from a shift for <b>$target</b>: <b>$RCid</b>...");

	my $change_err = modShiftTime ($shiftid, $RCid, $change);

	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();

			}

			reloadParent();

	//-->

	</SCRIPT>

	</body></html>

tail

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

}