[NUUG video] Frikanalen API

[Jarle Bjørgeengen]

Har laget et script (update_local.pl) som laster ned videoer og
metadata, som ikke allerede ligger lokalt, fra frikanalen. Navnet på
videofil = $id.wmv,  og metadata i en egen tekstfil $id.desc

Dette kjører nå med "Take=10000" . Det kommer jo til å ta noen døgn å
fullføre på grunn av mms:// strømmene som må tas i sanntid. 

Det neste blir å oppdatere process-dv (for frikanalen sine ting)  til å
kun prosessere filer som ikke er under nedlasting (i.e. timestamp'et
endrer seg) og ikke starte dersom det allerede går en process-dv for
frikanalen. 

Videre igjen blir det å generere html side (eller bruke php dynamisk)
til å rendre en inngangsport til videoene. Jeg tenkte dette kunne gjøre
enten vha. php script som leser filer og metadata, eller et perlscript
som gjør det samme og generer en elle flere statiske html side. 

Dersom noen har stålkontroll på php/html er det bare å sette igang. Jeg
får ikke så mye tid til å jobbe med dette til uka. 

Scriptene er flyttet til /data/video/frikanalen/bin, og det scriptet som
kjører går i en "screen" eid av "jarle"  

./bin bør kanskje flyttes vekk fra web området ? 


- Jarle 
 


On Sat, 2009-01-10 at 21:32 +0100, Jarle Bjørgeengen wrote:
> On Sat, 2009-01-10 at 11:56 +0100, Petter Reinholdtsen wrote:
> > [Jarle Bjørgeengen]
> > > Har du noen ideer om hvordan man kan knytte metadata om filmene til  
> > > hver enkelt film id ?
> > 
> > Jeg antar det greieste er å skrive en SOAP-klient som søker fram alle
> > filmene og laster ned både metadata og filer før konvertering til Ogg
> > Theora og generering av HTML-sider med oversikter over filmene.  Perl
> > har SOAP-biblioteker, og kan antagelig brukes.  Antar andre språk har
> > det samme.
> 
> 
> Jeg tror vi kan komme et stykker på vei med noe slikt. (Returnerer 3
> records) 
> 
> --------------------------------
> #!/usr/bin/perl
> #
> 
> use SOAP::Lite
>      on_action => sub {sprintf '%s/%s', @_},
> ;
> 
> use Data::Dumper;
> 
> $soap = new SOAP::Lite
>  -> uri('http://localhost/CommunitySiteService')
>  ->
> proxy('http://communitysite1.frikanalen.tv/CommunitySiteFacade/CommunitySiteService.asmx');
> 
> my $result = $soap->SearchVideos(
>  SOAP::Data->name('searcher' => {
>    'PredefinedSearchType' => 'Default',
>   'Take' => 3,
>   }
>  )
> );
> 
> 
> unless ($result->fault) {
> 
> $res = $result->result;
> 
> foreach (@{$res->{'Data'}->{'Video'}}) {
>   print "$_->{'Title'}\n";
> }
>   } else {
>     print join ', ',
>       $result->faultcode,
>       $result->faultstring;
>   }
> 
> #print "$returned\n";
> ------------------------------------
> 
> 
> 
> > Vennlig hlisen
> 
> _______________________________________________
> video mailing list
> video at nuug.no
> http://lists.nuug.no/mailman/listinfo/video