urlrule_cat

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     urlrule_action
   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_action URL [0-5] [action args...]
   8 ###APPEXAMPLE:  urlrule_action http://www.sina.com.cn 0 cat
   9 use strict;
  10
  11 use lib $ENV{XR_PERL_MODULE_DIR};
  12 use MyPlace::Script::Usage qw/help_required help_even_empty/;
  13 exit 0 if(help_even_empty($0,@ARGV));
  14
  15 use MyPlace::URLRule;
  16 use Cwd qw/getcwd/;
  17 my %rule = %{parse_rule(@ARGV)};
  18 use Data::Dumper;print STDERR Data::Dumper->Dump([\%rule],["%rule"]);
  19     if(!-f $rule{source}) {
  20         print STDERR "File not found: $rule{source}\n";
  21         exit 1;
  22     }
  23     else {
  24         open FI,"<",$rule{source} or die("$!\n");
  25         print STDOUT <FI>;
  26         close FI;
  27     }
  28
  29