<& /htmlheader &>

MOPS Alerts

% foreach my $rule (@$rules) { <%perl> # get type of object rule processes $sql = "select distinct object_type from v_alerts where rule = ?"; my $cursor = $dbh->prepare($sql) || die dbh->errstr; $cursor->execute($rule); my $result = $cursor->fetchrow_arrayref; my $object_type = $result->[0];

<% $rule %>

<%perl> # select all real alerts generated by the current rule. $sql = "select alert_id, object_id, db_name, pub_timestamp from v_alerts where classification = ? and rule = ? order by pub_timestamp desc"; $cursor = $dbh->prepare($sql) || die dbh->errstr; $cursor->execute($MOPS_EFF_NONSYNTHETIC, $rule) || die dbh->errstr; my $alert_page = ""; while (my $row = $cursor->fetchrow_hashref) { if ($object_type eq 'D') { # get the name of the derived object $sql = "select object_name from $row->{db_name}.derivedobjects where derivedobject_id = ?"; my $cursor2 = $dbh->prepare($sql) || die dbh->errstr; $cursor2->execute($row->{object_id}); $result = $cursor2->fetchrow_arrayref; $alert_page = "/model/$row->{db_name}/search?id=$result->[0]"; } elsif ($object_type eq 'T') { $alert_page = "/czar/$row->{db_name}/tracklet?tid=$row->{object_id}"; } % }

Alert ID	<% $object_type eq 'D' ? 'Derived Object Id':'Tracklet Id'%>	Database	Alert Publish Date (UT)
% if ($row->{pub_timestamp}) { <% $row->{alert_id} %> % } else { <% $row->{alert_id} %> % }	<% $row->{object_id} %>	<% $row->{db_name} %>	<% $row->{pub_timestamp} %>

% } <& /htmlfooter &> <%args> $instance => "" <%once> use PS::MOPS::Constants qw(:all); use DBI; # intialize database variables. my $dbserver = "mops00.ifa.hawaii.edu"; my $user = "mops"; my $passwd = "mops"; my $inst = "export"; my $connectionStr = "dbi:mysql:host=" . $dbserver . ";database=" . $inst . ";port=3306"; # connect to database my $dbh = DBI->connect($connectionStr, $user, $passwd) || die dbh->errstr; <%init> # get list of rules used to generate alerts. By selecting all unique rule names # from the alerts table. my $sql = "select distinct rule from export.alerts order by rule"; my $rules = $dbh->selectcol_arrayref($sql);