Fix for ikke-fungerende ogv-urler mot frontend.frikanalen.tv.

Filer hentes nå via scp fra borch.frikanalen.no 

2 files changed, 28 insertions, 11 deletions

diff --git a/frikanalen/bin/update_frikanalen-cron.sh b/frikanalen/bin/update_frikanalen-cron.sh
index 27ea602..bda8094 100755
--- a/frikanalen/bin/update_frikanalen-cron.sh
+++ b/frikanalen/bin/update_frikanalen-cron.sh
@@ -8,19 +8,20 @@ echo "###### `date` #####"
 echo "Updating meta.xml" 
 > $htmldir/meta.xml
 
-c=0
-while true ; do 
- c=$(expr $c + 1 )
- echo "Take $c"
+#c=0
+# c=$(expr $c + 1 )
+# echo "Take $c"
  $bindir/update_meta_xml.pl $htmldir/meta_new.xml
+ if [ !  -f $htmldir/meta_new.xml ]
+ then 
+  echo "Failed to download new metadata file. "
+  exit 1
+ fi
 
  # Verify a successfull download
- if [ "$(wc -l < $htmldir/meta_new.xml)" -lt 50 ]; then
+ if [ "$(wc -l $htmldir/meta_new.xml|awk '{print $1}')" -lt 50 ]; then
   sleep 30
  else
   mv $htmldir/meta_new.xml $htmldir/meta.xml
-  break
+  $bindir/update_video_diff.pl
  fi
-done
-
-$bindir/update_video_diff.pl
diff --git a/frikanalen/bin/update_video_diff.pl b/frikanalen/bin/update_video_diff.pl
index 3d24efa..d2833de 100755
--- a/frikanalen/bin/update_video_diff.pl
+++ b/frikanalen/bin/update_video_diff.pl
@@ -9,7 +9,7 @@
 #
 # http://wiki.nuug.no/grupper/video/pubfrikanalen
 
-use Data::Dumper;
+#use Data::Dumper;
 use XML::Simple;
 my $localvideo_dir = '/data/video/frikanalen';
 my $localthumbs_dir = '/data/video/frikanalen/thumbs';
@@ -18,6 +18,7 @@ my $meta = XMLin("$localvideo_dir/meta.xml");
 # Make sure convert is in the path
 $ENV{PATH} = $ENV{PATH} . ":/usr/local/bin";
 
+print " Local videos $#localvideos\n";
 &get_new_vids;
 
 ###### Functions #######
@@ -33,7 +34,7 @@ sub get_new_vids {
     unless ( -f "$localvideo_dir/$file_id.ogv") {
       print "Fetching video $file_id \n" if $ARGV[0] eq "debug";
       if  ($meta->{$metaid}->{'VideoOgvUri'} =~ /^http:/) {
-        &get_http_vid($meta->{$metaid}->{'VideoOgvUri'},$file_id);
+        get_scp_vid($meta->{$metaid}->{'VideoOgvUri'},$file_id);
       }
     } else {
       print "$file_id is here\n" if  $ARGV[0] eq "debug";
@@ -71,3 +72,18 @@ sub get_mms_vid {
     $r =  `mplayer -dumpstream -dumpfile "$localvideo_dir/$file_id.wmv" $url > /dev/null 2>&1`;
   }
 }
+
+# Ny metode for å komme rundt ikke-fungerende ur'er mot frontent.frikanalen.tv
+# Jarle 2012-04-19 
+
+sub get_scp_vid {
+ my $url = shift;
+ my $file_id = shift;
+ $url =~ /^http:\/\/frontend\.frikanalen\.tv\/media\/(.+)$/;
+ my $src_path = $1;
+ my $ssh_loc = 'jarle@borch.frikanalen.no:/mnt/media/';
+ my $ssh_id_file = '/home/jarle/.ssh/id_tx_fk';
+ print "Getting $file_id.ogv\n";
+ `/usr/bin/scp -q -i $ssh_id_file $ssh_loc$src_path $localvideo_dir/$file_id.ogv`; 
+}
+