qvod

   1 #!/usr/bin/perl
   2 use URI::Escape;
   3
   4 sub qvodplayer {
   5     return ('d:\qvodplayer\qvodplayer.exe','-qvodurl',@_);
   6 }
   7
   8 my $url=shift;
   9 #system('msgbox',"Qvod $url");
  10 if($url) {
  11     $url = uri_unescape($url);
  12     $url =~ s/\\/\//g;
  13     $url =~ s/#qvodplayer#$//;
  14     $url =~ s/^qvod://;
  15 #    if($url =~ m/^qvod:\/\/(?:http|qvod)\//) {
  16 #        $url =~ s/^qvod:\/\/(http|qvod)\//$1:\/\//;
  17 #    }
  18 }
  19 my $QVODPLAYER='d:\qvodplayer\qvodplayer.exe';
  20 my $APP='C:\PROGRAM FILES\Internet Explorer\IExplore.exe';
  21 my $ARGS="";
  22 my $output = "$ENV{HOME}" . "/.qvodplayer/data/playlist.js";
  23 my $template = "/myplace/wine/bin/qvodplayer.html";
  24 sub qvodplayer_url {
  25     my $url=shift;
  26 #    $url =~ s/#qvodplayer#$//;
  27     my $urlname = $url;
  28     for($urlname) {
  29         s/\|+$//;
  30         s/^.*[\|\/\\]//;
  31     }
  32     $url = uri_escape($url);
  33     $urlname = uri_escape($urlname);
  34     my $line = "urls.push(new Array(\"$url\",\"$urlname\"));\n";
  35     if(-f $output) {
  36         open FI,"<",$output;
  37         my @text = grep {!($_ eq $line)} <FI>;
  38         close FI;
  39         open FO,">",$output;
  40         print FO @text if(@text);
  41     }
  42     else {
  43         open FO,">",$output;
  44         print FO 'var urls = new Array();',"\n";
  45     }
  46     print FO $line;
  47     close FO;
  48     return "file:///z:" . $template;
  49 }
  50
  51 if(!$url) {
  52     $url="file:///z:/myplace/wine/bin/qvodplayer.html";
  53 }
  54 elsif(-f $url) {
  55     $url=qx/fullname "$url"/;
  56     chomp($url);
  57     if($url =~ /\.torrent$/) {
  58         $url = qx/winepath -w "$url"/;
  59         chomp($url);
  60         $APP="start";
  61         $ENV{WINEDLLOVERRIDES}="comctl32=b";
  62     }
  63     else {
  64         $url="file:///z:$url";
  65     }
  66 }
  67 #elsif($url =~ m/\.torrent$/i) {
  68 #    $APP=$QVODPLAYER;
  69 #    $ARGS='-qvodplayer.torrent';
  70 #}
  71 elsif($url =~ m/^qvod:/i) {
  72     $url = qvodplayer_url($url);
  73 }
  74 elsif($url =~ m/\.(?:rm|rmvb|avi|mpg|mpeg|mp4|wma|qt|torrent)$/i) {
  75     $url =~ s/^qvod/http/;
  76     $url = qvodplayer_url($url);
  77 }
  78 else {
  79     $APP=$QVODPLAYER;
  80     $ARGS='-qvodurl';
  81 }
  82 #chdir $ENV{HOME} . '/.qvodplayer/data/QvodPlayer';
  83 #&reg_qvod();
  84 $ENV{WINEPREFIX}=$ENV{HOME} . '/.qvodplayer';
  85 my $qv = `ps -A -o comm | grep -i 'qvodterminal'`;
  86 chomp($qv);
  87 print STDERR $qv,"\n";
  88 unless($qv) {
  89     system("cn_wine 'd:\\QvodPlayer\\QvodTerminal.exe' -H 2>/dev/null 1>/dev/null &");
  90     sleep(1);
  91 }
  92 chdir $ENV{HOME} . '/.qvodplayer/data/QvodPlayer';
  93 #system("msgbox","$APP --  $ARGS -- $url");
  94 print STDERR ("cn_wine '$APP' $ARGS '$url'\n");
  95 exec("cn_wine '$APP' $ARGS \"$url\"");
  96 #&unreg_qvod();
  97