House of Lords: 02/07/2008

# #

Turn Left - 45 mins

As Donna's world collapses, she finds help from a mysterious blonde woman - but can Donna and Rose stop the approaching Darkness?

Available till: 8:54pm Friday 11th July

# Format: http://www.bbc.co.uk/iplayer/playlist/b00c8ssg # # # # tag:bbc.co.uk,2008:iplayer:b00c8ssg:playlist # # # # Eddie Halliwell: 03/07/2008 #

With two hours of the best new trance and techno.

# 2008-06-26T01:01:37Z # # Eddie Halliwell: 03/07/2008 # 2008-07-03T23:00:00 # BBC Radio 1 # BBC Radio 1 # Eddie Halliwell # # # my ($duration, $available, $channel, $expiry, $longdesc, $versions, $guidance); $expiry = $1 if $entry2 =~ m{

Available till:\s*(.*?)\s*

}; $duration = $1 if $entry =~ m{\s*(.*?)\s*}; $channel = $1 if $entry =~ m{}; $available = $1 if $entry =~ m{\s*(.*?)\s*}; $longdesc = $1 if $entry =~ m{\s*(.*?)\s*}; if (! $longdesc) { $longdesc = $1 if $entry =~ m{\s*(.*?)\s*}; } if (! $longdesc) { $longdesc = $1 if $entry =~ m{\s*(.*?)\s*}; } $versions = $1 if $entry =~ m{\s*(.*?)\s*}; $guidance = $1 if $entry =~ m{\s*\s*(.*?)\s*}; # Fill in from cache if not got from metadata $metadata .= "\nPid:\t\t$pid\n"; $metadata .= "Index:\t\t$prog{$pid}{index}\n"; $metadata .= "Duration:\t". ($duration || $prog{$pid}{duration}) ."\n"; $metadata .= "Channel:\t". ($channel || $prog{$pid}{channel}) ."\n"; $metadata .= "Available:\t". ($available || $prog{$pid}{available}) ."\n"; $metadata .= "Expires:\t". ($expiry || $prog{$pid}{expiry}) ."\n"; $metadata .= "Versions:\t". ($versions || $prog{$pid}{versions}) ."\n"; $metadata .= "Guidance:\t". ($guidance || $prog{$pid}{guidance}) ."\n"; $metadata .= "Description:\t". ($longdesc || $prog{$pid}{desc}) ."\n"; return $metadata; } # Gets the contents of a URL and retries if it fails, returns '' if no page could be retrieved # Usage = request_url_retry(, , , , []); sub request_url_retry { my ($ua, $url, $retries, $succeedmsg, $failmsg) = @_; my $res; my $i; for ($i = 0; $i < $retries; $i++) { $res = $ua->request( HTTP::Request->new( GET => $url ) ); if ( ! $res->is_success ) { logger $failmsg; } else { logger $succeedmsg; last; } } # Return empty string if we failed return '' if $i == $retries; # otherwise return content return $res->content; } # Checks if a particular program exists (or program.exe) in the $ENV{PATH} or if it has a path already check for existence of file sub exists_in_path { my $file = shift; # If this has a path specified, does file exist return 1 if $file =~ /[\/\\]/ && (-f $file || -f "${file}.exe"); # Search PATH for (@PATH) { return 1 if -f "${_}/${file}" || -f "${_}/${file}.exe"; } return 0; } # Run a user specified command # e.g. --command 'echo " downloaded"' # run_user_command($pid, 'echo " downloaded"'); sub run_user_command { my $pid = shift; my $command = shift; # Tokenize and substitute $format for my $key ( keys %{ $prog{$pid} } ) { $command =~ s|\<$key\>|$prog{$pid}{$key}|gi; } $command =~ s||$pid|gi; # Escape chars in command for shell use esc_chars(\$command); # run command logger "INFO: Running command '$command'\n" if $opt{verbose}; my $exit_value = system $command; # make exit code sane $exit_value = $exit_value >> 8; logger "ERROR: Command Exit Code: $exit_value\n" if $exit_value; logger "INFO: Command succeeded\n" if $opt{verbose} && ! $exit_value; return 0; } # Escape chars in string for shell use sub esc_chars { # will change, for example, a!!a to a\!\!a s/([;<>\*\|&\$!#\[\]\{\}:'"])/\\$1/g; return $_; } # Signal handler to clean up after a ctrl-c or kill sub cleanup { logger "Cleaning up\n" if $opt{verbose}; unlink $namedpipe; exit 1; }

	$_	${name}	${episode}	${channel}
	${desc}

Doctor Who: Series 4

Turn Left - 45 mins