10 $PROGRAM_DIR =~ s/[^\/\\]+$//;
11 $PROGRAM_DIR = "./" unless($PROGRAM_DIR);
13 map "$PROGRAM_DIR$_",qw{modules lib
../modules
..lib
};
17 my @OPTIONS = qw
/help|h|? version|ver edit-me manual|man/;
22 require MyPlace
::Usage
;
23 Getopt
::Long
::GetOptions
(\
%OPTS,@OPTIONS);
24 MyPlace
::Usage
::Process
(\
%OPTS,$VERSION);
27 system("pskill",'urlrule_task');
28 system("pskill",'batchget');
29 system("pskill",'download');
30 system("pskill",'curl');
38 urlrule_task_kill - PERL script
42 urlrule_task_kill [options] ...
50 Print version infomation.
54 Print a brief help message and exits.
56 =item B<--manual>,B<--man>
58 View application manual
62 Invoke 'editor' against the source
72 2010-08-03 xiaoranzzz <xiaoranzzz@myplace.hell>
78 xiaoranzzz <xiaoranzzz@myplace.hell>