08-05-2006
Stopping Start/Stop scripts in reverse order
#Define the Start/Stop/Status Scripts to include
SSS_SCRIPTS=( prog1 prog2 prog3 etc...... )
#Start the scripts
StartScripts()
{
for SSS in ${SSS_SCRIPTS[*]}
do
./$SSS start
done
}
#Stop the Scripts
StopScripts()
{
for SSS in ${SSS_SCRIPTS[*]}
do
./$SSS stop #<---I want it to stop in reverse order eg: Prog3 Prog2 Prog1....
done
Any help appreciated
madasafish
9 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi,
I just learnt the shell scripting and got working on that right now. I have one problem.
Here i am having a java application that needs to be start and stop using two shell scripts, i.e., starting the java application using one shell script and stopping the application using another... (1 Reply)
Discussion started by: sadha
1 Replies
2. UNIX for Dummies Questions & Answers
I need to sort the particular column only in reverse order how i can give it..
if i give the -r option the whole file is getting sorted in reverse order.
1st 2nd col 3rd
C col 4th col 5th col
-------------------------------------------
C... (7 Replies)
Discussion started by: sivakumar.rj
7 Replies
3. Shell Programming and Scripting
Dear All,
Pls find my scripts for Agent services strat & stop.
EAMSROOT=/opt/panaces
export EAMSROOT
cd $EAMSROOT
nohup ./OracleAgent.sh start &
nohup ./PFRAgent.sh start &
nohup ./PFR.sh start &
nohup ./SolarisOSAgent.sh start &
exit 0
EAMSROOT=/opt/panaces
export EAMSROOT
cd... (0 Replies)
Discussion started by: starnaresh
0 Replies
4. AIX
HI i need help from seniors on this issue, i need to know how to do this, i need to update 50+ server starting saturday. below is the ticket which i have with full description.
Currently MQ Series must be stopped before and started after any reboot. Not having the start/stop as part of... (2 Replies)
Discussion started by: gulamibrahim
2 Replies
5. Shell Programming and Scripting
i am having lines like below seperated by "|" (pipe)
abc|xyz
123|567
i have to get the above in reverse order
xyz|abc
567|123
Pls help (5 Replies)
Discussion started by: suryanarayana
5 Replies
6. UNIX for Dummies Questions & Answers
command/script(apart from awk) to print the fields in reverse order
that is last field has to come first and so on and first field has to go last
Input
store-id date sale
.............
.............
... (3 Replies)
Discussion started by: tsurendra
3 Replies
7. Shell Programming and Scripting
Hi,
I want to print the item in reverse order such that the output would look like
00 50 50 23 40 22 02 96
Below is the input:
00 05 05 32 04 22 20 69
Video tutorial on how to use code tags in The UNIX and Linux Forums. (5 Replies)
Discussion started by: reignangel2003
5 Replies
8. Shell Programming and Scripting
Hi all,
i have dynamic file 'xyz.txt', records always look likes below format ...
0000021 RET 31-MAR-1984 FAP
0000021 DTA 14-JAN-2003 CNV
0000021 DTA 25-MAR-2012 DTA
0000021 DTA 26-MAR-2012 DTA
#################################################
0000021 DTA ... (4 Replies)
Discussion started by: krupasindhu18
4 Replies
9. Red Hat
Hi there,
I am wondering if I could add start/stop ksh scripts provided by 3rd party to cluster... I read that script must be ocf/lsb compliant, however, in AIX I can just set up two separate scripts for starting and stopping application. Can similar be done under RH Linux cluster?
Cheers,
c (1 Reply)
Discussion started by: cyjan
1 Replies
LEARN ABOUT SUSE
net::jabber::server
Net::Jabber::Server(3) User Contributed Perl Documentation Net::Jabber::Server(3)
NAME
Net::Jabber::Server - Jabber Server Library
SYNOPSIS
Net::Jabber::Server is a module that provides a developer easy access
to developing applications that need an embedded Jabber server.
DESCRIPTION
Server.pm seeks to provide enough high level APIs and automation of
the low level APIs that writing and spawning a Jabber Server in Perl
is trivial. For those that wish to work with the low level you can
do that too, but those functions are covered in the documentation for
each module.
Net::Jabber::Server provides functions to run a full Jabber server that
accepts incoming connections and delivers packets to external Jabber
servers. You can use all or none of the functions, there is no requirement.
For more information on how the details for how Net::Jabber is written
please see the help for Net::Jabber itself.
For a full list of high level functions available please see
Net::Jabber::Protocol.
Basic Functions
use Net::Jabber qw(Server);
$Server = new Net::Jabber::Server();
$Server->Start();
$Server->Start(jabberxml=>"custom_jabber.xml",
hostname=>"foobar.net");
%status = $Server->Process();
%status = $Server->Process(5);
$Server->Stop();
METHODS
Basic Functions
new(debuglevel=>0|1|2, - creates the Server object. debugfile
debugfile=>string, should be set to the path for the debug
debugtime=>0|1) log to be written. If set to "stdout"
then the debug will go there. debuglevel
controls the amount of debug. For more
information about the valid setting for
debuglevel, debugfile, and debugtime see
Net::Jabber::Debug.
Start(hostname=>string, - starts the server listening on the proper
jaberxml=>string) ports. hostname is a quick way of telling
the server the hostname to listen on.
jabberxml defines the path to a different
jabberd configuration file (default is
"./jabber.xml").
Process(integer) - takes the timeout period as an argument. If no
timeout is listed then the function blocks until
a packet is received. Otherwise it waits that
number of seconds and then exits so your program
can continue doing useful things. NOTE: This is
important for GUIs. You need to leave time to
process GUI commands even if you are waiting for
packets. The following are the possible return
values for each hash entry, and what they mean:
1 - Status ok, data received.
0 - Status ok, no data received.
undef - Status not ok, stop processing.
IMPORTANT: You need to check the output of every
Process. If you get an undef then the connection
died and you should behave accordingly.
Stop() - stops the server from running and shuts down all sub programs.
AUTHOR
By Ryan Eatmon in January of 2001 for http://jabber.org.
COPYRIGHT
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.12.1 2004-08-17 Net::Jabber::Server(3)