use Carp;
use DBI;
+use File::Basename;
use Net::Domain qw(hostdomain);
use FindBin;
use GetConfig;
use Mail;
-our %CLEAROPTS = GetConfig ("$FindBin::Bin/etc/clearadm.conf");
+my $conf = dirname (__FILE__) . '/../etc/clearadm.conf';
+
+our %CLEAROPTS = GetConfig ($conf);
# Globals
our $VERSION = '$Revision: 1.54 $';
return $self->_getRecords ('system', $condition);
} # FindSystem
+sub SearchSystem (;$) {\r
+ my ($self, $condition) = @_;
+
+ $condition = "name like '%'" unless $condition;
+
+ return $self->_getRecords ('system', $condition); \r
+} # SearchSystem
+
sub AddPackage (%) {
my ($self, %package) = @_;