function system()

[Janusz]

Hi!
I'm trying do something like this, but it doesn't work.
Please help.

#!/usr/bin/perl
$gw = 'ppp0';
$ip = '192.168.1.2';
# first way
system("iptables -t nat -A POSTROUTING -o $gw -s $ip -j MASQUERADE") || die
"ERROR: $!"l;
# second way
system("iptables", "-t", "nat", "-A", "POSTROUTING", "-o", $gw, "-s", $ip,
"-j", "MASQUERADE") || die "ERROR: $!"l;

Janusz

[Joe Smith]

Janusz wrote:

I'm trying do something like this, but it doesn't work.
What do you mean, "doesn't work"?
1) The 'iptables' command did not make the requested change, or
2) The 'iptables' command did change the tables, but die() occurred.

system("iptables -t nat -A POSTROUTING -o $gw -s $ip -j MASQUERADE") || die
"ERROR: $!"l;

Re-read the docs. system() returns the error code; zero means no error.
system("iptables ...") && die "Failed: error code = $?\n";

-Joe
P.S. Don't post here, post to comp.lang.perl.misc instead.