urlrule_list

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     urlrule_list
   3 ###APPAUTHOR:   duel
   4 ###APPDATE:     Thu Apr  3 07:46:26 2008
   5 ###APPVER:      0.1
   6 ###APPDESC:     list urlrules
   7 ###APPUSAGE:    [Level]
   8 ###APPEXAMPLE:  urlrule_list 1
   9 ###APPOPTION:
  10 use strict;
  11 use lib $ENV{XR_PERL_MODULE_DIR};
  12
  13 use MyPlace::Script::Usage qw/help_required/;
  14 exit 0 if(help_required($0,@ARGV));
  15
  16 use MyPlace::URLRule;
  17 my $level=shift;
  18 $level=0 unless($level);
  19 my $dir=get_rule_dir();
  20 system("ls","-l","$dir/$level");
  21
  22
  23