Comment out code to create ttml file

1 files changed, 13 insertions, 12 deletions

diff --git a/lib/FlashVideo/Site/Itv.pm b/lib/FlashVideo/Site/Itv.pm
index 5242302..ac58662 100644
--- a/lib/FlashVideo/Site/Itv.pm
+++ b/lib/FlashVideo/Site/Itv.pm
@@ -172,19 +172,20 @@ EOF
       if (!$browser->success) {
         info "Couldn't download Itv subtitles: " . $browser->response->status_line;
       }
-      my $subtitles_ttml = $flv;
-      my $subtext = $browser->content;
-      my $istart = index $subtext, "<";
-      $subtext = substr($subtext, $istart) unless ($istart < 0);
-      $subtext =~ s/UTF-16/utf8/;
-
-      $subtitles_ttml =~ s/\.flv$/\.ttml/;
+#      Code to save .ttml file
+#      my $subtitles_ttml = $flv;
+#      my $subtext = $browser->content;
+#      my $istart = index $subtext, "<";
+#      $subtext = substr($subtext, $istart) unless ($istart < 0);
+#      $subtext =~ s/UTF-16/utf8/;
+
+#      $subtitles_ttml =~ s/\.flv$/\.ttml/;
       
-      unlink($subtitles_ttml);
-      open my $fh, ">", $subtitles_ttml;
-      binmode $fh;
-      print $fh $subtext;
-      close $fh;
+#      unlink($subtitles_ttml);
+#      open my $fh, ">", $subtitles_ttml;
+#      binmode $fh;
+#      print $fh $subtext;
+#      close $fh;
 
       my $subtitles_file = $flv;
       $subtitles_file =~ s/\.flv$/\.srt/;