sslug-teknik team mailing list archive

[Martin Møller Pedersen <traxplayer@xxxxxxxxx>]

Du kan evt. bruge med flg. logout script istedet for og se om det gør
en forskel:

#!/usr/bin/perl -w

use IPC::Open2;

$program = "telnet 192.168.30.2 259";

open2(*README, *WRITEME, $program) or die "couldn't login";

# Erstat XYZs001 med dit login
print WRITEME "XYZs001\n";

# Erstat XYZ med dit passwd
print WRITEME "XYZ\n";
print WRITEME "2\n";

while (<README>) {
  print;
}

close(WRITEME);
close(README);