zhreader

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     zhreader
   3 ###APPAUTHOR:   xiaoranzzz
   4 ###APPDATE:     Mon Mar 31 11:23:00 2008
   5 ###APPVER:      0.1
   6 ###APPDESC:     build jar url,open it in browser
   7 ###APPUSAGE:    (zipfile) [browser]
   8 ###APPEXAMPLE:
   9 ###APPOPTION:
  10 use strict;
  11 use lib $ENV{XR_PERL_MODULE_DIR};
  12 use MyPlace::Script::Usage qw/help_even_empty/;
  13 use MyPlace::Filename;
  14
  15 exit 0 if(help_even_empty($0,@ARGV));
  16
  17
  18 my @p_browser= (
  19     ["r-firefox","-new-tab"],
  20     ["firefox","-new-tab"],
  21     ["epiphany","-n"],
  22     );
  23 @p_browser = grep(`which "$_->[0]"`,@p_browser);
  24 die("No browser found\n") unless(@p_browser);
  25
  26 my $zipfile=shift;
  27 my $browser=shift;
  28 my $arg="";
  29
  30 $zipfile=get_fullname($zipfile);
  31 die("File not exist $zipfile\n") unless(-r $zipfile);
  32 my $index=`listzip "$zipfile" | firsthtml`;
  33 chomp($index) if($index);
  34 my $url="jar:file://$zipfile!/$index";
  35
  36 $url =~ s/#/%23/g;
  37 $url =~ s/ /%20/g;
  38
  39 if(!$browser) {
  40     my @running=`ps -A -u \$UID`;
  41     foreach(@p_browser){
  42         my $exp=@{$_}[0];
  43         my $opt=@{$_}[1];
  44         last if($browser);
  45         next unless `which "$exp" 2>/dev/null`;
  46         foreach(@running) {
  47             chomp;
  48             if(/\b$exp\b/) {
  49                 $browser=$exp;
  50                 $arg=$opt;
  51                 last;
  52             }
  53         }
  54     }
  55 }
  56
  57 ($browser,$arg) = ($p_browser[0][0],$p_browser[0][1]) unless($browser);
  58 print STDERR "$browser $arg $url\n";
  59 exec("exec_silently",$browser,$arg,$url);
  60