Xpriori::XMS::ServerUtil - Start/Stop/Get Status/Create Database of Xpriori::XMS Database

Xpriori-XMS documentation Contained in the Xpriori-XMS distribution.

Index

Code Index:

NAME

Top

Xpriori::XMS::ServerUtil - Start/Stop/Get Status/Create Database of Xpriori::XMS Database

SYNOPSIS

Top

    use strict;
    use Xpriori::XMS::ServerUtil;
    my $oSvr = Xpriori::XMS::ServerUtil->new();
    #Create DB
    print "CREATE: " . $oSvr->createDb() . "\n";
    #STOP Server
    print "STOP  : " . $oSvr->stopServer() . "\n";
    #START Server
    print "START : " . $oSvr->startServer() . "\n";

DESCRIPTION

Top

Xpriori::XMS::ServerUtil is a module for Start/Stop/Get Status/Create Database of Xpriori::XMS Database

new

$oSvr = Xpriori::XMS::ServerUtil->new();

Constructor. Creates a Xpriori::XMS::ServerUtil object.

startServer

$iRes = $oSvr->startServer();

starts Xpriori::XMS server. returns 1: OK, 0: NG, -1: Already started.

stopServer

$iRes = $oSvr->stopServer();

stops Xpriori::XMS server. returns 1: OK, 0: NG, -1: Already stopped.

createDb

$iRes = $oSvr->createDb();

deletes old one and creates new database. Path of Xpriori::XMS utility and administrator's password will be read from Xpriori::XMS::Config.(see %Xpriori::XMS::Config::_svrCnf).

CAUTION : Existed Database will be deleted completely.

getStatus

$iRes = $oSvr->getStatus();

gets

NOTICE

Top

This module was tested under only Win32.

SEE ALSO

Top

Xpriori::XMS::ServerUtil::Win32, Xpriori::XMS::ServerUtil::Solaris, Xpriori::XMS::Config

AUTHOR

Top

KAWAI,Takanori kwitknr@cpan.org

COPYRIGHT

Top

The Xpriori::XMS::ServerUtil module is Copyright (c) 2009 KAWAI,Takanori, Japan. All rights reserved.

You may distribute under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl README file.

Xpriori-XMS documentation Contained in the Xpriori-XMS distribution. 
use strict;
package Xpriori::XMS::ServerUtil;
use Xpriori::XMS::Config;
use Cwd;

#---------------------------------------------------------------------
# new : constructor
#---------------------------------------------------------------------
sub new($;$)
{
  my($sClass,%hPrmW) = @_;
  my %hConf = %Xpriori::XMS::Config::_svrCnf;
  while(my($sKey, $sVal) = each(%hPrmW))
  {
    $hConf{$sKey} = $sVal;
  }
  $hConf{_OSMODULE} = _getOsModule($hConf{'OSMODULE'});
  return bless \%hConf, $sClass;
}
#---------------------------------------------------------------------
# LOAD OS-depend module 
#---------------------------------------------------------------------
sub _getOsModule($)
{
    my($sMod) = @_;
    if($sMod)
    {
        require("Xpriori/XMS/ServerUtil/${sMod}.pm");
        my $oMod;
        eval('$oMod = new Xpriori::XMS::ServerUtil::' . $sMod . ';');
        return $oMod if($oMod);
        die('Cannot load Module for ' . $sMod);
    }
    else
    {
       die('Cannot get Module for ' . $sMod);
    }
}
#---------------------------------------------------------------------
# Start Server
#---------------------------------------------------------------------
sub startServer
{
    my($oSelf) = @_;
    my $oMod = $oSelf->{_OSMODULE};
    my $iSts = $oMod->getStatus();
    return -1 if($iSts);  #if running
    return $oMod->startServer();
}
#---------------------------------------------------------------------
# Stop Server
#---------------------------------------------------------------------
sub stopServer
{
    my($oSelf) = @_;
    my $oMod = $oSelf->{_OSMODULE};
    my $iSts = $oMod->getStatus();
    return -1 unless($iSts);  #if not running
    return $oMod->stopServer();
}
#---------------------------------------------------------------------
# Create DB
#---------------------------------------------------------------------
sub createDb
{
    my($oSelf) = @_;
    my $oMod = $oSelf->{_OSMODULE};

    #1. Stop
    $oMod->stopServer();
    sleep 5;
    #2. DELETE old files
    #delete Files $NEOHOME/log/*.log, $NEOHOME/db/*
    my $sNeoHome = $oSelf->{NEOHOME};
    my $currDir = getcwd();
    chdir $sNeoHome || die "Cannot cd to $sNeoHome: $!\n";
    foreach my $sFile (<log/*.log db/*>)
    {
        unlink($sFile) || die("Cannot delete $sFile: $!");
    }
    chdir $currDir || die "Cannot cd to $currDir: $!";
    #3. Create Database
    $oMod->createDb($sNeoHome, $oSelf->{PASSWORD});
    #4. Start Server
    return $oMod->startServer();
}
1;
__END__