in reply to Re^7: INSERT file contents inside a table
in thread INSERT file contents inside a table

Thanks once again for your effort to rewrite the code.

Anyway, Why I need below line. NOW, I DON'T want to use front end HTML release.html code ANYMORE. Instead, I want to release directly by clicking.

my $id = param('release');

[download]

This is the ERROR 


sudo /usr/bin/amavisd-release  2

ERROR : Invalid id ''

[download]

the above error does NOT show the ID. Hope to hear from you. Meanwhile I am also trying to resolve the issue.

Replies are listed 'Best First'.
Re^9: INSERT file contents inside a table
by poj (Abbot) on Jun 07, 2018 at 06:21 UTC

    If you mean by clicking this link

    <td><a href=/cgi-bin/release.pl>$id</a></td>

    [download]

    then you need to add the id as parameter

    <td><a href=/cgi-bin/release.pl?release=$id>$id</a></td>

    [download]
    poj
[reply]
[d/l]
[select]

      yeah, U r right.below code is OK. it's what I mean. But, I need YES and NO option after clicking for safety purpose. Anyway, It's my NEXT TASK.

      <td><a href=/cgi-bin/release.pl?release=$id>$id</a></td>

      [download]

      My IDs r in below formats

      spam-IUiA-_bUe0eN.gz

      badh-Xh-Vzy9BSsHN

      banned-8KuHlZuzBCaA

      virus-gUS5QeJ_ayqZ

      So, I had to changed the below code. It has UNDERSCORE as well

      if ($id =~ /^spam-[a-zA-Z0-9-]+\.gz$/) {

      [download]
      to 
      if ($id =~ /^spam-[a-zA-Z0-9-_]+\.gz$|^badh-[a-zA-Z0-9-_]+|^banned-[a-
+zA-Z0-9-_]+|^virus-[a-zA-Z0-9-_]+/) {

      [download]
      also changed 
      my $cmd = "sudo /usr/bin/amavisd-release $id 2";
<code>

to

<code>
my $cmd = "sudo /usr/bin/amavisd-release $id";

      [download]

      Now, code WORKS well. Many thanks once again. UNLESS u helped me, I may NOT achive what I expect. hope to hear from you

[reply]
[d/l]
[select]

        Your additions to the regex make it unsafe because they are not terminated with $.Try 

        #!perl
use strict;

my @ids = qw( 
spam-IUiA-_bUe0eN.gz
badh-Xh-Vzy9BSsHN
banned-8KuHlZuzBCaA
virus-gUS5QeJ_ayqZ
virus-gUS5QeJ_ayqZ;stopme );

for my $id (@ids){
  if ($id =~ /^(?:spam|badh|banned|virus)-[a-zA-Z0-9-_.]+$/) {
    print "OK : $id\n";
  } else {
    print "ERROR : Invalid id '$id'\n";
  }
}

        [download]
        poj
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom