webdisk_download

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     webdisk_download
   3 ###APPAUTHOR:   duel
   4 ###APPDATE:     2009-01-27 06:57:22
   5 ###APPVER:      0.1
   6 ###APPDESC:     webdisk_download
   7 ###APPUSAGE:
   8 ###APPEXAMPLE:  webdisk_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
  21 my @urls = @ARGV;
  22 unless(@urls) {
  23     while(<STDIN>) {
  24         chomp;
  25         push @urls,$_;
  26     }
  27 }
  28 die("Error:no urls specified!\n") unless(@urls);
  29 foreach(@urls) {
  30     if(/rayfile.com/) {
  31         system("rayfile_download",$_);
  32     }
  33     elsif(/namipan.com/) {
  34         system("namipan_download",$_);
  35     }
  36     else {
  37         print STDERR "Error:Webdisk type not supported\n";
  38     }
  39 }