#!/usr/bin/perl use strict; use warnings; use utf8; use XML::XPath; use CGI; use File::Basename; use File::Spec; my $dir = dirname( $ENV{'SCRIPT_FILENAME'} ); my $path = File::Spec->catfile( $dir, 'mva-transcript.pl' ); require $path; $path = File::Spec->catfile( $dir, 'mva-translation.pl' ); require $path; #require 'mva-transcript.pl'; #require 'mva-translation.pl'; binmode STDOUT, ":utf8"; my $cgi = new CGI; print $cgi->header(-charset=>"utf-8"); my $title = "MVA Translation"; if($cgi->param('action') eq "play"){ my $videoDirectory = $cgi->param('videoDirectory'); &displayVideo($videoDirectory); exit; } &print_index($cgi); my $store = "store"; &print_video_list($store); if(defined($cgi->param('mva_url'))){ my $url = $cgi->param('mva_url'); my $outputDirectory = MVA::Transcript::do($url); MVA::Translation::do($outputDirectory); } sub print_index($){ my $cgi = shift; print <<"_HTML_"; Developers Convention - $title
MVA Translation   Naming   Association Search   Code Snippet   DB   My Mind Map   Wiki

$title

e.g.) https://mva.microsoft.com/en-US/training-courses/introduction-to-net-core-16764

MVA URL:


_HTML_ } sub print_video_list($){ my $store = shift; opendir(my $dh, $store) or die "can't opendir $store$!"; my @courceList = grep !/^\./, readdir $dh; closedir $dh; my %courceSorted; foreach my $cource (@courceList){ my $mtime = (stat("$store/$cource"))[9]; push @{$courceSorted{$mtime}},$cource; } print '
'; my $courceCount = 1; foreach my $time (sort {$b <=> $a} keys %courceSorted){ foreach my $cource (@{$courceSorted{$time}}){ print '
'; if($courceCount == 1){ print ''; } else { print ''; } print ''; print '

'; opendir(my $cdh, $store."/".$cource) or die "can't opendir $store/$cource$!"; my @categoryList = grep !/^\./, readdir $cdh; @categoryList = sort { (split(/_/,$a))[0] <=> (split(/_/,$b))[0] } @categoryList; closedir $cdh; foreach my $category(@categoryList){ opendir(my $vdh, $store."/".$cource."/".$category) or die "can't opendir $store/$cource/$category$!"; my @videoList = grep !/^\./, readdir $vdh; closedir $vdh; print '' . $category . ''; print ''; print ' '; print ' '; print ' '; print ' '; print ' '; print ' '; print ' '; print ' '; print ' '; print ' '; print ' '; print ' '; print ' '; foreach my $video(sort(@videoList)){ my $videoDirectory = $store."/".$cource."/".$category."/".$video; my $videoSettings = $videoDirectory."/"."videosettings.xml"; my $videoCc = $videoDirectory."/"."video_cc.xml"; my $videoCcEn = $videoDirectory."/"."video_cc.en.vtt"; my $videoCcJa = $videoDirectory."/"."video_cc.ja.vtt"; print ' '; print ' '; my $xp = XML::XPath->new(filename=>$videoSettings); my $item = $xp->find('//videoSettings/PlaylistItems/PlaylistItem/MediaSources[@videoType="progressive"]'); print ' '; my $items = $xp->findnodes('//videoSettings/PlaylistItems/PlaylistItem/MediaSources[@videoType="progressive"]/MediaSource'); if (@$items == 0){ print ' '; print ' '; print ' '; } foreach my $item ( @$items ){ # 720p 540p 360p print ' '; } print ' '; print ' '; print ' '; print ' '; } print ' '; print '
NamePlayVideo(360p)Video(540p)Video(720p)TTML(en)WebVTT(en)WebVTT(ja)
' . $video . ''; if($item->size() != 0){ print ''; } print ' '; print ' '; print ' '; print ' '; print ''; print ''; print ''; print ' '; print ''; print ''; print ''; print ' '; print ''; print ''; print ''; print ' '; if(-e $videoCcJa){ print ''; print ''; print ''; } else { print 'Now translating...'; print ''; } print '
'; } print '

'; print '
'; } $courceCount++; } print '
'; } sub displayVideo($){ my $videoDirectory = shift; my $xp = XML::XPath->new(filename=>$videoDirectory."/videosettings.xml"); my $item = $xp->find('//videoSettings/PlaylistItems/PlaylistItem/MediaSources[@videoType="progressive"]/MediaSource[@videoMode="360p"]'); my $videoUrl = $item->string_value(); print <<"_HTML_"; _HTML_ }