From owner-FreeBSD-users-jp@jp.freebsd.org  Thu Apr  1 02:34:58 1999
Received: (from daemon@localhost)
	by jaz.jp.freebsd.org (8.9.2+3.1W/8.7.3) id CAA26558;
	Thu, 1 Apr 1999 02:34:58 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from sx.miracle.ne.jp (sx.miracle.ne.jp [202.234.38.130])
	by jaz.jp.freebsd.org (8.9.2+3.1W/8.7.3) with ESMTP id CAA26546
	for <FreeBSD-users-jp@jp.freebsd.org>; Thu, 1 Apr 1999 02:34:55 +0900 (JST)
	(envelope-from neko@sx.miracle.ne.jp)
Received: from foxtail.shoo.or.jp (izm1-S22.miracle.ne.jp [210.166.37.32])
	by sx.miracle.ne.jp (8.9.1a/3.7W) with ESMTP id CAA12096
	for <FreeBSD-users-jp@jp.freebsd.org>; Thu, 1 Apr 1999 02:34:53 +0900 (JST)
Received: from localhost (localhost.shoo.or.jp [127.0.0.1])
	by foxtail.shoo.or.jp (8.9.2/3.7W) with ESMTP id CAA01842
	for <FreeBSD-users-jp@jp.freebsd.org>; Thu, 1 Apr 1999 02:34:46 +0900 (JST)
To: FreeBSD-users-jp@jp.freebsd.org
In-Reply-To: Your message of "Wed, 31 Mar 1999 13:23:00 +0900 (JST)"
	<199903310423.NAA03080@afs.ntc.mita.keio.ac.jp>
References: <199903310423.NAA03080@afs.ntc.mita.keio.ac.jp>
X-Mailer: Mew version 1.93 on Emacs 20.3 / Mule 4.0 (HANANOEN)
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Message-Id: <19990401020205H.neko@sx.miracle.ne.jp>
Date: Thu, 01 Apr 1999 02:02:05 +0900
From: shoo kajitani <neko@sx.miracle.ne.jp>
X-Dispatcher: imput version 980905(IM100)
Lines: 165
Reply-To: FreeBSD-users-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+981115
X-Sequence: FreeBSD-users-jp 40586
Subject: [FreeBSD-users-jp 40586] Re: ppp.conf
 =?ISO-2022-JP?B?GyRCJEskRCQkJEYbKEI=?= 
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org
X-Originator: neko@sx.miracle.ne.jp

$B3aC+$G$9!#(B

