Linux på Stofanet

har du husket at bruge



#! /usr/bin/perl -w
# A script to get stofa connection up
# Also, a test to do sockets in perl

require 5.002;
use strict;
use Socket;

my $ID = \"1748334s001\\n\" ;  # my connection id, and a newline
my $pwd = \"xxxx9999\\n\" ;    # my password

my $cmd = 1; # command to get the net up
if ( $ARGV[0] ne \"\" ) { $cmd=2; }  # or the one to get it down

my $host=\"stofa-login\";
my $serviceport = \"259\";

my $iaddr = gethostbyname(\'localhost\');
my $proto = getprotobyname(\'tcp\');
my $paddr = sockaddr_in(0,$iaddr);

$|=1; 

my $hisiaddr = inet_aton( $host ) || die \"unknwon host\";
my $hispaddr = sockaddr_in($serviceport,$hisiaddr);

socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die \"socket: $!\";
connect (SOCKET, $hispaddr ) || die \"connect: $!\";

my $line = \"-\" x 128;
my $ch = \" \";
while ($ch ne \":\" ) {
  read(SOCKET, $ch, 1);
  print $ch;
}
print \"\\n\";

my $count = send(SOCKET,$ID,0);
print \"Sent ID (c=$count)\\n\";

$ch = \" \";
while ($ch ne \":\" ) {
  read(SOCKET, $ch, 1);
  print $ch;
}
print \"\\n\";

my $count = send(SOCKET,$pwd,0);
print \"Sent pwd (c=$count)\\n\";


$ch = \" \";
while ($ch ne \":\" ) {
  read(SOCKET, $ch, 1);
  print $ch;
}
print \"\\n\";

$ch = \" \";
while ($ch ne \":\" ) {
  read(SOCKET, $ch, 1);
  print $ch;
}
print \"\\n\";

my $choice = \"$cmd \\n\" ;  # 1=connection up
my $count = send(SOCKET,$choice,0);
print \"Sent choice: $cmd (c=$count)\\n\";


$ch = \" \";
while ($ch ne \".\" ) {
  read(SOCKET, $ch, 1);
  print $ch;
}
while ($ch ne \"\\n\" ) {
  read(SOCKET, $ch, 1);
  print $ch;
}
print \"\\n\";


close SOCKET or die \"couldn\'t close cocket: $!\";


* * * *



--
Heikki Levanto  LSD - Levanto Software Development  <heikki@lsd.ping.dk>




Connect Scriptet..

Kan du komme på nettet og Hvad er der ellers galt

Logon scriptet er faktisk ikke det jeg mangler. Jeg kan bare bruge telnet til at logge på. Det jeg har bruge for er nemlig det, der skal konfigureres så jeg kan køre på StofaNet.

Har du konfigureret dit netkort med IP, default gateway, DNS (212.10.10.5 og 212.10.10.6) !? Hvis du har det, så burde det virke med ovenstående script !

Hvis du ikke har gjort det, så indtast oplysningerne vha. netconf i Linux !

Snowball

ellers så kan man altså også lave et login script der er noget pænere end det perl-script, der er angivet ovenfor...
-->
#!/usr/bin/expect

spawn /usr/bin/telnet 192.168.30.2 259

expect -exact \"Login: ditlogin\"
send \"USERNAME\\r\"
expect -exact \"Password: ditpassword\"
send \"PASSWORD\\r\"
expect -exact \"Enter your choice: \"
send \"1\\r\"
expect -exact \"User authorized.  Welcome!\"
expect eof
<--

Dette script kan du så bare sætte til at køre under level 3 under opstarten eller smide det et sted, hvor du selv kan køre det...

men det mest sandsynlige er nok, at du ikke har configureret din gateway og DNS rigtigt... eller din IP-adresse for den sags skyld... gør som snowball foreslår og kør netconf, find de papirer du fik fra stofa og tast det hele ind...

Kan man ikke bare telnet ind for at logge på?

Jo, det er jo netop det du skal, men for at du kan gøre det skal du stadig ha\' sat din PC rigtigt op mht. IP, default gateway og DNS som jeg nævnte i min tidligere kommentar. IP og default gateway skulle du gerne ha\' fået af Stofanet og DNS serverne er som sagt 212.10.10.5 og 212.10.10.6. De informationer indtaster du så via netconf i Linux. Derefter kan du så køre et af de 2 scripts som er vist ovenfor !

Snowball

Jeg har configureret disse ting:

DNS Prinær:  212.10.10.4
DNS Sekudær: 212.10.10.5
Subnetmask:  255.255.255.0
IP:          192.168.xxx.xxx
Gateway:    192.168.xxx.254

Når jeg forsøger at logge på får jeg:
\"Network unreachable..\"

Jeg fatter det ikke.
Jeg har prøvet det øveste script og jeg fik den samme fejlmeddelse :-(

Jeg lukker spørgsmålet.