ASNMTAP
view release on metacpan or search on metacpan
applications/htmlroot/cgi-bin/comments.pl view on Meta::CPAN
$CsuspentionTimeslot = timelocal($tsec, $tmin, $thour, $tday, $tmonth, $tyear);
} else {
$CsuspentionTimeslot = '';
}
my ($CentryDate, $CentryTime, $CentryTimeslot, $CsolvedDate, $CsolvedTime, $CsolvedTimeslot);
if ($action eq 'historyView' or $action eq 'history') {
$CentryDate = ($cgi->param('entryDate') or '');
$CentryTime = ($cgi->param('entryTime') or '');
if ($CentryDate ne '' and $CentryTime ne '') {
($tyear, $tmonth, $tday) = split(/\-/, $CentryDate);
$tyear -= 1900; $tmonth--;
($thour, $tmin, $tsec) = split(/:/, $CentryTime);
$CentryTimeslot = timelocal($tsec, $tmin, $thour, $tday, $tmonth, $tyear);
} else {
$CentryTimeslot = '';
}
$CsolvedDate = ($cgi->param('solvedDate') or '');
$CsolvedTime = ($cgi->param('solvedTime') or '');
if ($CsolvedDate ne '' and $CsolvedTime ne '') {
($tyear, $tmonth, $tday) = split(/\-/, $CsolvedDate);
$tyear -= 1900; $tmonth--;
($thour, $tmin, $tsec) = split(/:/, $CsolvedTime);
$CsolvedTimeslot = timelocal($tsec, $tmin, $thour, $tday, $tmonth, $tyear);
} else {
$CsolvedTimeslot = '';
}
} else {
$CentryDate = ($cgi->param('entryDate') or "$currentYear-$currentMonth-$currentDay");
$CentryTime = ($cgi->param('entryTime') or "$currentHour:$currentMin:$currentSec");
$CentryTimeslot = ($cgi->param('entryTimeslot') or timelocal($currentSec, $currentMin, $currentHour, $currentDay, $localMonth, $localYear));
if ($CproblemSolved) {
$CsolvedDate = ($cgi->param('solvedDate') or "$currentYear-$currentMonth-$currentDay");
$CsolvedTime = ($cgi->param('solvedTime') or "$currentHour:$currentMin:$currentSec");
$CsolvedTimeslot = ($cgi->param('solvedTimeslot') or timelocal($currentSec, $currentMin, $currentHour, $currentDay, $localMonth, $localYear));
} else {
$CsolvedDate = ($cgi->param('solvedDate') or "0000-00-00");
$CsolvedTime = ($cgi->param('solvedTime') or "00:00:00");
$CsolvedTimeslot = ($cgi->param('solvedTimeslot') or '');
}
}
# Init parameters
my ($rv, $dbh, $sth, $sql, $numberRecordsIntoQuery, $uKey, $title, $dummy, $submitButton, $nextAction, $commentText, $commentData, $uKeySelect, $matchingComments, $navigationBar, $remoteUsersSelect);
$nextAction = '';
# Serialize the URL Access Parameters into a string
my $urlAccessParameters = "pagedir=$pagedir&pageset=$pageset&debug=$debug&CGISESSID=$sessionID&pageNo=$pageNo&pageOffset=$pageOffset&action=$action&catalogID=$CcatalogID&id=$Cid&uKey=$CuKey&title=$Ctitle&entryDate=$CentryDate&entryTime=$CentryTim...
# Debug information
print "<pre>pagedir : $pagedir<br>pageset : $pageset<br>debug : $debug<br>CGISESSID : $sessionID<br>page no : $pageNo<br>page offset : $pageOffset<br>action : $action<br>catalog ID : $CcatalogID<br>id ...
# open connection to database and query data
$rv = 1;
$dbh = DBI->connect("dbi:mysql:$DATABASE:$SERVERNAMEREADONLY:$SERVERPORTREADONLY", "$SERVERUSERREADONLY", "$SERVERPASSREADONLY" ) or $rv = error_trap_DBI(*STDOUT, "Cannot connect to the database", $debug, $pagedir, $pageset, $htmlTitle, $subTitle...
if ($dbh and $rv) {
if ($action eq 'insertView' or $action eq 'createView' or $action eq 'historyView') {
if ($CuKey eq 'none') {
$sql = "select uKey, concat( LTRIM(SUBSTRING_INDEX(title, ']', -1)), ' (', $SERVERTABLENVIRONMENT.label, ')' ) as optionValueTitle from $SERVERTABLPLUGINS, $SERVERTABLENVIRONMENT where catalogID = '$CcatalogID' and $SERVERTABLPLUGINS.enviro...
} else {
$sql = "select uKey, concat( LTRIM(SUBSTRING_INDEX(title, ']', -1)), ' (', $SERVERTABLENVIRONMENT.label, ')' ) from $SERVERTABLPLUGINS, $SERVERTABLENVIRONMENT where uKey = '$CuKey' and catalogID = '$CcatalogID' and $SERVERTABLPLUGINS.enviro...
}
($rv, $uKeySelect, $htmlTitle) = create_combobox_from_DBI ($rv, $dbh, $sql, 0, ($supportRequest ? 'create' : 'insert'), $CuKey, 'uKey', 'none', '-Select-', '', '', $pagedir, $pageset, $htmlTitle, $subTitle, $sessionID, $debug);
if ($rv) {
$nextAction = ($action eq 'insertView') ? 'insert' : (($action eq 'createView') ? 'create' : 'history');
}
} else {
($rv, $Ctitle) = get_title( $dbh, $rv, $CcatalogID, $CuKey, $debug, -1, $sessionID );
$Ctitle = $CuKey if (! defined $Ctitle or $Ctitle eq '');
if ($action eq 'insert') {
$htmlTitle = "$Ctitle: id $Cid inserted";
$nextAction = "listView" if ($rv);
} elsif ($action eq 'create') {
$htmlTitle = "$Ctitle: id $Cid created";
$nextAction = "listView" if ($rv);
} elsif ($action eq 'deleteView') {
$htmlTitle = "$Ctitle: delete id $Cid ?";
$commentText = "Solution comment";
$commentData = '';
$submitButton = "Solved";
$nextAction = "delete" if ($rv);
} elsif ($action eq 'delete') {
$htmlTitle = "$Ctitle: id $Cid solved";
$nextAction = "listView" if ($rv);
} elsif ($action eq 'editView') {
$htmlTitle = "$Ctitle: edit id $Cid ?";
$commentText = "Edit comment";
$commentData = '';
$submitButton = "Edit";
$nextAction = "edit" if ($rv);
} elsif ($action eq 'edit') {
$htmlTitle = "$Ctitle: id $Cid edited";
$nextAction = "listView" if ($rv);
} elsif ($action eq 'listView') {
$htmlTitle = "$Ctitle: active id's listed";
$nextAction = "listView" if ($rv);
} elsif ($action eq 'listAllView') {
$htmlTitle = "$Ctitle: all active id's listed";
$nextAction = "listAllView" if ($rv);
} elsif ($action eq 'updateView') {
$htmlTitle = "$Ctitle: update id $Cid ?";
$commentText = "Update comment";
$commentData = '';
$submitButton = "Update";
$nextAction = "update" if ($rv);
} elsif ($action eq 'update') {
$htmlTitle = "$Ctitle: id $Cid updated";
$nextAction = "listView" if ($rv);
} elsif ($action eq 'solvedView') {
$htmlTitle = "$Ctitle: solved id's listed";
$nextAction = "solvedView" if ($rv);
} elsif ($action eq 'history') {
$htmlTitle = "$Ctitle: history id's listed";
$nextAction = "history" if ($rv);
}
}
$dbh->disconnect or $rv = error_trap_DBI(*STDOUT, "Sorry, the database was unable to add your entry.", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', $sessionID);
}
if ( $rv ) {
$dbh = DBI->connect("dbi:mysql:$DATABASE:$SERVERNAMEREADWRITE:$SERVERPORTREADWRITE", "$SERVERUSERREADWRITE", "$SERVERPASSREADWRITE" ) or $rv = error_trap_DBI(*STDOUT, "Cannot connect to the database", $debug, $pagedir, $pageset, $htmlTitle, $su...
if ($action eq 'insertView' or $action eq 'createView' or $action eq 'historyView') {
my ($remoteUser, $givenName, $familyName);
if (($action eq 'insertView' or $action eq 'createView') and defined $remoteUserLoggedOn) {
$CremoteUser = $remoteUserLoggedOn;
$sql = "select remoteUser, email from $SERVERTABLUSERS where catalogID = '$CcatalogID' and remoteUser = '$CremoteUser'";
} else {
my $andActivated = ($action eq 'insertView' or $action eq 'createView') ? "and activated = 1" : '';
$sql = "select remoteUser, email from $SERVERTABLUSERS where catalogID = '$CcatalogID' and pagedir REGEXP '/$pageDir/' and remoteUser <> 'admin' and remoteUser <> 'sadmin' $andActivated order by email";
}
($rv, $remoteUsersSelect, undef) = create_combobox_from_DBI ($rv, $dbh, $sql, 0, '', $CremoteUser, 'remoteUser', 'none', '-Select-', '', '', $pagedir, $pageset, $htmlTitle, $subTitle, $sessionID, $debug);
} else {
if ($dbh and $rv) {
if ($action eq 'insert' or $action eq 'create') {
if ($CactivationDate eq '' or $CactivationTime eq '') {
$CactivationDate = $CentryDate;
$CactivationTime = $CentryTime;
$CactivationTimeslot = $CentryTimeslot;
}
if ($CsuspentionDate eq '' or $CsuspentionTime eq '') {
$CsuspentionDate = "0000-00-00";
$CsuspentionTime = "00:00:00";
$CsuspentionTimeslot = "9999999999";
}
if ($action eq 'create') {
require "$APPLICATIONPATH/custom/supportRequest.pm";
my ($description, $outageStartDate, $outageStartTime) = ('Description: Support Ticket ...');
my ($succeeded, $alert, $error) = insertSupportRequest ($CcatalogID, $CuKey, $title, $CremoteUser, $outageStartDate, $outageStartTime, $description, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', $sessionID, $debug);
if (defined $outageStartDate and defined $outageStartTime) {
$CactivationDate = $outageStartDate;
$CactivationTime = $outageStartTime;
($tyear, $tmonth, $tday) = split(/\-/, $CactivationDate);
$tyear -= 1900; $tmonth--;
($thour, $tmin, $tsec) = split(/:/, $CactivationTime);
$CactivationTimeslot = timelocal($tsec, $tmin, $thour, $tday, $tmonth, $tyear);
}
unless ($succeeded) {
$action = $nextAction = 'createError';
$htmlTitle = "$Ctitle: id $Cid create error";
$matchingComments = "<tr><td><H1>Error:</H1>\n'$error'<BR></td></tr>";
}
$CcommentData = 'Support Request: '. (($succeeded) ? "SR $succeeded" : "ERROR '$error'");
$CcommentData .= ", $CactivationDate $CactivationTime";
}
my $dummyInstability = ($Cinstability eq 'on') ? 1 : 0;
my $dummyPersistent = ($Cpersistent eq 'on') ? 1 : 0;
my $dummyDowntime = ($Cdowntime eq 'on') ? 1 : 0;
$sql = 'INSERT INTO ' .$SERVERTABLCOMMENTS. ' SET catalogID="' .$CcatalogID. '", uKey="' .$CuKey. '", replicationStatus="I", title="' .$Ctitle. '", entryDate="' .$CentryDate. '", entryTime="' .$CentryTime.'", entryTimeslot="' .$CentryTime...
$dbh->do ( $sql ) or $rv = error_trap_DBI(*STDOUT, "Cannot dbh->do: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', $sessionID);
if ( $dummyDowntime ) {
my $tDebug = ($debug eq 'T') ? 2 : 0;
( run in 0.942 second using v1.01-cache-2.11-cpan-140bd7fdf52 )