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;