/usr/share/piwi/Functions/Delete.pl is in piwi 0.8+20041206-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | sub DeleteAlert_by_Id($)
{
my $Id = shift;
foreach my $Table ( keys %db_table_type )
{
my $TableType = int( $db_table_type{$Table} );
my $Where = 'ident='.$Id;
if ( $TableType eq 2 ) {$Where = 'alert_'.$Where;};
if ( $TableType eq 3 ) {$Where = "parent_type='A' AND parent_".$Where;};
if ( $TableType )
{
$dbh->do( "DELETE FROM Prelude_$Table WHERE $Where;" ) || return 0;
}
}
return 1;
}
1;
|