flashget_mini

   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 $ENV{'WINEPREFIX'} = $ENV{'HOME'} . "/.qvodplayer";
  32 exec('cn_wine','C:\Program Files\Flashget Network\Flashget Mini\FlashgetMini.exe',@ARGV);
  33
  34
  35 __END__
  36
  37 =pod
  38
  39 =head1  NAME
  40
  41 flashget - PERL script
  42
  43 =head1  SYNOPSIS
  44
  45 flashget [options] ...
  46
  47 =head1  OPTIONS
  48
  49 =over 12
  50
  51 =item B<--version>
  52
  53 Print version infomation.
  54
  55 =item B<-h>,B<--help>
  56
  57 Print a brief help message and exits.
  58
  59 =item B<--manual>,B<--man>
  60
  61 View application manual
  62
  63 =item B<--edit-me>
  64
  65 Invoke 'editor' against the source
  66
  67 =back
  68
  69 =head1  DESCRIPTION
  70
  71 ___DESC___
  72
  73 =head1  CHANGELOG
  74
  75     2010-06-21  xiaoranzzz  <xiaoranzzz@myplace.hell>
  76
  77         * file created.
  78
  79 =head1  AUTHOR
  80
  81 xiaoranzzz <xiaoranzzz@myplace.hell>
  82
  83 =cut
  84
  85