TDE core libraries
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.

proxytype.pl 313B

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