Perl script example for use with client tool in Notification view

This example script prints the notification name and severity and displays it in a web browser.

alertExample.pl

#!/usr/bin/perl -w
use CGI qw(:standard);
use strict;
my $query = new CGI;
my $notification = $query->param('notification');
my $severity = $query->param('severity');
print $query->header("text/html");
print "Notification $notification has severity value $severity\n";