X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=clearadm%2Flib%2FClearadm.pm;fp=clearadm%2Flib%2FClearadm.pm;h=fb63079c385888de4b13382a320543ee1c448e02;hb=e8f2fdadcefb8fa719ed526d037d5f944c9d5e7e;hp=7e571090d12637c3e77c439fdc82aceeb0547a13;hpb=44794d71b375bf6e0a450a71bd43adb27a202a4e;p=clearscm.git

diff --git a/clearadm/lib/Clearadm.pm b/clearadm/lib/Clearadm.pm
index 7e57109..fb63079 100644
--- a/clearadm/lib/Clearadm.pm
+++ b/clearadm/lib/Clearadm.pm
@@ -86,6 +86,7 @@ use warnings;
 
 use Carp;
 use DBI;
+use File::Basename;
 use Net::Domain qw(hostdomain);
 
 use FindBin;
@@ -97,7 +98,9 @@ use Display;
 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 $';
@@ -484,6 +487,14 @@ sub FindSystem (;$) {
   return $self->_getRecords ('system', $condition);
 } # FindSystem
 
+sub SearchSystem (;$) {
+  my ($self, $condition) = @_;
+  
+  $condition = "name like '%'" unless $condition;
+  
+  return $self->_getRecords ('system', $condition); 
+} # SearchSystem
+
 sub AddPackage (%) {
   my ($self, %package) = @_;