urlrule_database

   1 #!/usr/bin/perl -w
   2 use strict;
   3 my $action = uc($ARGV[0]) if(@ARGV);
   4 if($action and $action =~ /^(?:DOWNLOAD|DUMP|ECHO)$/) {
   5         shift @ARGV;
   6         exec('urlrule_task',$action,@ARGV);
   7         exit 0;
   8 }
   9
  10 my $TASK_DATABASE   = "DATABASE.URL";
  11 open FO,">>","urlrule_database.log";
  12 print FO scalar(localtime),": urlrule_database ",(map "\"$_\" ",@ARGV),"\n";
  13 close FO;
  14
  15 if($action and $action =~ /^(?:ADD)$/) {
  16         push @ARGV,'newly',unless ($ARGV[$#ARGV] eq 'newly' or $ARGV[$#ARGV] =~ m/^#/);
  17 }
  18 exec 'r-config','-f',$TASK_DATABASE,@ARGV;