#!/usr/local/bin/perl
######################################################################
# iij-ppp 用便利コマンド作成スクリプト Rev-0.0.1
# (C)1998 GRIFFON Works / 雷獣王ＧＲＩＦＦＯＮ 
#    Mail address     : griffon@os.xaxon.ne.jp
#    Homepage address : http://www.os.xaxon.ne.jp/~griffon/
######################################################################

# ppp.secret のパスワード
$passwd = 'password';

# ppp.conf 内のダイヤルセクション
$dialsection = 'dialsection';

# 格納先
$makedir = '/usr/local/bin';

#
# わからない人はこれ以降書き換え禁止！
#
open(FILE, ">$makedir/pppauto");
print FILE "ppp -auto $dialsection";
close(FILE);
chmod 0755, "$makedir/pppauto";

open(FILE, ">$makedir/pppopen");
print FILE "pppctl -p $passwd 3000 \\; dial &";
close(FILE);
chmod 0755, "$makedir/pppopen";

open(FILE, ">$makedir/pppclose");
print FILE "pppctl -p $passwd 3000 \\; close";
close(FILE);
chmod 0755, "$makedir/pppclose";

open(FILE, ">$makedir/pppquit");
print FILE "pppctl -p $passwd 3000 \\; quit all";
close(FILE);
chmod 0755, "$makedir/pppquit";

open(FILE, ">$makedir/pppteleho");
print FILE "pppctl -p $passwd 3000 set timeout 27000";
close(FILE);
chmod 0755, "$makedir/pppteleho";

open(FILE, ">$makedir/ppplogview");
print FILE "ee /var/log/ppp.log";
close(FILE);
chmod 0755, "$makedir/ppplogview";

open(FILE, ">$makedir/ppplogclear");
print FILE "echo \"\" > /var/log/ppp.log";
close(FILE);
chmod 0755, "$makedir/ppplogclear";