This might get you started....or it might not :)
#!/usr/bin/perl
# Rename this file to ppp.pl
$number = "9999999"; #the phone number to dial
$username = "USER"; #the username to send (not required)
$password = "USER"; #the password (not required)
$init = "AT&F\r"; #the init string for the modem
$nameprompt = "sername:"; #the string searching for the username
+ prompt
$passprompt = "assword:"; #the string searching for the password
+ prompt
$pppprompt = ">"; #the prompt for the ppp command
$pppon = "ppp\r"; #the command to send to the dialup for ppp
$redials = 3; #number of times to redial if busy
$debug = 0; #set to 1 to see lots of info
$tries = 3; #number of tries to reinitialize the modem
$sleeptime = 3; #amount of time to wait for responses
$dials=0;
$looper=0;
while($looper == 0)
{
print "Initializing Modem\n";
&ModemSetup; #run the ModemSetup subroutine
print "Dialing $number\n";
&Dial; #run the Dial subroutine
print "Connecting...\n";
$looper=&Loop; #store the return value of Loop
sleep $sleeptime; #sleep to make sure that ppp
} #has started on remote end
print "Starting PPPD\n";
#start up ppp locally
system "/usr/sbin/pppd debug lock modem crtscts /dev/modem 115200 noip
+default defaultroute";
#This subroutine reads from the modmem 1 character at a time and appen
+ds
#it to a string. The string is then parsed to see if it matches one of
+ the
#categories below. When the program has sent the string to start ppp
+on
#the remote computer it returns 1, if it doesn't get through everythin
+g, and
#it reads NO CARRIER from the modem, then it returns 0.
sub Loop
{
$loop=0;
$in=""; #initialize our variables, to get rid
$in2="";
#begin our super while loop, while it can read from modem, it goes
while(sysread(MODEM, $in2, 1))
{
if(($in2 eq "\n") or ($in2 eq "\r"))
{
$in="";
}
$in=$in.$in2;
if($debug == 1)
{
print "$in"; #prints out everything read from modem
$loop++;
}
#busy or no carrier errors, return 0, so we can redial.
if(($in =~ /BUSY/) or ($in =~ /CARRIER/))
{
$dials++;
sleep $sleeptime;
print "Error : $in\n";
sleep $sleeptime;
return 0;
}
#hey we're connected
if( $in =~ /CONNECT (\d*)/)
{
$speeds=$1;
}
#run the username stuff, if username is set to USER, then get user to
#input it.
if( $in =~ /$nameprompt/)
{
$resetu=0; #if we get hung up on we need to reset
if($username eq "USER")#the username.
{
print "Please enter your Username: ";
$username=<STDIN>;
chomp $username; #gets rid of newline char
$resetu=1;
}
print "\nSending $username...\n";
$username=$username."\r";
syswrite(MODEM, $username, length($username));
$in="";
if($resetu==1)
{
$username="USER";
}
}
#password stuff, not very good yet
if(($in =~ /$passprompt/))
{
$reset=0;
if($password eq "USER")
{
print "Please enter your Password: ";
system "stty -echo";
$password=<STDIN>;
chomp $password;
system "stty echo";
print "\n";
$reset=1;
}
$passwords=$password."\r";
print "Sending Password...\n";
syswrite(MODEM, $passwords, length($passwords));
$in="";
if($reset == 1)
{
$password="USER";
}
}
#launch the ppp on the remote end, then get out of this damn while loo
+p
if( $in =~ /$pppprompt/)
{
print "Sending $pppon\n";
syswrite(MODEM, $pppon, length($pppon));
last;
}
}
print "Connected at $speeds\n";
return 1;
}
#set up modem, run all the initialization we need.
sub ModemSetup
{
if (-f "/var/lock/LCK..modem") #this checks to see if the mode
+m is
{ #locked, if it is exit.
print "Hey the modem is locked!\n";
open LOCKFILE, "</var/lock/LCK..modem";
$pid=<LOCKFILE>;
$running = system "ps h $pid";
if($running ne "No processes available.")
{
print "running is $running\n";
print "Hey there is something still using the modem\n";
exit;
}
print "There doesn't seem to be anything really using the mode
+m\n";
print "Should we rm -f the file, and try anyway?\n";
$answer=<STDIN>;
if($answer =~ /y/i)
{
system "rm -f /var/lock/LCK..modem";
}
else
{
exit;
}
}
$in = ""; #gets rid of the warning
open MODEM, "+>/dev/modem"; #opens the modem
system "setserial /dev/modem spd_vhi"; #runs setserial, set spe
+ed to 115200
syswrite(MODEM, $init, length($init)); #sends the init
sleep 5;
sysread(MODEM, $in, 10); #reads the results of init
#if not okay, then retry for a few times
$n=0;
while($in =~ /NO/)
{
print "Something Is Wrong\n";
sleep $sleeptime;
$n++;
print "Error $in\n";
syswrite(MODEM, $init, length($init));
if($n > $tries)
{
exit;
}
sysread(MODEM, $in, 10);
}
}
#this is the subroutine that actually sends the dialing string to the
+modem.
sub Dial
{
$dials++;
if($dials > $redials)
{
print "Failed after $dials redials\n";
exit;
}
print "Dial attempt #$dials\n";
$numberw = "ATDT $number\r\n"; #set up dialing string.
syswrite(MODEM, $numberw, length($numberw)); #dial
}
|