[Subject Prev][Subject Next][Thread Prev][Thread Next][Subject Index][Thread Index]

[ppp-info:00034] Re: ppp $B@_DjMQ(BGUI

$BZJ}<0$J$iG'>ZJ}<0$_at_$1$N%X%k%W!K(B
> $B$rA_at_$C$F=P$9J}K!$,$o$+$j$^$;$s!#$3$N$d$jJ}$G$O(Bhelp
> $B4X?t$KEO$9%Q%i%a!<%?$r@_Dj$G$-$^$;$s!#%F!<%V%k$r;H$o(B
> $B$J$1$l$P4JC1$J$N$G$9$,!#$3$N$"$?$j$O8!F$MW$G$9!#(B

$B$O$$!#(B

> $B:8$NBg$-$J6u$-%(%j%"$O%X%k%W$d@_DjFbMFI=<(MQ$G$9!#(B
> $B2hLL$r@_7W$9$kH~E*%;%s%9$O$"$j$^$;$s!#(B

$B$$$($$$(!";(;o$G$_$?$H$3$m!";H$$$d$9$$$b$N$G$7$?$h(B(^^)

> $BEjF~$5$l$?CM$K$h$C$F%U%!%$%k$r:n$k$3$H$H%X%k%W%U%!(B
> $B%$%k$NI=<($G$9!#$G$-$?$il=j(B
> scrollbar .scr -orient vertical -command {.text yview}
> text .text -height $height -width $textwidth -yscrollcommand {.scr set}
> pack .text -side left
> pack .scr -side left -fill y
> 
> 
> 
> #============================================================================
> # $B%"%s%1!<%H%F!<%V%k(B  $B$d$O$j%U%!%$%k$+$iFI$_9~$`$Y$-$+!)(B
> # $BEEOC2s_at_~(B
> set comm(0) l
> set group(0) kaisen
> set mesg(0) "$B$"$J$?$NEEOC2s_at_~$Nl9g$O%3%^%s%I!)(B   "
> 
> set comm(18) e
> set group(18) init
> set length(18) 20
> set ival(18) init
> 
> set comm(19) b
> set group(19) init
> set mesg(19) "$B!~(B $B$o$+$i$J$$(B                                "
> 
> #============================================================================
> # $B%"%+%&%s%H(B
> 
> set comm(20) l
> set group(20) acount
> set mesg(20) "$B%"%+%&%s%H$O!)(B                             "
> 
> set comm(21) e
> set group(21) acount
> set length(21) 20
> set ival(21) acount
> 
> #============================================================================
> # $B%Q%9%o!<%I(B
> 
> set comm(22) l
> set group(22) passwd
> set mesg(22) "$B%Q%9%o!<%I$O!)(B                             "
> 
> set comm(23) e
> set group(23) passwd
> set length(23) 20
> set ival(23) passwd
> 
> set comm(24) x
> set comm(25) x
> set comm(26) x
> set comm(27) x
> set comm(28) x
> set comm(29) x
> set comm(30) x
> set comm(31) x
> set comm(32) x
> 
> #============================================================================
> # $BG'>ZJ}<0(B
> 
> 
> set comm(33) l
> set group(33) ninsho
> set mesg(33) "$B%_at_%$%"%k%"%C%W_at_\B3;~$NG'>ZJ}<0$O!)(B         "
> 
> set comm(34) r
> set group(34) ninsho
> set mesg(34) "Unix login $BJ}<0(B                           "
> set ival(34) unix
> set gval(34) ninsho
>  
> set comm(35) r
> set group(35) ninsho
> set mesg(35) "PAP$BJ}<0(B                                   "
> set ival(35) pap
> set gval(35) ninsho
> 
> set comm(36) r
> set group(36) ninsho
> set mesg(36) "CHAP$BJ}<0(B                                  "
> set ival(36) chap 
> set gval(36) ninsho
> 
> set comm(37) b
> set group(37) ninsho
> set mesg(37) "$B!~(B $B$o$+$i$J$$(B                                "
> 
> set comm(38) x
> set comm(39) x
> 
> set comm(40) end
> 
> proc help { } {
> 
>     global ninsho dial kaisen init passwd com port
> 
>     puts "-------------  help --------------------"
>     puts "$B2s_at_~(B         $kaisen"
>     puts "$B%]!<%H(B       $com"
>     puts "$BEEOCHV9f(B     [.i.tel get]"
>     puts "$B%_at_%$%"%kJ}<0(B $dial"
> 
>     puts "$B=i4|_at__Dj(B     [.i.init get]"
>     puts "$BG'>Z(B         $ninsho"
>     puts "$B%"%+%&%s%HL>(B [.i.acount get]"
> 
>     puts "$B%Q%9%o!<%I(B   [.i.passwd get]"
> }
> 
> 
> 
> proc update {} {
>     global ninsho dial kaisen init passwd com port
> 
>     puts "------------ update ---------------------"
>     puts "$B2s_at_~(B         $kaisen"
>     puts "$B%]!<%H(B       $com"
>     puts "$BEEOCHV9f(B     [.i.tel get]"
>     puts "$B%_at_%$%"%kJ}<0(B $dial"
> 
>     puts "$B=i4|_at__Dj(B     [.i.init get]"
>     puts "$BG'>Z(B         $ninsho"
>     puts "$B%"%+%&%s%HL>(B [.i.acount get]"
> 
>     puts "$B%Q%9%o!<%I(B   [.i.passwd get]"
> }
> 
> 
> 
> 
> 
> 
> 
> 
> #============================================================================
> # $B%"%s%1!<%H$NI=<((B
> 
> frame .i
> pack .i
> 
> for {set i 0} {$comm($i) != "end"} {incr i} {
> 
>     switch $comm($i) {
>         l  {
>              label .i.$comm($i)$i -text $mesg($i) -bg yellow -fg black\
>                       -font r24 -kanjifont kanji24
>               pack .i.$comm($i)$i -side top
> 
> 	}
>         r   {
>              radiobutton .i.$group($i)$i -text $mesg($i) \
>                      -value $ival($i) -var $gval($i)
>              pack  .i.$group($i)$i -side top
>         }
>         b   {
>             button .i.$group($i)$i -text $mesg($i) \
> 		     -command { help }
>             pack  .i.$group($i)$i -side top
> 
>         }
>         e   {
>             entry    .i.$group($i) -width $length($i) \
> 		    -textvariable $ival($i)
>             pack  .i.$group($i) -side top
>         }
> 
> 
> 
>     }
> }

$B0J>e!";3@n$5$s:n!#(B

$B0J2<$K;d$N(BWeb$B$G$N(Bcgi$B$G$9!#(B
	$B!t=i$a$F(B1$B9T0J>e$N%9%/%j%W%H$r(Bperl$B$G=q$$$?$N$G652J=q4]$N$^$^$_at_$C$?$j(B
	$B!t$7$^$9!#L\$,$D$V$l$J$1$l$P$$$$$N$G$9$,(B(^^;;;;;;;;;;;;


#!/usr/local/bin/perl

require "cgi-lib.pl";
&ReadParse(*in);

if ($in{'line'} eq "dk" || $in{'port'} eq "dk" || $in{'dial'} eq "dk" || 
$in{'login'} eq "dk" ){
   print &PrintHeader;
   open (HTML,"/usr/local/etc/httpd/htdocs/STEP/PPP/ppp-setup-dk.html") || die 
"can not open file 2\n";
   while ($tag = <HTML>) {
	print $tag;
   }
   close(HTML);
} else {
   print &PrintHeader;
#   open (HTML,"/usr/local/etc/httpd/htdocs/STEP/PPP/ppp-setup2.html")  || die 
"can not open file 1\n";
#   while ($tag = <HTML>) {
#	print $tag;
#   }

if ($in{'line'} eq "ana"){
	$in{'line'} = "analog";
}elsif ($in{'line'} eq "async"){
	$in{'line'} = "async-ISDN";
}elsif ($in{'line'} eq "sync"){
	$in{'line'} = "sync-ISDN";
};
print '<HTML>';
print '<HEAD><TITLE>ppp setup:STEP2</TITLE></HEAD>';
print '<BODY TEXT="#000000" BGCOLOR="#ffffff" LINK="#0000FF" ALINK="#FF0000" 
VLINK="#800000">';
print '<H1><FONT COLOR=red>ppp setup:STEP2</FONT></H1>';
print '<H3>$B$"$J$?$O(Bppp$B_at_\B3$K4X$7$FI,MW$J9`L\$r$9$Y$FGD0.$7$F$$$i$C$7$c$$$^$9$M(B
(^^)$B!#(B<BR>';
print '$BF~NO9`L\$O!"(B<BR>';
print '<UL>';
print '<LI>$B$"$J$?$N(BE-mail$B%"%I%l%9(B:',$in{'youremail'};
print '<LI>$B8=:_$N$"$J$?$N%"%/%;%985(Bhost$BL>(B:',$REMOTE_HOST;
print '<LI>$BEEOCHV9f(B($BH/?.85;T306IHV(B):',$in{'homecity'};
print '<LI>$BEEOCHV9f(B($B_at_\B3@h;T306IHV(B):',$in{'ispcity'};
if($in{'homecity'} eq $in{'ispcity'}){
	$in{'ispcity'} ='';
};

print '<LI>$BEEOCHV9f(B($B_at_\B3@h;TFb6IHV(B):<FONT COLOR=blue>345-6789</FONT>($B2>(B)';
print '<LI>$B30_at_~H/?.;~$NIU2CHV9f(B:',$in{'gaisen'};
print '<LI>$B%_at_%$%d%kJ}<0(B:',$in{'dial'};
print '<LI>$B%b%G%`(B/TA$B$N=i4|_at__Dj(B:',$in{'atcom'};
print '<LI>$BEEOC2s_at_~$N(B:<FONT COLOR=blue>hoge</FONT>($B2>L>(B)';
print '<LI>$B%_at_%$%d%k%"%C%W%Q%9%o!<%I(B:<FONT COLOR=blue>drowssap</FONT>($B2>(B)';
print '<LI>$B_at_\B3G'>ZJ}<0(B:',$in{'login'};
print '</UL>';
print '$B$H!"$J$C$F$$$^$9!#(B<P>';
print '$B$3$N>l9g$N%_at_%$%d%k%"%C%W(Bppp$B$KI,MW$J3Fhttp://his.ktarn.or.jp/STEP/PPP/ 1997 25th May',"\n";
print '#',"\n";
if($in{'line'} eq "async-ISDN"){
	print 'setserial /dev/modem spd_normal',"\n";
}else{
	print 'setserial /dev/modem spd_vhi',"\n";
};
print 'exec /usr/sbin/chat -v                                  \\',"\n";
print '        TIMEOUT         3                               \\',"\n";
print '        ABORT           \'\nLINE OFF\r\'                  \\',"\n";
print '        ABORT           \'\nBUSY\r\'                      \\',"\n";
print '        ABORT           \'\nNO ANSWER\r\'                 \\',"\n";
print '        ABORT           \'\nNO CARRIER\r\'                \\',"\n";
print '        ABORT           \'\nRINGING\r\n\r\nRINGING\r\'    \\',"\n";
print '        \'\'              AT                              \\',"\n";

$in{'atcom'} =~ s/\\/\\\\\\\\/g;
$in{'atcom'} =~ s/\"/\\\"/g;
$in{'atcom'} =~ s/\$/\\\$/g;
$in{'atcom'} =~ s/\&/\\\&/g;
$in{'atcom'} =~ s/\'/\\\'/g;
$in{'atcom'} =~ s/\(/\\\(/g;
$in{'atcom'} =~ s/\)/\\\)/g;
$in{'atcom'} =~ s/\|/\\\|/g;
$in{'atcom'} =~ s/\;/\\\;/g;
$in{'atcom'} =~ s/\</\\\</g;
$in{'atcom'} =~ s/\>/\\\>/g;

print '        \'OK-+++\c-OK\'   AT',$in{'atcom'},'                           
\\',"\n";
print '        TIMEOUT         30                              \\',"\n";
if($in{'dial'} eq "tone"){
	print '        OK              ATDT',$in{'gaisen'},$in{'ispcity'},'<FONT 
COLOR=blue>345-6789</FONT>                     \\',"\n";
}elsif($in{'dial'} eq "puls"){
	print '        OK              ATDP',$in{'gaisen'},$in{'ispcity'},'<FONT 
COLOR=blue>345-6789</FONT>                     \\',"\n";
}else{
	print '        OK              ATD',$in{'gaisen'},$in{'ispcity'},'<FONT 
COLOR=blue>345-6789</FONT>                     \\',"\n";
};
if($in{'login'} eq "unix"){
	print '        CONNECT  \'\'             \\',"\n";
	print '        ogin:--ogin:     \\d<FONT COLOR=blue>hoge</FONT>     
\\',"\n";
	print '        assword:         <FONT COLOR=blue>drowssap</FONT>',"\n";
}else{
	print '        CONNECT         \'\'',"\n";
};
print '</PRE>';
print '<HR><H1>/etc/ppp/ip-up</H1>';
print '<BLOCKQUOTE><FONT COLOR=brown>2$B9TL\0J9_$N%3%a%s%H$O!"0UL#$,J,$+$k?M$_at_$1$O(B
$B$:$7$F2<$5$$!#(B</FONT></BLOCKQUOTE>';
print '<PRE>';
print '#!/bin/sh',"\n";
print '#sendmail -q',"\n";
print '#/sbin/insmod ip_masq_ftp',"\n";
print '#/sbin/depmod -a',"\n";
print '#/sbin/modprobe ip_masq_ftp.o',"\n";
print '#/sbin/modprobe ip_masq_raudio.o',"\n";
print '#/sbin/modprobe ip_masq_irc.o',"\n";
print '#/usr/sbin/netdate his.ktarn.or.jp',"\n";
print '#/sbin/clock -w',"\n";
print '</PRE>';
print '<HR><H1>/etc/ppp/ip-down</H1>';
print '<BLOCKQUOTE><FONT COLOR=brown>$B:G8e$N(B3$B9T$N%3%a%s%H$O!"0UL#$,J,$+$k?M$_at_$1$O(B
$B$:$7$F2<$5$$!#(B</FONT></BLOCKQUOTE>';
print '<PRE>';
print '#!/bin/sh',"\n";
print '#',"\n";
print '# This is part 2 of the ppp-on script. It will perform the 
connection',"\n";
print '# protocol for the desired connection.',"\n";
print '#',"\n";
print 'exec /usr/sbin/chat -v                                          \\',"\n";
print '        TIMEOUT         3                               \\',"\n";
print '        ABORT           \'\nLINE OFF\r\'                  \\',"\n";
print '        ABORT           \'\nBUSY\r\'                      \\',"\n";
print '        ABORT           \'\nNO ANSWER\r\'                 \\',"\n";
print '        ABORT           \'\nRINGING\r\n\r\nRINGING\r\'    \\',"\n";
print '        \'\'              ATZ',"\n";
print '#/sbin/rmmod ip_masq_ftp.o',"\n";
print '#/sbin/rmmod ip_masq_raudio.o',"\n";
print '#/sbin/rmmod ip_masq_irc.o',"\n";
print '</PRE>';
print '<HR><H1>/etc/ppp/pap-secret</H1>';
print '<PRE>';
print '# Secrets for authentication using PAP',"\n";
print '# client        server  secret                  IP addresses',"\n";
print '<FONT COLOR=blue>hoge</FONT>            ""      <FONT 
COLOR=blue>drowssap</FONT>',"\n";
print '</PRE>',"\n";
print '<HR><H1>/etc/ppp/chap-secret</H1>';
print '<PRE>';
print '# Secrets for authentication using PAP',"\n";
print '# client        server  secret                  IP addresses',"\n";
print '<FONT COLOR=blue>hoge</FONT>            ""      <FONT 
COLOR=blue>drowssap</FONT>',"\n";
print '</PRE>';
print '<HR>';
print '$B$5$i$K!"=$_at_5$,I,MW$J%U%!%$%k$H$7$F!"(B';
print '<HR><H1>/etc/rc.d/rc.inet1</H1>';
print '$B=$_at_58D=j$_at_$1<($7$^$9!#(B<BR>';
print 'GATEWAY$B$NItJ,$r%3%a%s%H%"%&%H$9$k$H$$$&$3$H$G$9!#(B<BR>';
print '<PRE>';
print '#GATEWAY="192.168.0.5"  # REPLACE with YOUR gateway address!',"\n";
print '</PRE>';
print '<HR>';
print '$B%j%s%/>pJs$r8+D>$9I,MW$,$"$k%U%!%$%k$H$7$F!"(B';
print '<HR><H1>/dev/modem</H1>';
print '$B$"$J$?$N>l9g$O(B/dev/modem$B$O(B/dev/',$in{'port'},' $B$K%7%s%\%j%C%/%j%s%/$5$l$F(B
$B$$$k$Y$-$G$9!#(B<BR>';
print 'ls -l /dev/modem$B$G3N$+$a$F2<$5$$!#(B<P>';
print '$BNI$/J,$+$i$J$$?M$O!"(B<BR>';
print '<PRE>';
print 'mv /dev/modem /dev/modem.orig',"\n";
print 'ln -sf /dev/',$in{'port'},' /dev/modem',"\n";
print '</PRE>';
print '$B$r$K%3%T!<$7$F$/$_at_$5$$!#(B<BR>';
print '<LI>$B$*9%$-$J%(%G%#%?$G$=$l$i$N%U%!%$%k$+$iITMWItJ,$r@Z$je$N3F_at_\5/F0$7$F$b(BOK$B$G$9!#(B<BR>';
print '$B8e!9(Bon-demand$B$K$h$k%_at_%$%d%k%"%C%W$r7W2h$5$l$F$$$kJ}$K$H$C$F$O$3$NJ}$,NI$$(B
$B$H;W$$$^$9!#(B</FONT></BLOCKQUOTE>';
print '<LI>$B%b%G%`$d(BTA$B$,%_at_%$%d%k%"%C%W$r;O$a$?$3$H$r3NG'$9$k!#(B';
print '<LI>$B$J$s$H$J$/$&$^$/9T$C$F$$$=$&$J$i$P!"(Bifconfig$B%3%^%s%I$rBG$C$F(Bppp$B$,3NN)(B
$B$7$F$$$k$+$I$&$+8+$F$_$k!#(B';
print '<LI>ppp$B$,3NN)$7$F$$$?$i!"(Bping$B$J$I$G%W%m%P%$%_at_$N%M!<%`%5!<%P$J$I$K%"%/%;%9(B
$B$7$F$_$k!#(B';
print '<LI>$B$&$^$/9T$C$F$$$l$P!"$3$3$G$a$G$?$7$a$G$?$7(B(^o^) ->[<A 
HREF="/index.html#TOP">$B8<4X$X(B</A>]<BR>';
print '<LI><FONT COLOR=red>$B$&$^$/9T$C$F$$$J$$?M(B(T_T)$B$O!"$=$N;~$K=P$?%(%i!<%a%C%;(B
$B!<%8$r%a%b$7$F!"$3$A$i$NJ}$X$I$&$>(B(^^) -></FONT>[<A 
HREF="/STEP/linux-step1.html">Linux STEUP$B$X(B</A>]<BR>';
print '<HR>';
print '<H1>[<A HREF="/STEP/PPP/ppp-setup1.html">ppp SETUP:STEP1$B$X(B</A>]';
print '</H1></FORM>';
print '<HR>';
print '[<A HREF="/index.html#TOP">$B8<4X$X(B</A>]';
print '[<A HREF="http://www.post1.com/~his">$BAmK\E9$X(B</A>]</BODY>';
print '</HTML>';
#   close(HTML);
};

 WWWWW  $B0L_at_!wJ!2,;T(B
 |O-O|  PHS:050-844-3090
0(mmm)0
   ~