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

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

my $user = getUser($EML);

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

my $RCid   = param ('RCid') // $user->{RCid};

my $MVPid     = param ('MVPid');

print start_html (-title => "vORC Update MVP Ticket Match", -style => {'src' => "/style.css"}), $h->open ("body");

if ($change eq "lookup") {

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

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

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

    $h->p ("Match ticket to User ($RCid):"),

    $h->input ({ type=>"text", name=>"MVPid", id=>"pickticket" }),

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

    $h->button ({ onClick=>"window.close();" }, "Cancel")

  ]);

} else {

  print $h->p ("Making an MVP Ticket change...");

  my $target = getUserDerbyName ($RCid);

  print $h->p ("So, <b>$user->{derby_name}</b>, you'd like to <b>$change</b> an MVP Ticket for <b>$target</b>: <b>$RCid</b>...");

  my $change_err = changeTicket($change, $RCid, $MVPid);

  my $closer;

  if ($change_err) {

    print $change_err;

    if ($change_err =~ /^WARNING/) {

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

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

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

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

    		$h->input ({ type=>"submit", value=>"OVERRIDE", onClick=>"if (confirm('Are you sure you want to override the warning?')==true) { return true } else { return false }" }),

  	  ]);

    }

    print $h->br, $h->button ({ onClick=>"window.close();" }, "Close");

  } else {

    print "<br>This window will close automatically in 3 seconds.";

    $closer = 'setTimeout(() => { window.close(); }, 3000);';

  }

  print<<tail;

  <SCRIPT language="JavaScript">

  <!--

  		function reloadParent() {

        window.opener.location.reload();

        $closer

  		}

  		reloadParent();

  //-->

  </SCRIPT>

tail

}

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

sub changeTicket {

  my $change = shift // "";

  my $rcid   = shift // "";

  my $mvpid  = shift // "";

  return "ERROR: Missing Details to make the change" unless $change and $rcid and $mvpid;

  my $dbh = getRCDBH;

  my $sth;

  if ($change eq "Delete" or $change eq "override") {

    if ($change ne "override") {

      my ($badidea) = $dbh->selectrow_array ("select id from v_ticket where RCid = ? and email = vorc_email and full_name = vorc_full_name", undef, $rcid);

      return "WARNING: This user's email and full name match the MVP ticket. (It will likely re-match.)" if $badidea;

    }

    $sth = $dbh->prepare ("delete from RCid_ticket_link where RCid = ? and MVPid = ?");

  } else {

    my ($taken) = $dbh->selectrow_array ("select RCid from RCid_ticket_link where MVPid = ? or RCid = ?", undef, $mvpid, $rcid);

    return "ERROR ($taken): Either that user or that ticket is already matched." if $taken;

    my ($exists) = $dbh->selectrow_array ("select id from ticket where id = ?", undef, $mvpid);

    return "ERROR: That MVP Ticket doesn't seem to exist ($mvpid)." unless $exists;

    $sth = $dbh->prepare ("insert into RCid_ticket_link (RCid, MVPid) values (?, ?)");

  }

  if ($sth->execute ($rcid, $mvpid)) {

    logit ($user->{RCid}, "Updated MVP Ticket: $rcid $change $mvpid");

    logit ($rcid, "MVP Ticket Change: $user->{derby_name} $change");

    print "SUCCESS!";

    return;

  } else {

    return "ERROR: Something failed. Maybe this will help:". $sth->errstr();

  }

}