projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added gitconfig
[clearscm.git]
/
clearadm
/
lib
/
Clearadm.pm
diff --git
a/clearadm/lib/Clearadm.pm
b/clearadm/lib/Clearadm.pm
index
4814952
..
fb63079
100644
(file)
--- a/
clearadm/lib/Clearadm.pm
+++ b/
clearadm/lib/Clearadm.pm
@@
-86,6
+86,7
@@
use warnings;
use Carp;
use DBI;
use Carp;
use DBI;
+use File::Basename;
use Net::Domain qw(hostdomain);
use FindBin;
use Net::Domain qw(hostdomain);
use FindBin;
@@
-97,7
+98,9
@@
use Display;
use GetConfig;
use Mail;
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 $';
# Globals
our $VERSION = '$Revision: 1.54 $';
@@
-484,6
+487,14
@@
sub FindSystem (;$) {
return $self->_getRecords ('system', $condition);
} # FindSystem
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) = @_;
sub AddPackage (%) {
my ($self, %package) = @_;
@@
-2079,10
+2090,10
@@
L<Net::Domain|Net::Domain>
=begin html
<blockquote>
=begin html
<blockquote>
-<a href="http://clearscm.com/php/
cvs
_man.php?file=lib/DateUtils.pm">DateUtils</a><br>
-<a href="http://clearscm.com/php/
cvs
_man.php?file=lib/Display.pm">Display</a><br>
-<a href="http://clearscm.com/php/
cvs
_man.php?file=lib/GetConfig.pm">GetConfig</a><br>
-<a href="http://clearscm.com/php/
cvs
_man.php?file=lib/Mail.pm">Mail</a><br>
+<a href="http://clearscm.com/php/
scm
_man.php?file=lib/DateUtils.pm">DateUtils</a><br>
+<a href="http://clearscm.com/php/
scm
_man.php?file=lib/Display.pm">Display</a><br>
+<a href="http://clearscm.com/php/
scm
_man.php?file=lib/GetConfig.pm">GetConfig</a><br>
+<a href="http://clearscm.com/php/
scm
_man.php?file=lib/Mail.pm">Mail</a><br>
</blockquote>
=end html
</blockquote>
=end html