Wed, 31 Mar 1999 13:23:00 +0900 (JST) $B$K!"(B
hosokawa@ntc.keio.ac.jp (HOSOKAWA Tatsumi)$B$5$s$O=q$-$^$7$?(B...

> $B$/$i$/$i!#(B
> $BH/2P$7$?%a%?5DO@$3$=%H%i%U%#%C%/$NL5BL$+$HB8$8$^$9!#(B

$B:#F|8+$F$_$?$i$+$J$jM=A[30$NE83+$K$J$C$F$$$?$N$G6C$$$??M$G$9!#(B
# $B;d$O$3$N2<$N(BINF$B%U%!%$%k$NJ}$,5$$K$J$C$F$$$?$s$G$9$1$I(B....

> >> $B$H$3$m$G!"(B TA/Modem $B$K$OI,$:!"(B inf $B%U%!%$%k$J$k%b%N$,E:IU$5$l$F(B
> >> $B$$$^$9$h$M!#$3$N(B inf $B%U%!%$%k$K$O!"(B Windows $B$,(B TA/Modem $B$r=i4|2=(B
> >> $B$7$?$j!"%@%$%"%k%"%C%W$N;~$KI,MW$J(B AT $B%3%^%s%I$,Ns5s$5$l$F$$$^$9!#(B
> >> $B!VN)$C$F$$$kJ*$O%S%k$G$b;H$(!W$H8@$&8@MU$K=>$&$H!"$3$N(B inf $B%U%!%$(B
> >> $B%k$r8+$F!"(B PPP $B$N(B set dial $B%3%^%s%INs$r@8@.$9$k%D!<%k$,$"$C$F$b(B
> >> $BLLGr$$$H$+;W$&$N$G$9$,(B... $BC/$+$d$i$J$$!)(B(^.^;
> 
> $B$[$)$[$)!"$J$k$[$I!#(B
> INF $B%U%!%$%k$H$$$&$3$H$O!"(B
> $B=jA'$O%F%-%9%H%U%!%$%k$G$9$M!#(B
> $B$`$`$`!#(B
> 
> $B$&$A$N(B TA $B$K$D$$$F$-$?!"(B
> $BIu$b@Z$C$F$$$J$$%U%m%C%T!<$rGA$$$F$_$k$+!D!#(B
> $B$G$b;d$+$i$b!"(B
> $B!V$G!"C/$+$d$i$J$$(B ^^;$B!)!W(B

$B$I$&$d$i:GDc(B2$B?M$O4|BT$7$F$$$k?M$,$$$=$&$J$N$G!"=i4|2=$9$k(BAT
$B%3%^%s%I$rC5$9$b$N$r=q$$$F$_$^$7$?!#;d$O(Bperl$B$7$+CN$i$J$$$N$G!"(B
perl$B$G=q$-$^$7$?!#KX$I2?$b9M$($:$K=q$$$?$N$G!"$+$J$j%@%5$$$N(B
$B$G$9$,0l1~F0$$$F$$$k$h$&$G$9!#K\Ev$K%^%H%b$J$b$N$,=PNO$5$l$F(B
$B$$$k$+ITL@$J$N$G!"!VC/$+$d$i$J$$(B?$B!W$H8@$C$??M!"5Z$S$=$&;W$C$?(B
$B?M!"6=L#$,$"$k?M!"$^$?$O2K$J?M$J$I$O;n$7$F$_$F2<$5$$!#(B;-)

perl4,5$BN>J}$H$bF0$/$h$&$K:n$C$?$D$b$j$J$N$G0lIt2x$7$$;v$,=q$$(B
$B$F$"$j$^$9$,!"$=$NJU$O5$$K$7$J$$$G$/$@$5$$!#(B
# chomp$B$NBe$o$j!"$H$+(B...

$B$H$j$"$($:BgDq$N(BINF$B%U%!%$%k$GF0:n$9$k;v$,(B*$B4|BT(B*$B$5$l$F$$$^$9$,!"(B
$BB?J,2r<a$9$Y$-ItJ,$G=q$$$F$J$$ItJ,$b$"$k$N$G!"$&$^$/9T$+$J$$(B
$B;v$b$"$k$+$bCN$l$^$;$s!#(B
# $BFC$K(B[Strings]$B$NCf$N(BManufacturer$B$K4X$9$kItJ,!#(B

$BJQ$J$H$3$m$,$"$C$?$i;XE&$7$F2<$5$$!#(B

#!/usr/bin/perl

print "***** $B$3$l$O(BWindows$BMQ%b%G%`(BINF$B%U%!%$%k$+$i(B *****\n";
print "*** $B%b%G%`$N=i4|2=%3%^%s%I$rC5$7=P$9(BTool$B$G$9(B ***\n";
print "Written by shoo kajitani.\n\n";

$inffile = $ARGV[0];

while($inffile eq "") {
    print "INF$B%U%!%$%k$r;XDj$7$F2<$5$$(B: ";
    $inffile = <STDIN>;
    $inffile =~ s/\n$//;
}

if(open(INF,"$inffile")) {

    print "INF$B%U%!%$%k(B $inffile $B$rFI$s$G$$$^$9(B...\n";

    @inf = <INF>;
    close(INF);

    for ($i = 0; $i < @inf; $i++) {
	last if $inf[$i] =~ /^\[Strings\]/i;
    }
    $i++;

    until($inf[$i] =~ /^\[/ || $i > $#inf) {
	if($inf[$i] =~ /^([^;].*\d+) ?= ?/) {
	    $find = 1;
	    $modem{$1} = 1;
	    print "$1: $'";
	}
	$i++;
    }
    print $i;

    if($find == 1) {
	while($modem_number eq "") {
	    print "$B$"$J$?$N%b%G%`$O$I$l$G$9$+!#5-9f$rF~NO$7$F2<$5$$(B: ";
	    $modem_number = <STDIN>;
	    $modem_number =~ s/\n$//;

	    if($modem{$modem_number} == 1) {
		print "$modem_number $B$G$9$M!#(B\n\n";
	    } else {
		print "$B5-9f$,@5$7$/$J$$$_$?$$$G$9!#(B\n\n";
		$modem_number = "";
	    }

	    foreach $line (@inf) {
		$modem_tmp = $' if $line =~ /^%$modem_number% ?= ?/i;
	    }

	    if ($modem_tmp =~ /^[A-Z\d]+/i) {

		$modem_name = $&;
		for ($i = 0; $i < @inf; $i++) {
		    last if $inf[$i] =~ /^\[$modem_name\]/;
		}

		$i++;

		until($inf[$i] =~ /^\[/ || $inf[$i] eq "") {
		    if($inf[$i] =~ /^AddReg ?=/i) {
			(@checklist) = split(/,/ , $');
		    }
		    $i++;
		}

		for ($x = 0; $x < ($#checklist + 1); $x++) {
		    $checklist[$x] =~ s/[ \r\n\t]//g;

		    for ($i = 0; $i < @inf; $i++) {
			last if $inf[$i] =~ /^\[$checklist[$x]\]/;
		    }
		    $i++;

		    until($inf[$i] =~ /^\[/ || $inf[$i] eq "") {
			if($inf[$i] =~ /^HKR, Init,.*(\d+).*"(AT.+)<cr>"/i) {
			    $at_command = $2;
			    $number = $1;
			    $at_command =~ s/ //g;
			    $at_command =~ s/^AT//;
			    $at_command_list[$number] = $at_command; 
			}
			$i++;
		    }
		}
	    }
	}
    } else {
	print "INF$B%U%!%$%k(B $inffile $B$NCf$+$i%b%G%`$NDj5A$r8+IU$1$k;v$,=PMh$^$;$s$G$7$?!#(B\n";
    }

} else {
    print "INF$B%U%!%$%k(B $inffile $B$r3+$/;v$,$G$-$^$;$s$G$7$?!#(B\n"; 
}

foreach $at (@at_command_list) {
    $at_commands .= $at;
}

if($at_commands ne "") {
    print "$B$($C$H!"=i4|2=%3%^%s%I$O(B AT$at_commands $B$N$h$&$G$9!#(B\n";
    print "$BK\Ev$+$J$!!#(B:-)\n\n$BF0$+$J$$>l9g$O!"(B";
} else {
    print "$B=i4|2=%3%^%s%I$,8+IU$+$j$^$;$s$G$7$?!#(B\n\n";
}

print "$B=i4|2=%3%^%s%I$r(B ATE1Q0 $B$K$7$F$_$F2<$5$$!#(B\n";
print "$B$=$l$G$bF0$+$J$$$d$&$J$i(B http://www.jp.freebsd.org/ $B$G(B\n";
print "$B$"$J$?$N%b%G%`$N7?HV$r8!:w$7$F$_$^$;$&!#$=$l$G$b2?$b(B\n";
print "$B>pJs$,F@$i$l$J$1$l$P(B FreeBSD-users-jp ML $B$d!"(BNews Group\n";
print "fj.os.bsd.freebsd $B$G?R$M$F$_$^$;$&!#(B\n";

exit;

--
shoo kajitani / $B3aC+(B $B=((B / neko@sx.miracle.ne.jp
