[otrs-cvs] otrs/bin otrs.CheckDB.pl,1.9,1.10
"CVS commits notifications of OTRS.org" <[email protected]>
| Newsgroups | gmane.comp.otrs.cvs |
|---|---|
| Message-ID | <[email protected]> |
Comments:
Update of /home/cvs/otrs/bin
In directory lancelot:/tmp/cvs-serv19172/bin
Modified Files:
otrs.CheckDB.pl
Log Message:
Removed unused, undocumented -s option.
Author: mb
Index: otrs.CheckDB.pl
===================================================================
RCS file: /home/cvs/otrs/bin/otrs.CheckDB.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -2 -u -d -r1.9 -r1.10
--- otrs.CheckDB.pl 20 Nov 2012 16:03:01 -0000 1.9
+++ otrs.CheckDB.pl 14 Jan 2013 08:44:49 -0000 1.10
@@ -2,5 +2,5 @@
# --
# bin/otrs.CheckDB.pl - to check the db access
-# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
+# Copyright (C) 2001-2013 OTRS AG, http://otrs.org/
# --
# $Id$
@@ -34,6 +34,4 @@
$VERSION = qw($Revision$) [1];
-use Getopt::Std;
-
use Kernel::Config;
use Kernel::System::Encode;
@@ -53,12 +51,4 @@
$CommonObject{DBObject} = Kernel::System::DB->new(%CommonObject);
-# get options
-my %Opts = ();
-getopt( 's', \%Opts );
-my $End = "\n";
-if ( $Opts{'s'} ) {
- $End = '';
-}
-
# print database information
my $DatabaseDSN = $CommonObject{ConfigObject}->{DatabaseDSN};
@@ -76,14 +66,14 @@
}
if ( !$Check ) {
- print "No initial inserts found!$End";
+ print "Connection succesful, no initial inserts found.\n";
exit(1);
}
else {
- print "It looks Ok!$End";
+ print "Connected.\n";
exit(0);
}
}
else {
- print "No database connect!$End";
+ print "Connection failed.\n";
exit(1);
}
---------------------------------------------------------------------
OTRS mailing list: cvs-log - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/cvs-log
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/cvs-log