sslug-teknik team mailing list archive

[Jens Lauterbach <jeans@xxxxxx>]

hej

hvorfor kan jeg ikke udføre min perlscripts setuid, når jeg har sat s-bit

scriptet skal køre som root (setuid), idet der laves icmp ping

meeen

./sg_ping.cgi
Can't do setuid

rettighederne ser således ud:

-rwsr-xr-x    1 root     w3traf        417 Mar  3 13:32 sg_ping.cgi*

jeg har kunnet gøre det før under en anden linux
Er det noget med perlopsætningen eller noget andet??

scriptet ser iøvrigt således ud:

----------------------------------
#!/usr/bin/perl
use Net::Ping;
print "Content-type: text/html\n\n";
$mask = "192.168.1.";
$wait = 0.001;
$bytes = 1;
       print "<table border=1>\n";
  $p = Net::Ping->new("icmp", $wait);
  for ($i = 1;$i < 255;$i++) {
        $host = $mask."$i";
        if ($p->ping($host)) {
        print "<tr><td valign=top>$host</td><td>is alive.</td></tr>\n";
        }
  }
           $p->close();
       print "</table>";
exit(0);
-----------------------------------

---------------
Jens Lauterbach
jeans@xxxxxx
Roskilde University