Hey there. I got it working. It requires punching a hole in the sudo'ers file, but I'm willing to take that risk - there aren't a lot of people hacking away at my personal webserver, ya know?
Anyway, Add this to /etc/sudoers:
www ALL = NOPASSWD: ALL
Note that it lets your webserver user (and thus all cgis that run under it) do whatever they want as root with a sudo command.
Here's the applescript:
tell application "Internet Connect"
Connect
end tell
hard one, eh?
and finally, here's the perl script I use. It's quick and dirty with lots of incomplete HTML, but it works just fine. It's all my own work except the ping function is based on a script I found somewhere else (I don't remember where - I just cleaned it up and simplified it) and the ReadForm function is almost entirely from an old version of NewsPro.. I've been using it for a long time. Here it is, I hope the forum doesn't butcher it but it will probably kill the indentations:
#!/usr/bin/perl
print "Content Type: text/html\n\n";
ReadForm();
if ($formData{'connect'} eq 'true') {
print 'Connecting. Please Wait....';
print qq|<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=iso-8859-1">\n<META HTTP-EQUIV="Refresh" CONTENT="1; URL=connect.cgi?waiting=true">\n\n|;
exit();
}
if ($formData{'waiting'} eq 'true') {
if (test_ping()) {
print 'Connected.';
} else {
print qq|<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=iso-8859-1">\n<META HTTP-EQUIV="Refresh" CONTENT="2; URL=connect.cgi?waiting=true">\n\n|;
print 'Connecting. Please Wait....';
exec ('sudo -b /usr/bin/osascript ./connect.applescript >/dev/null');
}
exit();
}
if (test_ping()) {
print 'Already connected.'
} else {
print qq|
Not Connected.<BR><BR>
<FORM ACTION="connect.cgi" METHOD="GET">
<INPUT TYPE="HIDDEN" NAME="connect" VALUE="true">
<INPUT TYPE="SUBMIT" VALUE="Click Here To Connect...">
</FORM>
|;
}
####################################################
# test_ping #
# #
# returns 1 if host is pingable, 0 if it is not. #
####################################################
sub test_ping
{
my $pingcom = '/sbin/ping';
my $ping_target = 'www.apple.com';
my $pingcom = "ping -c 1 $ping_target | grep loss";
@ping = `$pingcom`;
$rece = substr($ping[0],23,1);
if ($rece < 1) {
return 0;
}
else {
return 1;
};
return $result;
}
##################################################################################
# Put form data in %formData, parsing the hex all the way #
##################################################################################
sub ReadForm {
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
if ($ENV{'REQUEST_METHOD'} eq 'GET') {
$buffer = $ENV{'QUERY_STRING'};
}
if ($buffer eq '') {
return 1;
}
my @pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%0D/\n/g;
$value =~ s/%0A//g;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
unless($formData{$name}) {
$formData{$name} = $value;
} else {
$formData{$name} .= "|x|$value";
}
}
return 0;
}
That's it. Have fun.
