#! /usr/oracle/bin/oraperl

$clipid=$ENV('QUERY_SRTING'};

$lda = &ora_login('','michal','michal');

&ora_do ($lda, " delete from clip, text where clipid = $clipid ");

&ora_commit();
&ora_logoff($lda);
print ("Content-type: TEXT/HTML \n\n");
print ("<HTML>\n");
print ("<TITLE>Delete - Results </TITLE>\n");
print (<BODY>\n");
print ("Clipid No. $clipid deleted successfully <BR>\n");
print ("</BODY></HTML>\n");
