misc/cronjobs/social_data/update_social_data.pl

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4
   5 use Koha::Script -cron;
   6 use C4::Context;
   7 use C4::SocialData;
   8
   9 my $url = C4::Context->preference( "Babeltheque_url_update" );
  10 my $output_dir = qq{/tmp};
  11 my $output_filepath = qq{$output_dir/social_data.csv};
  12 system( qq{/bin/rm -f $output_filepath} );
  13 system( qq{/bin/rm -f $output_dir/social_data.csv.bz2} );
  14 system( qq{/usr/bin/wget $url -O $output_dir/social_data.csv.bz2 } ) == 0 or die "Can't get bz2 file from url $url ($?)";
  15 system( qq{/bin/bunzip2 $output_dir/social_data.csv.bz2 } ) == 0 or die "Can't extract bz2 file ($?)";
  16
  17
  18 C4::SocialData::update_data $output_filepath;