[solved] get_iplayer on nslu2

[linuxcentre]

So I can confidently conclude that this is a perl implementation bug. Is there a newer/different version of perl you can install?

[eps]

i thought you would say that, perl on the nslu2 is provided by the optware packages, I shall have a look into it

[eps]

wrote a quick test script, is this helpful at all ?

Code: Select all

root@house:~# cat perl-file-test.pl
#!/usr/bin/perl

use Data::Dumper;

print Dumper(stat($ARGV[0]));
root@house:~# ./perl-file-test.pl /public/incoming/iplayer/This_Week_-_14_01_2010_b00q05jd_default.mov
$VAR1 = 2049;
$VAR2 = 80084996;
$VAR3 = 33279;
$VAR4 = 1;
$VAR5 = 0;
$VAR6 = 0;
$VAR7 = 0;
$VAR8 = '0';
$VAR9 = 1264352210;
$VAR10 = 1263994744;
$VAR11 = 1264500019;
$VAR12 = 4096;
$VAR13 = 317496;


[linuxcentre]

It is helpful in that it also confirms the perl bug.
This is the order of the stat array:

Code: Select all

($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);

So, yes, the 8th element should contain the size but is reporting zero. I suggest you post this bug to the maintainers of the perl distro for your Linux distro. Nothing I can do about it except an ugly workaround (which I'm not going to do )

[eps]

yeah thats fair enough, i guess i could always hack your script personally myself, just need to remind myself to do it after every update

actually since the flv file is ok at that point I might just put a "die;" in there, though i imagine should i ever want to use the PVR features this would screw it up

thanks for all you help

[linuxcentre]

The ugly hack would be to use a shell command to get the size then use $size in place of the stat calls. e.g..

Code: Select all

my $size = (`du -sb $filename`)[0]; $size =~ s/\s+.*$//;

[NetworkNed]

... I suggest you post this bug to the maintainers of the perl distro for your Linux distro.

I'm sorry, EPS, but I have to ask: what's wrong with the above advice?

The fix may take a while to get sorted and reach your distro's stable repository, but this is the long-term solution, assuming the distro you're using is maintained.

[eps]

heh, yeah it is good advice, i have joined the nslu2 irc channel and will see if i can get someone else there to confirm it, just to rule out my install being dodgy, if it is a perl distro implentation bug these guys should know how to go about getting it looked into and fixed

but in the meantime.. i want to download tv shows now damnit ! ;)