From owner-FreeBSD-users-jp@jp.freebsd.org  Fri Apr  2 01:37:32 1999
Received: (from daemon@localhost)
	by jaz.jp.freebsd.org (8.9.2+3.1W/8.7.3) id BAA26238;
	Fri, 2 Apr 1999 01:37:32 +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 BAA26228
	for <FreeBSD-users-jp@jp.freebsd.org>; Fri, 2 Apr 1999 01:37:30 +0900 (JST)
	(envelope-from neko@sx.miracle.ne.jp)
Received: from foxtail.shoo.or.jp (izm1-S44.miracle.ne.jp [210.166.37.54])
	by sx.miracle.ne.jp (8.9.1a/3.7W) with ESMTP id BAA24465
	for <FreeBSD-users-jp@jp.freebsd.org>; Fri, 2 Apr 1999 01:37:27 +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 BAA01622
	for <FreeBSD-users-jp@jp.freebsd.org>; Fri, 2 Apr 1999 01:37:51 +0900 (JST)
To: FreeBSD-users-jp@jp.freebsd.org
In-Reply-To: Your message of "Thu, 01 Apr 1999 03:17:34 +0900"
	<199903311819.DAA29476@juran.asahi-net.or.jp>
References: <199903311819.DAA29476@juran.asahi-net.or.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: <19990401211120A.neko@sx.miracle.ne.jp>
Date: Thu, 01 Apr 1999 21:11:20 +0900
From: shoo kajitani <neko@sx.miracle.ne.jp>
X-Dispatcher: imput version 980905(IM100)
Lines: 196
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 40687
Subject: [FreeBSD-users-jp 40687] 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
# 1$BF|$G=q$/$N$OFq$,$"$C$?$+$b(B...

