[Benson-commit] CVS: benson3/scripts/cgi alertlist.cgi.tmpl,1.13,1.14 alertview.cgi.tmpl,1.6,1.7

[Bob T. <bt...@us...>]

Update of /cvsroot/benson/benson3/scripts/cgi
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18228

Modified Files:
	alertlist.cgi.tmpl alertview.cgi.tmpl 
Log Message:
Added the create ticket field.

Index: alertlist.cgi.tmpl
===================================================================
RCS file: /cvsroot/benson/benson3/scripts/cgi/alertlist.cgi.tmpl,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** alertlist.cgi.tmpl	24 Feb 2003 07:43:03 -0000	1.13
--- alertlist.cgi.tmpl	14 Feb 2005 19:51:32 -0000	1.14
***************
*** 193,196 ****
--- 193,205 ----
  			my ($ts, $ah, $seq) = split /\./, $id;
  			my $dstr = POSIX::strftime("%Y-%m-%d  %H:%M:%S", localtime($ts));
+ 			my $RTserver = $queue->get("RTserverURL");
+ 			my $create_ticket = "";
+ 			if ($RTserver ne "http://changeme") {
+ 				my $RTqueue = $queue->get("RTqueue"); 
+ 				$create_ticket = <<EOT;
+ [<a href="$RTserver/Ticket/Create.html??Queue=$RTqueue&Subject=$agent:$severity:$subsystem&Status=open">Create Ticket</a>]
+ EOT
+ 			}
+ 
  			$sub_alerts_text .= <<EOT;
   <tr>
***************
*** 200,204 ****
    <td align="center" bgcolor="$bgcolor"><font color="#FFFFFF"><b>$severity</b></font></td>
    <td align="center">$subsystem</td>
!   <td align="left">$message</td>
    <td align="center">$number</td>
   </tr>
--- 209,213 ----
    <td align="center" bgcolor="$bgcolor"><font color="#FFFFFF"><b>$severity</b></font></td>
    <td align="center">$subsystem</td>
!   <td align="left">$message $create_ticket</td>
    <td align="center">$number</td>
   </tr>

Index: alertview.cgi.tmpl
===================================================================
RCS file: /cvsroot/benson/benson3/scripts/cgi/alertview.cgi.tmpl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** alertview.cgi.tmpl	9 Feb 2004 22:55:50 -0000	1.6
--- alertview.cgi.tmpl	14 Feb 2005 19:51:32 -0000	1.7
***************
*** 259,262 ****
--- 259,270 ----
  	my $subsystem = $alertlist{$key}->{subsystem};
  	my $message = $alertlist{$key}->{message};
+ 	my $RTserver = $queue->get("RTserverURL");
+ 	my $create_ticket = "";
+ 	if ($RTserver ne "http://changeme") {
+ 		my $RTqueue = $queue->get("RTqueue");
+ 		$create_ticket = <<EOT;
+ [<a href="$RTserver/Ticket/Create.html??Queue=$RTqueue&Subject=$agent:$sev:$subsystem&Status=open">Create Ticket</a>]
+ EOT
+ 	}
  	print <<EOT;
   <tr>
***************
*** 268,272 ****
    <td align="center" bgcolor="$severity{$sev}->{color}"><font color="#FFFFFF"><b>$sev</b></font></td>
    <td align="center">$subsystem</td>
!   <td align="left">$message</td>
    <td align="center">$total</td>
   </tr>
--- 276,280 ----
    <td align="center" bgcolor="$severity{$sev}->{color}"><font color="#FFFFFF"><b>$sev</b></font></td>
    <td align="center">$subsystem</td>
!   <td align="left">$message $create_ticket</td>
    <td align="center">$total</td>
   </tr>
***************
*** 339,343 ****
  <i><font size="1">
  <a href="http://benson.sourceforge.net/">Benson Distributed Monitoring System</a><br>
! Copyright &copy; 1999, 2000, 2001, 2002, 2003, 2004 by Bob Tribit<br>
  <br>
  This program is distributed in the hope that it will be useful,<br>
--- 347,351 ----
  <i><font size="1">
  <a href="http://benson.sourceforge.net/">Benson Distributed Monitoring System</a><br>
! Copyright &copy; 1999, 2000, 2001, 2002, 2003, 2004, 2005 by Bob Tribit<br>
  <br>
  This program is distributed in the hope that it will be useful,<br>