proxy-download

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     proxy-download
   3 ###APPAUTHOR:   duel
   4 ###APPDATE:     2008-09-19 01:59:04
   5 ###APPVER:      0.1
   6 ###APPDESC:     proxy-download
   7 ###APPUSAGE:
   8 ###APPEXAMPLE:  proxy-download
   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
  17 use MyPlace::Script::Usage qw/help_required help_even_empty/;
  18 #exit 0 if(help_required($0,@ARGV));
  19 exit 0 if(help_even_empty($0,@ARGV));
  20 my $default_proxy='http://proxy-https.net/index.php?hl=f5&q=';
  21 my $default_encoder='rotate13';
  22 my $url=shift;
  23 my $proxy=shift;
  24 my $encoder=shift;
  25 $proxy |= $default_proxy;
  26 $encoder |= $default_encoder;
  27
  28 $url=`echo "$url" | $encoder`;
  29 chomp $url;
  30
  31 system("download",$proxy . $url);
  32