discuz_index

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     discuz_index
   3 ###APPAUTHOR:   duel
   4 ###APPDATE:     2009-01-16 15:20:25
   5 ###APPVER:      0.1
   6 ###APPDESC:     discuz_index
   7 ###APPUSAGE:
   8 ###APPEXAMPLE:  discuz_index
   9 ###APPOPTION:
  10 use strict;
  11
  12 #ENV variable MUST be defined somewhere,
  13 #FOR perl to search modules from,
  14 #OR nothing will work
  15 use lib $ENV{XR_PERL_MODULE_DIR};
  16
  17 use MyPlace::Script::Usage qw/help_required help_even_empty/;
  18 exit 0 if(help_required($0,@ARGV));
  19 #exit 0 if(help_even_empty($0,@ARGV));
  20
  21 use MyPlace::Discuz::Index;
  22 my $index = MyPlace::Discuz::Index->new(@ARGV);
  23 use Data::Dumper;die Dumper($index),"\n";
  24