7 my $url = C4
::Context
->preference( "Babeltheque_url_update" );
8 my $output_dir = qq{/tmp
};
9 my $output_filepath = qq{$output_dir/social_data
.csv
};
10 system( qq{/bin/rm
-f
$output_filepath} );
11 system( qq{/bin/rm
-f
$output_dir/social_data
.csv
.bz2
} );
12 system( qq{/usr/bin
/wget $url -O $output_dir/social_data
.csv
.bz2
} ) == 0 or die "Can't get bz2 file from url $url ($?)";
13 system( qq{/bin/bunzip2
$output_dir/social_data
.csv
.bz2
} ) == 0 or die "Can't extract bz2 file ($?)";
16 C4
::SocialData
::update_data
$output_filepath;