Very Computer

I have a question about ppp. Our network uses secureid cards and
requires that I input a pin and 6 digits prior to the login sequence.

What is the easiest solution for a login script for ppp?

Thanks in advance

Jim

Use something like:

pppd modem lock crtscts connect \
     "chat -v '' ATDT5551212 CONNECT \d\dpin123456 \
     login: account assword: password" /dev/ttyS1 38400

(If you don't press the return after the pin and six numbers, then
append the \c modifier to the end of the number sequence.)

If you don't like chat, you may use dip. If you don't like dip, you
may use tcl. The pppd process does not care how you establish the link
and get the remote ppp software to start.

--

Quote:

>I have a question about ppp. Our network uses secureid cards and
>requires that I input a pin and 6 digits prior to the login sequence.

>What is the easiest solution for a login script for ppp?

Yeah, it's probably way overblown, but it works!  And mind you, it's
hardcoded for my system and there's precious little in the way of error
checking.  Can you say, "Quick and dirty?"  I knew you could!

Here are the scripts.  You'll see a call to &readline() in there.  I
hacked my version of perl to support the GNU Readline package.  (No, you
can't have my patches.  Don't ask.  I lost the sources when I "neatened"
a directory tree...)  Anyway, just replace the call to &readline() with
anything that'll read STDIN.

---=== Beginning of 'pppstart' ===---
#! /usr/bin/perl

if ($pid = fork) {
  # Parent -- Keep the tty so we can ask for
  # the passcode

  $AF_INET = 2;
  $SOCK_STREAM = 1;
  $sockaddr = 'S n a4 x8';
  $port = 1111;

  ($name, $aliases, $proto) = getprotobyname('tcp');
  $this = pack($sockaddr, $AF_INET, $port, "\0\0\0\0");
  socket(S,$AF_INET,$SOCK_STREAM,$proto) || die "Can't make socket: $!";
  bind(S,$this) || die "Can't bind: $!";
  listen(S,5)   || die "Can't listen: $!";

  select(NS); $| = 1;
  select(S);  $| = 1;
  select(STDOUT);
  print "Dialing Motorola...\n";

  $addr = accept(NS,S) || die "Accept: $!";

  $passcode = &readline("Enter Passcode: ");
  print NS "$passcode\n";

  close(NS);
  close(S);

  exit;

Quote:}

  $link = "/etc/resolv.conf";
  $real = "/etc/resolv.conf-mot";

           "connect", "/usr/local/sbin/plchat",
           "domain",  "cig.mot.com"
          );

  unlink($link);
  symlink($real,$link);

Quote:}

Quote:}

---=== Beginning of 'plchat' ===---
#! /usr/bin/perl

$/ = "\r";
print "ATZ1\r";
$_ = <> until (/OK/i);
print "ATDTxxxxxxx\r";             # Phone number goes here!
$_ = <> until (/CONNECT/i);
$_ .= getc() until (/Username$/i);
print "king\r";
$_ .= getc() until (/PASSCODE$/i);
print &passcode . "\r";
$_ .= getc() until (/Command$/i);
print "ppp\r";

exit;

sub passcode {

  $AF_INET = 2;
  $SOCK_STREAM = 1;
  $sockaddr = 'S n a4 x8';
  $port = 1111;
  $hostname = "localhost";
  ($name, $aliases, $proto) = getprotobyname('tcp');

  ($name,$aliases,$type,$len,$addr) = gethostbyname($hostname);

  socket(S, $AF_INET, $SOCK_STREAM, $proto) || die "socket: $!";
  connect(S,pack($sockaddr,$AF_INET,$port,$addr)) || die "connect: $!";
  select(S); $| = 1; select(STDOUT);
  chop($passcode = <S>);

  close(S);
  return $passcode;

Quote:}