summaryrefslogtreecommitdiffstats
path: root/tdeio/proxytype.pl
blob: 553db53f78c9e3757bc969b6a39f1c13956679d6 (plain)
1
2
3
4
5
6
7
8
9
10
11
#!/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;