Súbor: [Platon] / iotta / Iotta / Ctrl.pm (stiahnutie)
Revízia 1.1.1.1, Sun Feb 16 15:48:06 2003 UTC (21 years, 2 months ago) by yenar
Zmeny od 1.1: +0 -0
[lines]
initial import of iotta into platon cvs
|
package Iotta::Ctrl;
use strict;
require Iotta;
our @ISA = ("Iotta");
sub main {
print STDERR "You should create iotta.cf.\n";
print STDERR "See documentation for details.\n";
return 1;
}
sub config {
my ($self, $cfg);
$self = shift;
$self->{"cfg"}=shift;
}
sub initialize {
my $self=shift;
$self->SUPER::initialize (@_);
$self->{"cfg"}="";
@{$self->{filter}}=();
return 1;
}
1;
Platon Group <platon@platon.sk> http://platon.sk/
|