#!/usr/bin/perl

$wget="/usr/bin/wget";

$name="xxxx";

$password="xxxx";

$url="http://wlt.ustc.edu.cn/cgi-bin/ip";

$log="/dev/null";

$page="/tmp/wlt_state";

$cookies="/tmp/wlt_cookies";

@type=( "教育网出口(国内)",

"电信网出口(国际,到教育网走教育网,缺省)",

"网通网出口(国际,到教育网走教育网)",

"电信网出口2(国际,到教育网免费地址走教育网)",

"网通网出口2(国际,到教育网免费地址走教育网)",

"电信网出口3(国际,文献出口)",

"网通网出口3(国际,到教育网走教育网,到电信走电信)");

@[exp](http://perldoc.perl.org/functions/exp.html)= ( 0, 120, 3600, 14400, 39600, 50400);

@expstr=("永久", "动态", "1小时", "4小时, 缺省", "11小时", "14小时");

# 登录网络通，用--keep-session-cookies和--save-cookies得到Cookies

$cmd="cmd=login";

# 这个输出页面不需要，只需要得到cookies

$options="-o$log-O$log--keep-session-cookies --save-cookies$cookies--post-data\"$cmd&name=$name&password=$password\"";

$command="$wget$options$url";

[system](http://perldoc.perl.org/functions/system.html) $command;

[print](http://perldoc.perl.org/functions/print.html) "请选择出口：\n";

$i=0;

foreach (@type) {

[print](http://perldoc.perl.org/functions/print.html) "\t", $i+1, ":$type[$i]\n";

$i=$i+1;

}

[print](http://perldoc.perl.org/functions/print.html) "注：选择出口2、3无法使用的某些电子资源，使用出口4、5、6可能可以正常使用\n";

[print](http://perldoc.perl.org/functions/print.html) "[1-7]";

$type=;

$type=$type-1;

$typestr=$type[$type];

[print](http://perldoc.perl.org/functions/print.html) "使用时限：\n";

$i=0;

foreach (@[exp](http://perldoc.perl.org/functions/exp.html)) {

[print](http://perldoc.perl.org/functions/print.html) "\t", $i+1, ":$exp[$i]s,$expstr[$i]\n";

$i=$i+1;

}

[print](http://perldoc.perl.org/functions/print.html) "[1-6]";

$exp=;

$exp=$exp-1;

$expstr=$expstr[$exp];

$exp=$exp[$exp];

$cmd="cmd=set";

# 利用Cookies选择出口和时限

$options="-o$log-O$page--load-cookies$cookies--post-data\"$cmd&name=$name&password=$password&type=$type&exp=$exp\"";

$command="$wget$options$url";

#print $command,"\n";

[system](http://perldoc.perl.org/functions/system.html) $command;

# 输出网络通使用记录

#print "\t\t\t$name 的网络通状态：\n\t$typestr\t$expstr\n";

[open](http://perldoc.perl.org/functions/open.html) PAGE, $page;

@page=;

[close](http://perldoc.perl.org/functions/close.html) PAGE;

foreach $line ([grep](http://perldoc.perl.org/functions/grep.html)(/^

.*$/, @page)) {

[chomp](http://perldoc.perl.org/functions/chomp.html) $line;

$line=~[s](http://perldoc.perl.org/functions/s.html)!

!!;

$line=~[s](http://perldoc.perl.org/functions/s.html)!

! [!;

$line=~[s](http://perldoc.perl.org/functions/s.html)!

!] !;

$line=~[s](http://perldoc.perl.org/functions/s.html)!

!!;

[print](http://perldoc.perl.org/functions/print.html) $line,"\n";

}