From owner-FreeBSD-users-jp@jp.freebsd.org  Wed Sep 18 01:44:25 1996
Received: by mail.jp.freebsd.org (8.7.3+2.6Wbeta5/8.7.3) id BAA26539
	Wed, 18 Sep 1996 01:44:25 +0900 (JST)
Received: by mail.jp.freebsd.org (8.7.3+2.6Wbeta5/8.7.3) with SMTP id BAA26534
	for <FreeBSD-users-jp@jp.freebsd.org>; Wed, 18 Sep 1996 01:44:23 +0900 (JST)
Received: from localhost.apphy.fukui-u.ac.jp (localhost.apphy.fukui-u.ac.jp [127.0.0.1]) by pollen.apphy.fukui-u.ac.jp (8.6.12/8.6.12) with SMTP id BAA04312 for <FreeBSD-users-jp@jp.freebsd.org>; Wed, 18 Sep 1996 01:44:25 +0900
Message-Id: <199609171644.BAA04312@pollen.apphy.fukui-u.ac.jp>
X-Authentication-Warning: pollen.apphy.fukui-u.ac.jp: Host localhost.apphy.fukui-u.ac.jp didn't use HELO protocol
To: FreeBSD-users-jp@jp.freebsd.org
From: Takaaki Hashimoto <d901005@icpc00.icpc.fukui-u.ac.jp>
In-reply-to: Your message of "Tue, 17 Sep 1996 19:52:49 JST."
             <199609171052.TAA02789@Kingyo.tutms.tut.ac.jp> 
Date: Wed, 18 Sep 1996 01:44:14 +0900
Reply-To: FreeBSD-users-jp@jp.freebsd.org
X-Distribute: distribute [version 2.1 (Alpha) patchlevel=19]
X-Sequence: FreeBSD-users-jp 4661
Subject: [FreeBSD-users-jp 4661] Re: How to Setup PPP Server 
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org


$@66K\!wJ!0fBg$G$9!#(J

> $@JX>h$G$9$,(J
> $@$3$N(J at $@%3%^%s%I$r<+F0$G(J cron $@$+$J$K$+$KBG$?$;$kJ}K!$,(J
> $@$"$C$?$i65$($F2<$5$$!#(J  m(__)m  $@$$$D$b$"$j$,$H$&$4$6$$$^$9!#(J

$@0J2<$N!"(J perl $@%9%/%j%W%H$r(J cron $@$G5/F0$7$F!"(J
$@<+F0E*$J%b%G%`$N%3%s%H%m!<%k$r$7$F$$$^$9!#(J
/tmp $@$K(J modem.expect $@$H$$$k%U%!%$%k$r:n$j!"(J
expect $@$rMQ$$$F<B9T$7$^$9!#(J

crontab $@$G(J
0       20      *       *       *       root    /root/bin/modem.pl up
0       8       *       *       *       root    /root/bin/modem.pl down
$@$H$7$F$$$^$9!#(J

$@@5Ev$JJ}K!$O$I$&$9$k$N$G$7$g$&!)(J

===============================

#!/usr/local/bin/perl

$EXEC_FILE='/tmp/modem.expect';

$HOST=r_brown ;
$RING = 1 if ( $ARGV[0] eq 'up' ) ;
$RING = 0 if ( $ARGV[0] eq 'down' ) ;

open(FOO,">$EXEC_FILE");
$CMD= <<"-*-END-*-";
#!/usr/local/bin/expect
spawn cu -l cuaa1
expect {*Connected*}
sleep 1
send "AT\\r"
expect {*OK*}
sleep 1
send "ATS0=$RING\\r"
expect {*OK*}
sleep 1
send "~"
expect {*$HOST*}
send "."
expect eof
-*-END-*-
print FOO $CMD;
close(FOO);

system("chmod 700 $EXEC_FILE");
system("$EXEC_FILE");
system("rm $EXEC_FILE");

print '^G';

exit;

