kio/proxytype.pl

   1 #!/usr/bin/perl
   2 # the script is called with interpreter, so don't worry about the path
   3
   4 while(<>)
   5 {
   6     $useproxy = 1 if /UseProxy=true/;
   7     $usepac = 1 if /Proxy Config Script=.*\S/;
   8 }
   9 printf ("# DELETE UseProxy\n");
  10 $proxytype = $useproxy ? ($usepac ? 2 : 1) : 0;
  11 print "ProxyType=$proxytype\n" if $proxytype;