Perl or Skripts
2000-07-16 17:35:35
Hi everybody,
at first thanks for your helpfull answers !
Does anybody have any good perl skripts or just shell skripts concerning
ADSM / TSM ?
I have only a few, maby we can share some usefull stuff.
Here is small monotoring skript.
Jens.
***************************************************************************************************
Monitoring Skript
**************************************************************************************************
#!/bin/ksh
###########################################################################
# /special/unix/event/skripts/adsm_db_info
#
# saves information about tapes containing DB-Backups to the CWS
# r.bruns
##########################################################################
PATH=$PATH:/usr/lpp/adsm/bin
OUTFILE=/special/unix/event/skripts/adsm_db_info.txt
echo "Tapes containing DbBackups"
echo "------------------------------------------------------------------"
dsmadmc -id=admin -password=$1 q libvol|grep DbBackup
echo "------------------------------------------------------------------"
echo "Database,Logvol and Volhist Information"
echo "------------------------------------------------------------------"
dsmadmc -id=admin -password=$1<<EOF
q db
q log
EOF
echo "-------------------------------------------------------------------"
echo "Free tape information"
echo "------------------------------------------------------------------"
dsmadmc -id=admin -password=$1<<EOF 2>/dev/null
select count(*) as Free from LIBVOLUMES where STATUS='Scratch'
select stgpool_name,count(*) as Freed from VOLUMES where
upper(status)='FULL' and pct_utilized < 50 group by stgpool_name
EOF
|
<Prev in Thread] |
Current Thread |
[Next in Thread>
|
- Perl or Skripts,
Jens Schwarzer <=
|
|
|