urlrule_download

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     urlrule_get
   3 ###APPAUTHOR:   duel
   4 ###APPDATE:     Mon Mar 24 06:25:31 2008
   5 ###APPVER:      0.1
   6 ###APPDESC:     apply rule for URL,and perform action
   7 ###APPUSAGE:    urlrule_get URL [0-5] [action args...]
   8 ###APPEXAMPLE:  urlrule_get http://www.sina.com.cn 0 cat
   9 use strict;
  10 use Data::Dumper;
  11
  12 use lib $ENV{XR_PERL_MODULE_DIR};
  13 use MyPlace::Script::Usage qw/help_even_empty/;
  14 exit 0 if(help_even_empty($0,@ARGV));
  15
  16 use MyPlace::URLRule;
  17
  18
  19 my %rule = %{parse_rule(@ARGV)};
  20
  21 exec("urlrule_action",@ARGV,"batchget -a -n '$rule{domain}\[$rule{level}\]'");
  22