sina.login

   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     our $PROGRAM_DIR = $ENV{XR_PERL_SOURCE_DIR};
  10     unless($PROGRAM_DIR) {
  11         $PROGRAM_DIR = $0;
  12         $PROGRAM_DIR =~ s/[^\/\\]+$//;
  13         $PROGRAM_DIR =~ s/\/+$//;
  14         $PROGRAM_DIR = "." unless($PROGRAM_DIR);
  15     }
  16     unshift @INC,
  17         map "$PROGRAM_DIR/$_",qw{modules lib ../modules ..lib};
  18 }
  19
  20 my %OPTS;
  21 my @OPTIONS = qw/help|h|? version|ver edit-me manual|man/;
  22
  23 if(@ARGV)
  24 {
  25     require Getopt::Long;
  26     require MyPlace::Usage;
  27     Getopt::Long::GetOptions(\%OPTS,@OPTIONS);
  28     MyPlace::Usage::Process(\%OPTS,$VERSION);
  29 }
  30
  31 my($user,$pass) = @ARGV;
  32 if(!$user) {
  33     print STDERR "Login Id:";
  34     $user= readline(*STDIN);
  35     print STDERR "\n";
  36     die("Invalid Login Id") unless($user);
  37 }
  38 if(!$pass) {
  39     print STDERR "Password:";
  40     $pass= readline(*STDIN);
  41     print STDERR "\n";
  42     die("Invalid password") unless($pass);
  43 }
  44 use MyPlace::Sina;
  45 my $sina = MyPlace::Sina->new();
  46 print STDERR "[$user] Logining into sina.com.cn ...\n";
  47 my ($ex,$data) = $sina->login($user,$pass,"http://t.sina.com.cn");
  48 if($data =~ m/"result":true/) {
  49     print STDERR "[OK]\n";
  50     exit 0;
  51 }
  52 else {
  53     print STDERR "[Failed]\n";
  54     exit 1;
  55 }
  56
  57
  58 __END__
  59
  60 =pod
  61
  62 =head1  NAME
  63
  64 sina.login - PERL script
  65
  66 =head1  SYNOPSIS
  67
  68 sina.login [options] ...
  69
  70 =head1  OPTIONS
  71
  72 =over 12
  73
  74 =item B<--version>
  75
  76 Print version infomation.
  77
  78 =item B<-h>,B<--help>
  79
  80 Print a brief help message and exits.
  81
  82 =item B<--manual>,B<--man>
  83
  84 View application manual
  85
  86 =item B<--edit-me>
  87
  88 Invoke 'editor' against the source
  89
  90 =back
  91
  92 =head1  DESCRIPTION
  93
  94 ___DESC___
  95
  96 =head1  CHANGELOG
  97
  98     2010-11-09 22:39  xiaoranzzz  <xiaoranzzz@myplace.hell>
  99
 100         * file created.
 101
 102 =head1  AUTHOR
 103
 104 xiaoranzzz <xiaoranzzz@myplace.hell>
 105
 106 =cut
 107
 108 #       vim:filetype=perl