Dreambox ja .ts symbolisena linkkinä.

  • Viestiketjun aloittaja PNP
  • Aloituspäivämäärä
Sivustoa
		sponsoroi SatShop.fi

PNP

Valvoja
Sijainti
Turku
Laitteisto
VU+ Ultimo 4K, Duo4k, Samsung 4k 65", AppleTV
Dreambox ja .ts symbolisena linkkinä.

En tiedä onko selvä otsikko, mutta ongelma on siis tämä.

Mythtv ei tallenna ohjelmia selväkielisellä nimellä, joten käytän apuna mythlink nimistä perl srciptiä, se tekee samballa (olen testannut myös NFS) jaettuun kansioon selväkielisellä nimellä olevan symbolisen linkin alkuperäiseen tiedostoon.
Tämä linkki näkyy normaalisti video tiedostona macilla ja windowsilla, sekä toistuu VLC playerillä normalisti.

Dreambox ei kuitenkaan näytä tiedostoja, vaikka niiden pääte on .ts

Myöskään tvix6500 ei näe tiedostoja, se kyllä toistaa alkuperäiset tiedostot, mutta niitä on vaikea etsiä, koska nimestä ei saa käsitystä.

Mikähän tässä lienee vikana, vai eikö dreambox sitten ymmärrä noita linkkejä jotenkin???




Toinen ongelma kyseisessä scriptissä liittyy tiedostonimeen, eli se muuttaa kyllä kaikki muut tallenteet selväkieliseksi, mutta jättää esim. tallenteen nimeltä "Ketonen & Myllyrinne" väliin, liittyy luullakseni tuohon & merkkiin. Voisiko joku perl taitaja neuvoa, kuinka tämän ongelman voi muokata toimivaksi. Lienee jossain tuolla, missä on useita rivejä "$nfn =.", mutta kun ovat minulle ihan hepreaa :)

Tässä tuo kyseinen scripti.

Koodi:
#./bin/sh
# mythlink.sh - Symlinks mythtv files to more readable version in /tv/pretty
# by Dale Gass
# modified by Dave M. for slightly prettier names and doesn't destroy/recreate valid links.
# (I found a windows box watching a recording would terminate playback if the link was removed)
# Modified by Brakk to work on Mythdora 4 and 5
# and to add the .mpg extension

mysql -uroot mythconverg -B --exec "select chanid,DATE_FORMAT(starttime, '%Y%m%d%H%i%s'),title,subtitle from recorded;" >/tmp/mythlink.$$
perl -w -e '
my $mythpath= "/isoraid/tallenteet";
my $altpath= "/pikkuraid/Videot/tv";
if (.-d $altpath) {
mkdir $altpath or die "Failed to make directory: $altpath\n";
}
opendir(DIR, $altpath) or die "cannot opendir $altpath: $.";
while (defined($file = readdir(DIR))) {
next if $file =~ /^\.\.?$/; # skip . and ..
@dirlist = (@dirlist,$file);
}
closedir(DIR);
<>;
while (<>) {
chomp;
my ($chanid,$start,$title,$subtitle) = split /\t/;
$subtitle = "" if(!defined $subtitle);
my $ofn = "${chanid}_${start}.mpg";
do { print "Skipping $mythpath/$ofn\n"; next } unless -e "$mythpath/$ofn";
$start =~ /^..(....)/;
#my $nfn = "$1_${title}_${subtitle}";
my $nfn = "${title}_${subtitle}_${start}";
$nfn =~ s/&/+/g;
$nfn =~ s/\047//g;
$nfn =~ s/[^+0-9a-zA-Z_-]+/_/g;
$nfn =~ s/_$//g;
$nfn = "${nfn}.ts";
$goodfile{$nfn} = 1;
if (.-e "$altpath/$nfn"){
print "Creating $nfn\n";
symlink "$mythpath/$ofn", "$altpath/$nfn" or die "Failed to create symlink $altpath/$nfn: $.";
}
}
# remove symlinks that are not pointed at valid files in the database
foreach $fname (@dirlist) {
# switch the comment to the second line after you
# are satisfied that it would not delete a good file.
unlink "$altpath/$fname" unless $goodfile{$fname};
# print "I want to unlink $altpath/$fname\n" unless $goodfile{$fname};
}

' /tmp/mythlink.$$
rm /tmp/mythlink.$$
 

PNP

Valvoja
Sijainti
Turku
Laitteisto
VU+ Ultimo 4K, Duo4k, Samsung 4k 65", AppleTV
Sinun tulee rekisteröityä nähdäksesi sivuston sisältöä.
 

PNP

Valvoja
Sijainti
Turku
Laitteisto
VU+ Ultimo 4K, Duo4k, Samsung 4k 65", AppleTV
Sinun tulee rekisteröityä nähdäksesi sivuston sisältöä.
 
Ylös