- 締切済み
データ削除処理後に指定のhtmlファイルに飛ばす
下記サイトで頂戴したファイルアップローダーについてご教示お願いします。 http://cgi-garage.parallel.jp/utility.html ※ファイルアップローダーVer 1 アップロードした画像の削除処理をした後に指定したhtmlファイルに飛ばしたいのですが どのようにに書き足すと上手くいくか悩んでいます。 削除処理を抜粋して記載しますので宜しくお願い致します。 sub delete{ my $inpass = $cgi->param('inpass'); if($pass ne $inpass){ &errorprint('Input Error!','パスワードが違いますので、削除できません。'); } my @delchk = $cgi->param('delchk'); my $newstr; my @logs = &setread2('log.cgi'); for my $i( @logs ){ my @i = split(/\t/,$i); my $hit = "0"; for my $p( @delchk ){ if($i[0] eq $p){ $hit++; unlink $i[2]; last; } } if($hit eq "0"){ $newstr .= $i . "\n"; } } $chstr = &setchange3($newstr,"log.cgi"); }
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- YkazubonY
- ベストアンサー率30% (26/86)
下記サブルーチンの引数に飛び先URLを指定して呼び出します。 目的地のURLには、ブラウザが飛ばしてくれます。 sub jumpNextUrl { my($url) = @_; # print "\n\n"; print <<"HEAD1"; <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <script language="JavaScript" type="text/javascript"> <!-- function jumpNext(nexturl) { window.location = nexturl; } //--> </script> <title></title> </head> <body onLoad="jumpNext('$url')"> </body> </html> HEAD1 return; }
