scripts/shortcuts/rap.pl

#!/usr/bin/perl

## -------------------------------------------------------------------------
##  $Id: Config.pm,v 1.19 2003/02/14 12:37:04 joko Exp $
## -------------------------------------------------------------------------
##  $Log: Config.pm,v $
## -------------------------------------------------------------------------


use strict;
use warnings;

BEGIN { 
  use FindBin qw($Bin);
  use lib "$Bin/../../libs";
}


# ------------------------------------   main   ------------
use Data::Dumper;
use Data::Rap;

sub find_rules {
  return '../etc/rap.xml';
}

sub main {
  my $argString = shift;
  my $rulesfile = find_rules();
  my $rap = Data::Rap->new( filename => $rulesfile, target => $argString );
  $rap->start();
}

my @args = @ARGV;
@args = () if not @args;
main(join(' ', @args));


1;
__END__
1	joko	1.1	#!/usr/bin/perl
2
3			## -------------------------------------------------------------------------
4			## $Id: Config.pm,v 1.19 2003/02/14 12:37:04 joko Exp $
5			## -------------------------------------------------------------------------
6			## $Log: Config.pm,v $
7			## -------------------------------------------------------------------------
8
9
10			use strict;
11			use warnings;
12
13			BEGIN {
14			use FindBin qw($Bin);
15			use lib "$Bin/../../libs";
16			}
17
18
19			# ------------------------------------ main ------------
20			use Data::Dumper;
21			use Data::Rap;
22
23			sub find_rules {
24			return '../etc/rap.xml';
25			}
26
27			sub main {
28			my $argString = shift;
29			my $rulesfile = find_rules();
30			my $rap = Data::Rap->new( filename => $rulesfile, target => $argString );
31			$rap->start();
32			}
33
34			my @args = @ARGV;
35			@args = () if not @args;
36			main(join(' ', @args));
37
38
39			1;
40			__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26