Root Core File

In this example, we report the existence of a core file in the root directory, also remove it in order to reclaim vital disk space.

The RootCoreFileExist script might send an alert message like the following:

                                PIKT ALERT
                         Mon Oct 20 11:44:18 2003
                                  nantes

URGENT:
    RootCoreFileExist
        Report and remove /core files

        /core:      ELF 32-bit MSB core file SPARC Version 1, from 'syslogd'
        -rw-------   1 root     other    1078508 Oct  7 03:10 /core
        moved /core file to /tmp, after the move:
        /dev/dsk/c0t0d0s0    1984230 1426880  497824    75%    /

RootCoreFileExist makes reference to =mvrootcore(), defined as a macro (because we might want to use this code sequence in other scripts) in macros.cfg as:

mvrootcore(D)
                if -e "/core"
                        output mail $command("=file /core 2>/dev/null")
                        output mail $command("=ll /core")
                        =execwait "=mv /core (D)"
                        output mail "moved /core file to (D), after the move:"
                        output mail $command("=dfl / | =behead(1)")
                endif

The script follows.

RootCoreFileExist

        init
                status =piktstatus
                level =piktlevel
                task "Report and remove /core files"

        begin
                =mvrootcore(/tmp)

This is just one program example.  You could add rules, or write new scripts, for example to:  report the existence of core files elsewhere (other than in the root directory), archive core files for later inspection, etc.

For more examples, see Samples.