Beefy Boxes and Bandwidth Generously Provided by pair Networks
Joe No such thing as a small change   by tlm (Prior) on May 31,
2005 at 06:44 UTC ( #461946=perlmeditation: print w/ replies,
xml ) Need Help??  Help for this page  Select Code to Download
1. or download this     sub update {       my ( $url, $dir ) =
@_;       my @possible_suffixes = qw( .gz .bz2 );       my
$basename = extract_basename( $url, @possible_suffixes );
my $local_file = "$dir/$basename";   2. or download this
return if -e $local_file and not is_newer( $url, $local_file );
3. or download this       my $temp_file = download( $url,
TEMP_DIR ) or die "download of $url    4. or download this
if ( -e $local_file ) {         my $new_name = rename_file(
$local_file, suffix( time ) );         compress( $new_name );
5. or download this       move_file( $temp_file, $local_file );
maybe_uncompress( $local_file );   6. or download this
return 1;  Log In?  What's my password? Create A New User Node
Status? node