Thu, 01 Apr 1999 03:17:34 +0900 $B$K!"(B
wizard <wizard@asahi-net.or.jp>$B$5$s$O=q$-$^$7$?(B...

> $BAGAa$$$G$9$M!#(B

$B;d$O$;$$$<$$$3$&$$$&J,Ln(B(?)$B$G$7$+6(NO$G$-$=$&$K$J$$$N$G!"(B
$B>/$7$G$b6(NO$9$k;v$,$G$-$?$i!"$H;W$C$?$s$G(B...

> $B$($C$H!"=i4|2=%3%^%s%I$O(B AT&FS95=44 $B$N$h$&$G$9!#(B
> $BK\Ev$+$J$!!#(B:-)

> $B$G$7$?!#(B
> $B$G!"(BS95=44$B$F$N$O$J$s$+%l%8%9%?$KCM$rJ|$j9~$s$G$kMM$G$9$,!"$J$s$@$m$&!#(B

$B$h$/$o$+$i$J$$$N$G$9$,!"(B`HKR, Init,'$B$G;O$^$k9T$O$_$s$J(B
$B=i4|2=%3%^%s%I$G$"$m$&!"$H;W$C$F$d$C$F$$$^$9!#(B
# $B$3$l$,4V0c$C$F$$$?$i$I$&$7$h$&(B...

> $B$H$b$"$l!"M_$7$$$N$O(B ppp.conf $B$K5-=R$9$k(B AT $B%3%^%s%INs$G$9$+$i(B($B$8$c$J$+$C$?$C$1(B)$B!"(B
> CTS/RTS $B$N@)8f$,$I$&$?$i$H$+!"(B ppp $B$r;HMQ$9$k;~$K@'Hs$H$bI,$:@_Dj$7$F$*$+$J$/$F$O(B
> $B$J$i$J$$9`L\$,(B 3 $BE@Dx$"$C$?$H;W$$$^$9$N$G!"$=$l$i$b0z$CD%$j$@$7$F!"(B
> $BO"@\$9$k$h$&$K$9$l$PNI$$$N$G$O$H;W$$$^$9!#(B

$BB?J,(BRTS/CTS$B$O(B HKR, Settings, FlowControl_Hard $B$H$+=q$$$F(B
$B$"$k9T$rC5$;$P$$$$$N$G$7$g$&!#$3$l$O=PMh$k$s$G$O$J$$$+$H(B
$B;W$$$^$9!#B>$N(B2$BE@$H$$$&$N$O(B

$B!&%-%c%j%"$N8!=P$H(BCD$B$N?.9f$rO"F0$5$;$k(B
$B!&(BDTR$B$,%*%U$K$J$C$?$i2s@~$r@ZCG$9$k(B

$B$H$$$&$d$D$N;v$J$s$G$7$g$&$+!#(B(FreeBSD(98) $BE0DlF~Lg$h$j(B)

> INF $B%U%!%$%k$N3F%U%#!<%k%I%G!<%?$,2?$r0UL#$9$k$+(B
> $B87L)$J=j$,NI$/J,$+$i$J$$$N$G<j$,$G$J$$$G$9$,!#(B

$B<B$O;d$b$h$/$o$+$C$F$$$^$;$s!#$J$N$G!"BgBNEv$F$:$C$]$G$d$C$F(B
$B$$$^$9!#$H$j$"$($:!":#$NCJ3,$G$o$+$C$F$$$k$N$O!"(B

1)[Strings]$B%;%/%7%g%s$K%b%G%`L>$N0lMw$,$"$k(B
  ==>[Strings]$B$rC5$7$F%b%G%`$N%j%9%H$rI=<($9$k(B
2)[Models]$B%;%/%7%g%s$K3F%b%G%`$,8+$k$Y$-%;%/%7%g%s$,=q$$$F$"$k(B
  ==>$BA*Br$5$l$?%b%G%`$,(B hoge $B$@$H$9$k$H!"(B%hoge%$B$G;O$^$k9T$rC5$9(B
     %hoge% = Hige, ...$B$H=q$$$F$"$C$?$i!"(B[Hige]$B%;%/%7%g%s$rC5$9(B
3)$B3F%b%G%`$N%;%/%7%g%s$N!"(BAddReg$B9T$K!"<!$K$I$N%;%/%7%g%s$r8+$k$+(B
  $B=q$$$F$"$k(B
  ==>[Hige]$B$H$$$&%;%/%7%g%s$K(BAddReg=All, MfgAddReg, Hige.AddReg
     $B$H=q$$$F$"$k$H$9$k(B
4)$B$5$C$-;X<($5$l$?%;%/%7%g%s$K$"$k!"(BHKR, Init$B$G;O$^$k9T$,=i4|2=(B
  $B%3%^%s%I$N9T$i$7$$(B
  ==>[All]$B$K(B
     HKR, Init, 1,, "AT<cr>"
     $B$H$"$C$F!"(B[MfgAddReg]$B$K(B
     HKR, Init, 2,, "AT$B$[$2(B<cr>"
     $B$H$"$C$F!"(B[Hige.AddReg]$B$K(B
     HKR, Init, 2,, "AT$B$U$2(B<cr>"
     HKR, Init, 3,, "AT$B$R$2(B<cr>"
     $B$H$"$k>l9g!"(B[MfgAddReg]$B$H(B[Hige.AddReg]$B$K(B Init, 2$B$,$"$k(B
     $B$N$G!"@h$K=P$F$-$?(B[MfgAddReg]$B$NJ}$rL5;k$7!"(B # $B$3$NJU$,2x$7$$(B
     AT
     AT$B$U$2(B
     AT$B$R$2(B
     $B$N=gHV$G=i4|2=$5$l$k$i$7$$!#$3$N>l9g!"=i4|2=%3%^%s%I$O(B
     AT$B$U$2$R$2(B $B$K$J$k$N$G$O(B...

$B$H$$$&;v$G$9!#(B

$B2?$+JQ$J$H$3$m$,B>$K$b8+IU$+$C$F$7$^$C$?$N$G!"D>$7$F!"$D$$$G$K(B
RTS/CTS$B?.9f$K$h$k%O!<%I%U%m!<@)8f$r9T$&0Y$N%3%^%s%I$b=PNO$9$k(B
$B$h$&$K$7$?$b$N$r$D$1$F$*$-$^$9!#(B
# RTS/CTS$B$J$s$?$i$K$D$$$F$O!"3:Ev$9$k(BAT$B%3%^%s%I$,(B $B$J$$(B $B$C$F$N(B
# $B$b$"$k$h$&$G$9$,(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++;
    }

    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; 
			}
			if($inf[$i] =~ /^HKR, *Settings, *FlowControl_Hard,.*"(.+)"/i) {
			    $flow = $1;
			}

			$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";
} else {
    print "$B=i4|2=%3%^%s%I$,8+IU$+$j$^$;$s$G$7$?!#(B\n";
}

if($flow ne "") {
    print "RTS/CTS$B?.9f$K$h$k%O!<%I%U%m!<@)8f$r$9$k0Y$N%3%^%s%I$O(B AT$flow $B$N$h$&$G$9!#(B\n";
} else {
    print "RTS/CTS$B?.9f$K$h$k%O!<%I%U%m!<@)8f$r$9$k0Y$N%3%^%s%I$O(B $B$J$$(B $B$+!"8+IU$+$j$^$;$s$G$7$?!#(B\n";
}

exit;

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