[ubuntu-uk] BBC Click includes Ubuntu: Mark II

[Adam Funk]

On 2007-06-12, Jim Kissel wrote:

> In my case firefox has a player installed for wmv files and starts to
> play this stream in the browser.  All I see is the tail end of a bbc
> weather forcast.  Just the bbc weather logo and about 5 seconds of
> sound.  Then nothing.
>
> wget doesn't get much.
>
> Can anyone up the ante with a better URL or an alternate method to
> view/download Click?  (ubuntu 7.04 FF)

Below is my ~/bin/record-real-media script for recording realplayer
audio streams.  I haven't tried video, but this might give you some
helpful ideas.  (It gives mplayer the -noconsolecontrols and
-really-quiet options because I usually use it in an at job.)


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#!/usr/bin/perl -w
##################################################
use strict ;
use Getopt::Std ;
use LWP::UserAgent ;

my ( %option ) ;

getopts("pvhna", \%option) ;

if ($option{h}) {
    exec("perldoc " . $0) ;  # exec terminates this script
}

else {
    while (@ARGV) {
	my $url = shift(@ARGV);

	my $mplayer = mplayer_command($url);
	run_command($mplayer);

	if ($option{a}) {
	    my $normalize = normalize_command($mplayer);
	    run_command($normalize);
	}

	my $lame = lame_command($mplayer);
	run_command($lame);
    }
}

##################################################
##### END MAIN
##################################################

sub mplayer_command {
    my $url = $_[0];
    my $filename = time() ;
    if ($url =~ /([^\/]+)$/) {
	$filename = $1 ;
    }
    $filename .= ".wav" ;

    my $command = "mplayer -noconsolecontrols -really-quiet -ao pcm:file=" . $filename ;

    if ( ($option{p}) || ($url =~ /\.r[ap]m$/) )  {
	$command .= " -playlist ";
    }

    $command .= " \'" . $url . "\'" ;
    return $command ;
}


sub lame_command {
    my $input = $_[0] ;
    print ("lame <- $input\n") if ($option{v}) ;
    my $command = "echo \'no wav found\'" ;
    if ( $input =~ /=(\S+)(\.wav)/ ) {
	my $wav_file = $1 . $2 ;
	my $mp3_file = $1 . ".mp3" ;
	$command = "lame --quiet $wav_file $mp3_file" ;
    }
    return $command ;
}


sub normalize_command {
    my $input = $_[0] ;
    print ("normalize <- $input\n") if ($option{v}) ;
    my $command = "echo \'no wav found\'" ;
    if ( $input =~ /=(\S+)(\.wav)/ ) {
	my $wav_file = $1 . $2 ;
	$command = "normalize-audio -a 20dB $wav_file" ;
    }
    return $command ;
}


sub run_command {
    my $command = $_[0];
    print("CMD: $command\n");
    system($command) unless ($option{n});
}


##################################################
=head1 Options

=over

=item -h

Print this help and quit.

=item -v

Increase verbosity.

=item -a

Normalize to -20dB.

=item -p

Force mplayer '-playlist' option (automatically used for *.ram and *.rpm files).

=item -n

Dry run.

=back

=cut