From owner-FreeBSD-users-jp@jp.freebsd.org  Fri Apr  2 07:15:36 1999
Received: (from daemon@localhost)
	by jaz.jp.freebsd.org (8.9.2+3.1W/8.7.3) id HAA16568;
	Fri, 2 Apr 1999 07:15:36 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from april.on.rim.or.jp (root@april.on.rim.or.jp [202.247.131.85])
	by jaz.jp.freebsd.org (8.9.2+3.1W/8.7.3) with ESMTP id HAA16563
	for <FreeBSD-users-jp@jp.freebsd.org>; Fri, 2 Apr 1999 07:15:35 +0900 (JST)
	(envelope-from ryo2@on.rim.or.jp)
Received: from quill.on.rim.or.jp (ppp106.jp.rim.or.jp [202.247.164.106])
	by april.on.rim.or.jp (8.8.8/3.6W-RIMNET-98-06-09) with ESMTP id HAA00894;
	Fri, 2 Apr 1999 07:15:32 +0900 (JST)
Message-Id: <199904012215.HAA00894@april.on.rim.or.jp>
Received: from localhost by quill.on.rim.or.jp (8.8.8/3.5Wpl5-97111919)
	id HAA01472; Fri, 2 Apr 1999 07:16:06 +0900 (JST)
To: FreeBSD-users-jp@jp.freebsd.org, neko@sx.miracle.ne.jp
From: Yoshishige ARAI <ryo2@on.rim.or.jp>
In-Reply-To: Your message of "Thu, 01 Apr 1999 02:02:05 +0900"
	<19990401020205H.neko@sx.miracle.ne.jp>
References: <19990401020205H.neko@sx.miracle.ne.jp>
X-Mailer: Mew version 1.93 on XEmacs 20.4 (Emerald)
Mime-Version: 1.0
Content-Type: Multipart/Mixed;
	boundary="--Next_Part(Fri_Apr__2_00:36:00_1999_809)--"
Content-Transfer-Encoding: 7bit
Date: Fri, 02 Apr 1999 07:16:06 +0900 (JST)
X-Dispatcher: imput version 980905(IM100)
Lines: 160
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 40694
Subject: [FreeBSD-users-jp 40694] 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: ryo2@on.rim.or.jp

----Next_Part(Fri_Apr__2_00:36:00_1999_809)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

$B$"$i$$!w%j%`%M%C%H$H?=$7$^$9!#(B

