root/websites/mato.me/trunk/khatena/maintrule.pl @ 26442

#!/usr/bin/perl
BEGIN {
    unshift(@INC, '/home/gorbachev/lib');
}
use Avelio::SympleRuleStorage qw(/home/gorbachev/rules);

my ($action, $prefix) = @ARGV;
my $storage = new Avelio::SympleRuleStorage($prefix);

if (   $action eq 'show')   {    $storage->showRules();              }
elsif ($action eq 'update') {    $storage->updateRulesWithSTDIN();   }
elsif ($action eq 'test')   {                                        }
else                        {    exit;                               }

# end of file