DFÜ, Win95 und Perl

[Tek]

Wie kann ich von ein PerScript dazu veranlassen,

eine DFÜ verbindung zu starten und evtl diese auch
wieder zu beenden?

[florian duesterwald]

Wie kann ich von ein PerScript dazu veranlassen,

eine DFÜ verbindung zu starten und evtl diese auch
wieder zu beenden?

--------------------------------------

kann ich leider nicht direkt dabei helfen, außer es wäre ein proxy für die verbindung verfügbar der die DFÜ-verbindung aufbaut (so meine lösung):

#!/usr/local/bin/perl
use Socket;
$proxy="164.155.214.51";    #proxy-name
$port="8080";               #proxy-port
if($ENV{'REQUEST_METHOD'}ne 'GET'){&error("this is not the right way to access this program");}
if($ENV{'QUERY_STRING'} eq 'info'){&go_now('http://foo.bar/location');}
else{&error('the function you requested is not supported ');}
exit;
sub go_now{
($sockaddr,$there,$response,$tries) = ("Snc4x8");
$there = pack($sockaddr,2,$port, &getaddress($proxy));
($a, $b, $c, $d) = unpack('C4', $hostaddr);
$proto = (getprotobyname ('tcp'))[2];
if (!socket(S,AF_INET,SOCK_STREAM,$proto)){
&error("$0:  Fatal Socket-Error.  $!\n");
}
if (!connect(S,$there)){
&error("$0:  Fatal proxy-connect-Error.  $!\n");
}
select(S);$=1;
select(STDOUT);
print S "GET $_[0]\r\n";
&page_header;
while($line = <S>){
print "$line\n";
}
close(S);
&print_footer;
exit;
}
sub getaddress {
  local($host) = @_;
  local(@ary);
  @ary = gethostbyname($host);
  return(unpack("C4",$ary[4]));
}

sub parse_head{}
sub parse_body{}
sub print_footer{}