nicht angemeldet
Hallo,
ich habe folgendes Problem:
Mit diesem Formular frage ich die Datenbank (MySQL) nach den vorhandenen Einträgen ab
**************
<FORM ACTION="/cgi-bin/bildergalerie_loeschen.cgi" METHOD="post">
<?php
include "config.inc.php3";
$res = mysql_db_query($dbname, "select * from $tabelle order by image asc");
$num = mysql_num_rows($res);
for ($i=0; $i<$num; $i++)
{
$image = mysql_result($res, $i, "image");
$siteid = mysql_result($res, $i, "siteid");
$alternativtext = mysql_result($res, $i, "alternativtext");
echo "
<input type='radio' name='auswahl' value='$siteid'><br>
<img src='/bilder/$image' width='80'><br>
Bildname: $image<br>
Alternativtext: $alternativtext<br>
";
}
mysql_close($conn);
?>
<INPUT TYPE="hidden" name="bild" value='$image'>
<INPUT TYPE="submit" NAME="Submit" VALUE="Löschen">
**********************
Jetzt möchte ich den Wert des Feldes $image an das folgende CGI-Script übergeben (...input type="hidden" usw) und diese Datei über das folgende Perl-Script vom Server löschen, doch leider hab ich irgendwo einen Denkfehler, es wird keine Variable an das PerlScript übergeben?!
***************
#!/usr/bin/perl
CGI Modul nutzen
use CGI;
Parametervariable festlegen
$a = new CGI;
$pfad = "/home/www/html/bilder";
opendir(DIR,"$pfad");
@files = readdir(DIR);
closedir(DIR);
$test1= CGI::param('$bild');
$test2= $a->param("$bild");
$test3= "$bild";
unlink("$pfad/$test1");
unlink("$pfad/$test2");
unlink("$pfad/$test3");
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Test-Ausgabe</title></head><body>\n";
print "$test1, $test2, $test3,\n";
print "</body></html>\n";
***********
Kann mir jemand helfen???
Im voraus herzlichen Dank
Heike