Public Git Hosting - xrzperl.git/blob

1 #!/usr/bin/perl -w

3 use strict;

4 require v5.10.0;

our $VERSION = 'v0.1';

    my $PROGRAM_DIR = $0;

10 $PROGRAM_DIR =~ s/[^\/\\]+$//;

    $PROGRAM_DIR = "./" unless($PROGRAM_DIR);

12 unshift @INC,

        map "$PROGRAM_DIR$_",qw{modules lib ../modules ..lib};

16 my %OPTS;

my @OPTIONS = qw/help|h|? version|ver edit-me manual|man/;

19 if(@ARGV)

21 require Getopt::Long;

22 require MyPlace::Usage;

    Getopt::Long::GetOptions(\%OPTS,@OPTIONS);

    MyPlace::Usage::Process(\%OPTS,$VERSION);

system("pskill",'urlrule_task');

system("pskill",'batchget');

system("pskill",'download');

system("pskill",'curl');

32 __END__

36 =head1 NAME

38 urlrule_task_kill - PERL script

40 =head1 SYNOPSIS

42 urlrule_task_kill [options] ...

44 =head1 OPTIONS

46 =over 12

48 =item B<--version>

50 Print version infomation.

52 =item B<-h>,B<--help>

54 Print a brief help message and exits.

56 =item B<--manual>,B<--man>

58 View application manual

60 =item B<--edit-me>

62 Invoke 'editor' against the source

66 =head1 DESCRIPTION

68 ___DESC___

70 =head1 CHANGELOG

72 2010-08-03 xiaoranzzz <xiaoranzzz@myplace.hell>

74 * file created.

76 =head1 AUTHOR

78 xiaoranzzz <xiaoranzzz@myplace.hell>