urlrule_database_add_google

   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
  32 exec("urlrule_database","add",@ARGV,"google.search.image","newly");
  33
  34 __END__
  35
  36 =pod
  37
  38 =head1  NAME
  39
  40 urlrule_database_add_google - PERL script
  41
  42 =head1  SYNOPSIS
  43
  44 urlrule_database_add_google [options] ...
  45
  46 =head1  OPTIONS
  47
  48 =over 12
  49
  50 =item B<--version>
  51
  52 Print version infomation.
  53
  54 =item B<-h>,B<--help>
  55
  56 Print a brief help message and exits.
  57
  58 =item B<--manual>,B<--man>
  59
  60 View application manual
  61
  62 =item B<--edit-me>
  63
  64 Invoke 'editor' against the source
  65
  66 =back
  67
  68 =head1  DESCRIPTION
  69
  70 ___DESC___
  71
  72 =head1  CHANGELOG
  73
  74     2010-06-20  duel  <duel@myplace.hell>
  75
  76         * file created.
  77
  78 =head1  AUTHOR
  79
  80 duel <duel@myplace.hell>
  81
  82 =cut
  83
  84