ADSM-L

Re: ADSM Perl Scripts

1998-10-01 18:13:53
Subject: Re: ADSM Perl Scripts
From: Russell Street <russells AT AUCKLAND.AC DOT NZ>
Date: Fri, 2 Oct 1998 10:13:53 +1200
Alas there is no admin API.  And if you read the find print, the
supplied API can NOT read backup/archive data created by dsmc.  At
least that is my reading of the manual.

Russell

> It's amazing how my simple little question initiated such a conversation!
> I've spent quite a lot of time developing the Perl scripts I use to monitor
> and process ADSM functions. I've never thought of using the APIs, but I
> thought the APIs were just for backup/archive functions. Are the admin API
> functions?
>
> Perhaps a few of us can "get together" via e-mail and work out some
> requirements for adsm/perl functions and then work on the implementation
> together. Unfortunately, I haven't had that much experience at this type of
> work, but I would certainly volunteer to take it on if there is nobody more
> experienced that is willing to.
>
> Dan Giles
> Application Specialist
> Manulife Financial, Corporate
> Phone: 416-341-7587 Fax: 416-341-7600
>
>
>
>
>
> From: Mark Devine <Mark_Devine AT CSGSYSTEMS DOT COM> on 10/01/98 03:16 PM GMT
>
> Please respond to "ADSM: Dist Stor Manager" <ADSM-L AT VM.MARIST DOT EDU>
>
> To:   ADSM-L AT VM.MARIST DOT EDU
> cc:    (bcc: ADSM)
> Subject:  Re: ADSM Perl Scripts
>
>
>
>
> I agree that this is a good start, but along with this activity, "Wouldn't
> it be nice if..."
>
> It's plain to see that there will be a lot of ADSM'ers crafting there own
> perl scripts deep into the future.  Analogous to 'oraperl', wouldn't it be
> nice if some entity (with a financial interest in ADSM's market share,
> perhaps) married the ADSM API with perl: dsmperl!
>
> Because PERL is a defacto standard Unix systems management scripting tool
> for "heavier" scripting jobs/prototyping (no flames please), I'm sure that
> the native perl development will continue full steam ahead.  I just think
> that an extended perl would be more elegant & reduce the collective effort
> exerted by ADSM customers for the long term.
>
> I've started>   ADSM::Util::AIX         # utility methods (I.e. parse
> dsm.sys, etc.)
>                         ADSM::Server::AIX               # dsmadmc
>                         ADSM::Client::AIX               # dsmcdfs
>
> but I can see that it's a large effort & I'm never going to be able to do
> it
> justice with my resources.  If some entity did provide portable extensions,
> I think a lot of people could leap ahead with native perl sys mgt
> automation
> (& share, of course).
>
> Mark.Devine AT usa DOT net <mailto:Mark.Devine AT usa DOT net>
>
> --> -----Original Message-----
> --> From: ADSM: Dist Stor Manager
> --> [mailto:ADSM-L AT VM.MARIST DOT EDU]On Behalf Of
> --> Pat Wilson
> --> Sent: Thursday, October 01, 1998 3:52 AM
> --> To: ADSM-L AT VM.MARIST DOT EDU
> --> Subject: Re: ADSM Perl Scripts
> -->
> -->
> --> It'd be neat to have a repository of scripts and such that folks
> --> are willing to share.  I'll volunteer web space, if folks want to
> --> contribute things.
> -->
> --> Pat Wilson
> --> paw AT dartmouth DOT edu
> -->
> -->
> --> Daniel Whicker <heimdall AT MAIL DOT ORG> writes:
> -->
> --> >  I'd be interested in any ADSM perl scripts that you may
> --> have written.  I've
> --> >  also got one that will compact all the ADSM tape
> --> information into one spot.
> --> >
> --> >  At 11:27 PM 9/30/98 , you wrote:
> --> >  >> > I have written some Perl routines that use the
> --> -commadelimited option.
> --> >  >>
> --> >  >> > Now if I can just convience the ADSM NOT to put
> --> commas into numbers ;)
> --> >  >
> --> >  >> Try -tabdelimited instead.
> --> >  >
> --> >  >It still formats numbers as "60,437.5".  This is
> --> trivial but annoying
> --> >  >to fix in Perl.  You can then multiply, sum etc that by another
> --> >  >number.
> --> >  >
> --> >  >ADSM is smart enough to put quote marks around any
> --> field that would
> --> >  >have commas when it is comma delimited, and I found the
> --> right Perl
> --> >  >regexp to split the line correctly.
> --> >  >
> --> >  >As for useful Perl scripts: I have so far..
> --> >  >
> --> >  >- for our operations staff one that says which COPY
> --> POOL volumes have
> --> >  >filled over night, which need to be returned and how much spare
> --> >  >capacity the tape pools have.
> --> >  >
> --> >  >- a "is ADSM feeling healthy" (db mirrors on line,
> --> volumes in error
> --> >  >state, ...)
> --> >  >
> --> >  >- and one that produces daily emails to the end users
> --> saying what
> --> >  >happened last night and a summary to me as ADSM admin.
> --> >  >
> --> >  >- periodically reads the activity log and emails me any new and
> --> >  >"interesting" messages
> --> >  >
> --> >  >I could share these if there are any takers.
> --> >  >
> --> >  >Russell
> --> >
> --> >
> -->                -Dan
> --> iel
> --> >                  ------------------------------------------
> --> >                  Daniel Whicker  (heimdall AT mail DOT org)
> -->
<Prev in Thread] Current Thread [Next in Thread>