firefox-set-proxy

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     firefox-set-proxy
   3 ###APPAUTHOR:   duel
   4 ###APPDATE:     2009-01-24 02:39:54
   5 ###APPVER:      0.1
   6 ###APPDESC:     firefox-set-proxy
   7 ###APPUSAGE:    [output]
   8 ###APPEXAMPLE:  firefox-set-proxy
   9 ###APPOPTION:
  10 use strict;
  11
  12 #ENV variable MUST be defined somewhere,
  13 #FOR perl to search modules from,
  14 #OR nothing will work
  15 use lib $ENV{XR_PERL_MODULE_DIR};
  16 use MyPlace::Script::Usage qw/help_required help_even_empty/;
  17 exit 0 if(help_required($0,@ARGV));
  18 #exit 0 if(help_even_empty($0,@ARGV));
  19
  20 my $output=shift;
  21 $output ||="";
  22 exec("pac-from-proxycn",$output,"http://www.google.com");
  23