Here is a perl script that cancels sessions of
specific nodes.
You'll have to replace NODE1, NODE2 with your own node names,
bla/blah with the correct admin id/password and if
you're not on AIX you'll probably have to supply another
path to the dsmadmc binary.
Use this at your own risk!!!
I have not fully tested it and
I can't garantuee that it will work
correctly in all circumstances.
Regards,
Alexander
<SCRIPT>
#!/usr/bin/perl
@lines=();
@nodes=("NODE1","NODE2");
for($nodecnt=0;$nodecnt<=$#nodes;$nodecnt++){
$tsmcmd="/usr/bin/dsmadmc -id=blah -pa='blah' -dataonly=yes";
$tsmcmd=$tsmcmd.' "select session_id from sessions';
$tsmcmd=$tsmcmd." where client_name='";
[EMAIL PROTECTED];
$tsmcmd=$tsmcmd."'";
$tsmcmd=$tsmcmd.'" |';
open(TSM,$tsmcmd);
@lines=<TSM>;
close TSM;
for($linecnt=0;$linecnt<=$#lines;$linecnt++){
if(@lines[$linecnt] =~ /^ +[0-9]*/ ){
[EMAIL PROTECTED];
chop $session;
$cancelcmd="/usr/bin/dsmadmc -id=blah -pa='blah' ";
$cancelcmd=$cancelcmd.'"cancel ses '.$session.'"';
system($cancelcmd);
}
}
}
</SCRIPT>
> -----Original Message-----
> From: ADSM: Dist Stor Manager [mailto:[EMAIL PROTECTED]
> On Behalf Of Karla Ross
> Sent: dinsdag 15 juni 2004 22:01
> To: [EMAIL PROTECTED]
> Subject: stopping active backup sessions at a specified time
>
>
> We have several applications that due to some performance
> issues have there
> backups running longer than normal on some nights. Does
> anyone have a good
> automated method to monitor backup sessions for a client and
> either stop
> them at a given time if they are still running or notify
> someone that they
> are still running?
>
> Karla Ross
>
