This file is indexed.

/usr/share/perl5/FlashVideo/Site/Sbs.pm is in get-flash-videos 1.25~git2014.03.23-2.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
# Part of get-flash-videos. See get_flash_videos for copyright.
package FlashVideo::Site::Sbs;

use strict;
use FlashVideo::Utils;
use FlashVideo::JSON;
use File::Basename;
use HTML::Entities;
use URI::Escape;

sub find_video {
  my ($self, $browser, $embed_url, $prefs) = @_;

  my $smil;
  my $baseurl;

  my($id) = $browser->content =~ /firstVidId = '([^']*)';/;
  ($smil) = decode_entities($browser->content =~ /player\.releaseUrl = "([^"]*)";/);

  if( $id ){

    ($baseurl) = $browser->content =~ m{so\.addVariable\("nielsenLaunchURL", *"([^"]*)"\);}s ;
    my($menu) = $browser->content =~ m{loadVideo\('([^']*)', '', [^\)]\);}s ;
    if( !$menu ){ $menu = $baseurl . '/video/menu/inline/id/' . $id; }
    else { $menu = 'http://www.sbs.com.au' . $menu; }
    $menu =~ s/' *\+ *firstVidId *\+ *'/$id/g;

    die "No menu URL found" unless $menu;

    $browser->get($menu);

    ($smil) = $browser->content =~ m{<video *name="[^"]*" *id="[^"]*" *src="([^"]*)">}s ;
  }

  die "no smil" unless $smil;

  $browser->get($smil);

  ($baseurl) = decode_entities($browser->content =~ m'<meta base="([^"]*)"/>'s);

  my @tmp = $browser->content =~ m'<video src="([^"]*)" system-bitrate="([^"]*)"/>'gs;
  my %tmp = reverse @tmp;
  my $filename;
  my $q = $prefs->{quality};
  if( grep {$_ eq $q || $_ == $q || $_ == ($q * 100000)} keys(%tmp) ){
    $filename = decode_entities($tmp{$q});
    if(!$filename){
      my @bitrates = grep {$_ == $q || $_ == ($q * 100000)} keys(%tmp);
      $filename = decode_entities($tmp{$bitrates[0]});
    }
  } else {
    my @filenames = ();
    foreach (sort { $a <=> $b } keys(%tmp) )
      { push @filenames, $tmp{$_}; }
    my $cnt = @filenames;
    my $num = {high => int($cnt/3)*2, medium => int($cnt/3)*1, low => int($cnt/3)*0}->{$q};
    $filename = decode_entities($filenames[$num]);
  }

  die "no filenames" unless $filename;

  if( $baseurl =~ /^rtmp:/ ){
    my($flvname) = $filename =~ m'[^/]*/(.*)'s;
    return {
      rtmp => $baseurl,
      playpath => $filename,
      flv => $flvname,
      swfUrl => 'http://www.sbs.com.au/vod/theplatform/core/4_4_3/swf/flvPlayer.swf',
    };
  } elsif ($baseurl) {
    my $url = $baseurl . $filename;
    return $url, $filename;
  } else {
    return $filename, File::Basename::basename($filename);
  }
}

1;