urlrule_test

   1 #!/usr/bin/perl -w
   2 # $Id$
   3 use strict;
   4 require v5.10.0;
   5 our $VERSION = 'v0.1';
   6
   7 BEGIN
   8 {
   9     my $PROGRAM_DIR = $0;
  10     $PROGRAM_DIR =~ s/[^\/\\]+$//;
  11     $PROGRAM_DIR = "./" unless($PROGRAM_DIR);
  12     unshift @INC,
  13         map "$PROGRAM_DIR$_",qw{modules lib ../modules ..lib};
  14 }
  15
  16 my %OPTS;
  17 my @OPTIONS = qw/help|h|? version|ver edit-me manual|man/;
  18
  19 if(@ARGV)
  20 {
  21     require Getopt::Long;
  22     require MyPlace::Usage;
  23     Getopt::Long::GetOptions(\%OPTS,@OPTIONS);
  24     MyPlace::Usage::Process(\%OPTS,$VERSION);
  25 }
  26 else
  27 {
  28     require MyPlace::Usage;
  29     MyPlace::Usage::PrintHelp();
  30 }
  31 use MyPlace::URLRule;
  32 use Data::Dumper;
  33
  34
  35 sub test
  36 {
  37     my ($status1,$rule,$result) = urlrule_process_args(@_);
  38     print STDERR Data::Dumper->Dump([$rule,$result],[qw/*rule *result/]);
  39     if($status1)
  40     {
  41         my($pass_count,@pass_args) = urlrule_get_passdown($rule,$result);
  42         if($pass_count and $pass_count>0)
  43         {
  44             foreach(@pass_args)
  45             {
  46                 &test(@{$_});
  47             }
  48         }
  49     }
  50 }
  51
  52 &test(undef,@ARGV);
  53
  54 __END__
  55
  56 =pod
  57
  58 =head1  NAME
  59
  60 urlrule_test - test urlrule
  61
  62 =head1  SYNOPSIS
  63
  64 urlrule_test [options] url [level] [action] [args...]
  65
  66 =head1  OPTIONS
  67
  68 =over 12
  69
  70 =item B<--version>
  71
  72 Print version infomation.
  73
  74 =item B<-h>,B<--help>
  75
  76 Print a brief help message and exits.
  77
  78 =item B<--manual>,B<--man>
  79
  80 View application manual
  81
  82 =item B<--edit-me>
  83
  84 Invoke 'editor' against the source
  85
  86 =back
  87
  88 =head1  DESCRIPTION
  89
  90 ___DESC___
  91
  92 =head1  CHANGELOG
  93
  94     2010-06-13  xiaoranzzz  <xiaoranzzz@myplace.hell>
  95
  96         * file created.
  97
  98 =head1  AUTHOR
  99
 100 xiaoranzzz <xiaoranzzz@myplace.hell>
 101
 102 =cut
 103
 104