#!/usr/bin/perl -w


use DBI;

my ($server_name,$user,$password)=("enigsy-ser-backup-01", "########", "########");
$ENV{'DSM_DIR'} = "/opt/tivoli/tsm/client/ba/bin/";
$ENV{'DSMADMC'} = "dsmadmc";
$ENV{'DSM_CONFIG'} = $ENV{'DSM_DIR'}."dsm.sys";

my $dbh=DBI->connect(
  "dbi:TSM:$server_name",
  $user,
  $password,
  { 
    RaiseError => 0,
    PrintError => 0
  }
) or die $DBI::errstr;

my $sth=$dbh->prepare("query status") or die $dbh->errstr;
$sth->execute() or die $sth->errstr();

print "@{$sth->{NAME}}\n";
$sth->dump_results();

##</code><code>##

[root@ikt-anlu-c5 bin]# dsmadmc -id=######## -pa=######## -se=enigsy-ser-backup-01 query status
IBM Tivoli Storage Manager
Command Line Administrative Interface - Version 6, Release 1, Level 0.2
(c) Copyright by IBM Corporation and other(s) 1990, 2009. All Rights Reserved.

Session established with server ENIGSY-SER-BACKUP-01: Windows
  Server Version 6, Release 1, Level 3.0
  Server date/time: 02/03/2011 14:01:04  Last access: 02/03/2011 13:58:20

ANS8000I Server command: 'query status'
Storage Management Server for Windows - Version 6, Release 1, Level 3.0
               Server Name: ENIGSY-SER-BACKUP-01
[...]


##</code><code>##

SErvername  enigsy-ser-backup-01
   COMMMethod         TCPip
   TCPPort            1500
   TCPServeraddress   172.29.20.30

passwordaccess generate

errorlogretention 14 d
* 14 dager, d = delete
errorlogname /var/log/dsm.errorlog

schedlogretention 14 d
schedlogname /var/log/dsm.schedlog

managedservices webclient schedule


*** Include/exclude
Exclude /tmp
Exclude /proc
Exclude /.../core
Exclude.Dir /mnt