use WWW::Mechanize; use Config::Simple; if($cfg->param("$ARGV[0]".".notification2") != "") { my $notif2 = $cfg->param("$ARGV[0]".".notification2"); $mech->get('http://path/to/site.php'); $mech->submit_form( form_name => 'notification_form', fields => {"email" => $notif2, } ); }
In reply to checking for config file param by PerlSufi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |