You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
12 lines
313 B
12 lines
313 B
15 years ago
|
#!/usr/bin/perl
|
||
|
|
# the script is called with interpreter, so don't worry about the path
|
||
|
|
|
||
|
|
while(<>)
|
||
|
|
{
|
||
|
|
$useproxy = 1 if /UseProxy=true/;
|
||
|
|
$usepac = 1 if /Proxy Config Script=.*\S/;
|
||
|
|
}
|
||
|
|
printf ("# DELETE UseProxy\n");
|
||
|
|
$proxytype = $useproxy ? ($usepac ? 2 : 1) : 0;
|
||
|
|
print "ProxyType=$proxytype\n" if $proxytype;
|