urlrule_task_newly

   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
  27 my @query = (
  28     '/.+/',
  29     '/.+/',
  30     '/.+/',
  31     'newly',
  32 );
  33
  34 my $cmd = 'ECHO';
  35
  36 if(@ARGV)
  37 {
  38     $cmd = shift;
  39     if($cmd =~ m/^(DOWNLOAD|ECHO|DUMP)$/i)
  40     {
  41         $cmd = uc($cmd);
  42     }
  43     else
  44     {
  45         unshift @ARGV,$cmd;
  46         $cmd = 'ECHO';
  47     }
  48     my $max_count = 3;
  49     my $current = 0;
  50     while(@ARGV && $current < $max_count)
  51     {
  52         $query[$current] = shift;
  53         $current++;
  54     }
  55 }
  56 print STDERR join(' ',('urlrule_task',$cmd,join(',',@query))),"\n";
  57 exec('urlrule_task',$cmd,join(',',@query));
  58
  59
  60 __END__
  61
  62 =pod
  63
  64 =head1  NAME
  65
  66 urlrule_task_newly - PERL script
  67
  68 =head1  SYNOPSIS
  69
  70 urlrule_task_newly [options] ...
  71
  72 =head1  OPTIONS
  73
  74 =over 12
  75
  76 =item B<--version>
  77
  78 Print version infomation.
  79
  80 =item B<-h>,B<--help>
  81
  82 Print a brief help message and exits.
  83
  84 =item B<--manual>,B<--man>
  85
  86 View application manual
  87
  88 =item B<--edit-me>
  89
  90 Invoke 'editor' against the source
  91
  92 =back
  93
  94 =head1  DESCRIPTION
  95
  96 ___DESC___
  97
  98 =head1  CHANGELOG
  99
 100     2010-06-22  xiaoranzzz  <xiaoranzzz@myplace.hell>
 101
 102         * file created.
 103
 104 =head1  AUTHOR
 105
 106 xiaoranzzz <xiaoranzzz@myplace.hell>
 107
 108 =cut
 109
 110