
<<  Summarize the ntbackup logfiles from beta, alpha and gamma

History:
    18 Jan2000 paul  1.  Modify ListString to check backup logfiles on
                             our 3 NT servers.
                     2.  invoked from a nightly scheduled job on alpha
>>

name Backupcheck;

sub ListString(file,outfile)
    list = {};
    list = list + file.fullfilename;
    list = list + "";
    outfile.insert(list);
    found = file.find( regexp:".*Backup.*:", startattop:true);
    repeat while found
       line = file.gettext( startline: file.lastfoundline );
       s = string(file.lastfoundline) + "??t" + line[1];
       list = {};
       list = list + s;
       list = list + "";
       outfile.insert(list);
       writelog(s);
       if file.lastfoundline + 1 > file.linecount then
            found = false;
       else
            found = file.find( regexp: ".*Backup.*:", startline:file.lastfoundline + 1 );
       endif
    endrepeat
endsub

outfile=newfile();
file = open("\\alpha\c\robops\log\ntbackup.log");

Liststring(file,outfile) ;

file.close();
file = open("\\gamma\c\robops\log\ntbackup.log");

Liststring(file,outfile) ;

file.close();

file = open("\\beta\d\robops\log\ntbackup.log");

Liststring(file,outfile) ;

file.close();

mynull = character(0);
cleanup = outfile.find(string: mynull, entirefile: true, replacewith:" ");


outfile.saveas( filename: "\\alpha\c\robops\log\backupck.log",
forceoverwrite: true);
outfile.close();
exit();