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)