discuz_dump

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     discuz_dump
   3 ###APPAUTHOR:   duel
   4 ###APPDATE:     2009-01-16 15:20:25
   5 ###APPVER:      0.1
   6 ###APPDESC:     discuz_dump
   7 ###APPUSAGE:
   8 ###APPEXAMPLE:  discuz_dump
   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;
  22 my ($url,$user,$pass,$what) = @ARGV;
  23 my $index = MyPlace::Discuz->new(user=>$user,pass=>$pass);
  24 $index->init_with_url($url);
  25 binmode STDERR,"utf8";
  26 use Data::Dumper;die Dumper($what ? $index->{$what} : $index),"\n";
  27