On Thu, 01 Apr 1999 02:02:05 +0900 ([FreeBSD-users-jp 40586] Re: ppp.conf $B$K$D$$$F(B )
shoo kajitani <neko@sx.miracle.ne.jp> wrote:

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

s/chomp/chop/ $B$8$c$"$j$^$;$s$+(B? chop()$B$O(B perl4,5 $BN>J}$G;H$($^$9!#(B

Megaherts$B$N%+!<%I(B XJ4288(PCMCIA)$BIUB0$N(B .inf$B%U%!%$%k$G;n$7$?$i!"(B
$B$&$^$/=i4|2=%3%^%s%I$r$_$D$1$i$l$^$;$s$G$7$?!#(B.inf$B$r8+$k$H!"(B

[Models]
%XJ3144%  = ModemCJ,  PCMCIA\MEGAHERTZ-XJ3144-9D57
%XJA3144%  = ModemCJ,  PCMCIA\MEGAHERTZ-Megahertz_XJA3144-F3FF
($BCfN,(B)
%XJ4288%  = ModemPhoe,  PCMCIA\Megahertz-XJ-CC4288-885B
        ~~
$B$H$J$C$F$*$j!"(B
$modem_tmp = $' if $line =~ /^%$modem_number% ?= ?/i
                                             ~~
$B$3$N!V6uGr$O(B 1$B8D0J2<!W$H$$$&7h$aBG$A$,$^$:$$$h$&$G$9!#(B

$B3aC+(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
$B3aC+(B> $BB?J,2r<a$9$Y$-ItJ,$G=q$$$F$J$$ItJ,$b$"$k$N$G!"$&$^$/9T$+$J$$(B
$B3aC+(B> $B;v$b$"$k$+$bCN$l$^$;$s!#(B
$B3aC+(B> # $BFC$K(B[Strings]$B$NCf$N(BManufacturer$B$K4X$9$kItJ,!#(B

$BF0$+$J$$(B inf$B$,8+$D$+$C$?$iBP=h$9$l$P(B..($BE%Fl$@$J$!(B)

On Thu, 1 Apr 1999 11:09:45 +0900 ([FreeBSD-users-jp 40609] Re: ppp.conf $B$K$D$$$F(B )
YAMAguchi*core*YASUyuki <YamaYasu@Alexon.CO.JP> wrote:

$B;38}(B> > ..inf$B%U%!%$%k$O%b%G%`$N>pJs$@$1$G$O$J$/$F%b%K%?%G%#%9%W%l%$$N;EMM(B
$B;38}(B> > $B$H$+!"(BPnP$B%3%s%U%#%0%l!<%7%g%s>pJs$H$+(B($B$3$l$O$$$i$J$$$+$J(B)$B$b<h$l$k$N$G(B
$B;38}(B> > $B;d$O$b$C$HHFMQ$N%i%$%V%i%j$r$D$/$C$F$*$1$P!"(BXF86Setup$B$NJd=u$d3F<o%G%P%$%9(B
$B;38}(B> > $B$N@_Dj$K$D$+$($k$+$i4r$7$$$+$J$H;W$C$F$$$^$9!#(B

$B;38}(B> $B$3$3$^$GH/E8$5$;$k$N$OFq$7$$$+$b(B... $B=PMh$l$PK|!9:P!#(B

$BATBg$G$9$M$'!#$H$j$"$($:$*<j7Z$J$H$3$m$G$O!"BPOCE*$KEz$($k$H(B
ppp.conf $B$N%(%s%H%j$r=PNO$7$F$/$l$k$h$&$J(B CUI$B$N%3%^%s%I$,0l$D$"$k$H(B
$BJXMx$=$&$K;W$$$^$9$,!"$I$s$J$b$N$G$7$g$&!#(B


$B3aC+$5$s$N%9%/%j%W%H$G$9$,!"(B
for ($i = 0; $i < @inf; $i++) ... if $inf[$i] =~ ...
$B$N$h$&$J7+$jJV$7$,B?$/$F!"<:Ni$J$,$i8+DL$7$,>/$70-$$5$$,$7$?$N$G!"(B
$B>-Mh$N3HD%$KHw$($F@0M}$7!"=q$-D>$7$F$_$^$7$?!#(B
$B$=$l$H!"%b%G%`L>$r%?%$%W$9$k$N$,LLE]=-$+$C$?$N$G!"?t;z$@$1$GA*$V$h$&$K(B
$B>!<j$KJQ$($F$7$^$$$^$7$?!#(B
$B;H$&$H$-$O(B EUC$B$G%;!<%V$7$F2<$5$$!#(B
(SUNTAC$B$H(B Megaherts$B$N(B .inf$B$GF0:n3NG':Q$_(B)

----Next_Part(Fri_Apr__2_00:36:00_1999_809)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Content-Description: getmdminit.pl
Content-Disposition: attachment; filename=getmdminit.pl

#!/usr/bin/perl

($prog) = ($0 =~ /([^\/]+)$/);
print "***** Windows$BMQ%b%G%`(BINF$B%U%!%$%k%A%'%C%+!<(B *****\n";
print "$prog $B$O!"%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(Ctrl-C$B$G=*N;(B): ";
    chop($inffile = <STDIN>);
}
open(INF,"$inffile") || die "INF$B%U%!%$%k(B $inffile $B$r3+$/;v$,$G$-$^$;$s$G$7$?!#(B\n"; 
@inf = <INF>;
close(INF);

%items = &get_entries("Strings", "([A-Z\\d]+)\\s*=(.+)", TRUE);
scalar(%items)
    || die "INF$B%U%!%$%k(B $inffile $B$NCf$+$i%b%G%`$NDj5A$r8+$D$1$k;v$,=PMh$^$;$s$G$7$?!#(B\n";
$i = 0;
foreach (sort keys %items) {
    $modem{++$i} = $_;
    print "$i) $_: $items{$_}\n";
}

print "$B$"$J$?$N%b%G%`$O$I$l$G$9$+!#(B";
while(!defined($modem{$modem_number})) {
    print "$BHV9f$rF~NO$7$F2<$5$$(B(Ctrl-C$B$G=*N;(B): ";
    chop($modem_number = <STDIN>);
    unless($modem{$modem_number}) {
	print "$BHV9f$,@5$7$/$J$$$h$&$G$9!#(B";
	next;
    }
    print "$modem{$modem_number} $B$G$9$M!#(B\n\n";
    foreach (@inf) {
	/^%$modem{$modem_number}%\s*=\s*/i && ($modem_tmp = $', last);
    }
    if ($modem_tmp =~ /^[\w\d]+/i) {
	$modem_name = $&;
	foreach (&get_entries($modem_name, "AddReg\\s*=(.*)")) {
	    @checklist = split(/,/);
	}
	foreach $x (@checklist) {
	    $x =~ s/[ \r\n\t]//g;
	    %items = &get_entries($x, "HKR,\\s*Init,.*(\\d+).*\"AT\\s*(.+)<cr>\"", TRUE);
	    foreach (sort {$a <=> $b} keys %items) {
		$at_commands .= $items{$_};
	    }
	}
    }
}

$at_commands =~ s/\s//g;
if($at_commands ne "") {
    print "$B=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+$D$+$j$^$;$s$G$7$?!#(B\n\n";
}

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

exit(0);

sub get_entries {
    local($name, $regex, $assoc_required) = @_;
    local($in_the_block, $s1, $s2, @matched, %matched) = ();

    foreach (@inf) {
	if($in_the_block) {
	    (/^;/ || /^[\s\t]*$/)&& next;
	    /^\[/ && last;
	    if($assoc_required) {
	      (($s1, $s2) = /^$regex/) && ($matched{$s1} = $s2);
	    } else {
	      /^$regex/ && push(@matched, $1);
	    }
	} elsif (/^\[$name\]/i) {
	    $in_the_block = TRUE;
	}
    }
    ($assoc_required)? %matched:@matched;
}

sub TRUE {1;}

----Next_Part(Fri_Apr__2_00:36:00_1999_809)----
