#!/usr/bin/perl use lib "/opt/rt3/lib"; use lib "/opt/rt3/etc"; package RT; #use strict; use RT; use Carp; use RT::Ticket; use CGI; use DBI; use RT::CurrentUser; use RT::Interface::CLI; use MIME::Entity; # Load the RT configuration RT::LoadConfig(); # Initialise RT RT::Init(); # require "/var/www/cgi-bin/rt_variables.pl"; sub Lookup_email { my ($userid) = @_; my ($result); my $dbh; my $dbi_driver = "mysql"; my $dbi_dbname = "registration"; my $drh; my $dbh; $drh = DBI->install_driver($dbi_driver); $dbh = DBI->connect(''); $RT::Logger->error("Cannot connect: $DBI::errstr") unless $dbh; my $cursor = $dbh->prepare("SELECT user_id,email,fullname,dept_id,status FROM allusers WHERE user_id = '$userid'"); $cursor->execute; (my $user, my $email, my $fullname, my $dept_id, my $status) = $cursor->fetchrow; if ($user eq "") { # # Nothing found .... so for now put in a default # THIS IS GOING TO HAVE TO CHANGE TO ALLOW FOR AN ERROR PROPERLY # $result = "s.g.tranter\@lboro.ac.uk"; } else { $result = $email; } $cursor->finish; $result; } my $CurrentUser = RT::Interface::CLI::GetCurrentUser(); my $cgiobj = new CGI; $ea=$cgiobj->param("Queue"); print STDERR "EA:$ea\n"; # we need to get the e-mail from the username here. Parameter is called "Requestors". my $useremail = Lookup_email($cgiobj->param("Requestors")); my $ticket = new RT::Ticket($CurrentUser); my $ticket_body = MIME::Entity->build(Data => $cgiobj->param("Content"), Type => 'text/plain'); my %ticket_vals = ( Queue => $cgiobj->param("Queue"), Status => $cgiobj->param("Status"), 'CustomField-8' => $cgiobj->param("Object-RT::Ticket--CustomField-8-Values"), Requestor => $useremail, CC => $cgiobj->param("Cc"), AdminCC => $cgiobj->param("AdminCc"), Subject => $cgiobj->param("Subject"), 'CustomField-12' => $cgiobj->param("Object-RT::Ticket--CustomField-12-Value"), 'CustomField-14' => $cgiobj->param("Object-RT::Ticket--CustomField-14-Value"), MIMEObj => $ticket_body ); my (my $id, my $transaction_object, my $err) = $ticket->Create(%ticket_vals); $RT::Logger->error("Case created $id"); if($err) { $RT::Logger->error("$err"); } else { print < Redirection

Your browser doesn't seem to support redirections

The page you asked for : ... EOP }