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

                                                                        -Daniel
                ------------------------------------------
                Daniel Whicker  (heimdall AT mail DOT org)