> To adjust the solution for your problem, you might rewrite it like this:
>
> type=single
> ptype=substr
> pattern=SEC_SHUTDOWN
> context=SEC_INTERNAL_EVENT
> desc=produce the dumpfile
> action=lcall %o -> ( sub { main::dump_data(); } )
My version of this to ensure the process happens (it will fail if
/tmp/sec.dump already exists):
type=Single
ptype=SubStr
continue=TakeNext
pattern=SEC_SHUTDOWN
desc=Dump State On SEC Shutdown
context=SEC_INTERNAL_EVENT
action=logonly "attempting to dump state"; \
lcall %ret -> ( sub { my $now = time; unlink("/tmp/sec.dump");
main::dump_data(); rename("/tmp/sec.dump", "/tmp/sec.dump.$now"); } )
Regards,
Mark
--
Mark D. Nagel, CCIE #3177 Emeritus <[email protected]>
Principal Consultant, Willing Minds LLC (http://www.willingminds.com)
cell: 949-279-5817, desk: 714-495-4001, fax: 714-646-8277
** For faster support response time, please
** email [email protected] or call 714-495-4000
------------------------------------------------------------------------------
New Year. New Location. New Benefits. New Data Center in Ashburn, VA.
GigeNET is offering a free month of service with a new server in Ashburn.
Choose from 2 high performing configs, both with 100TB of bandwidth.
Higher redundancy.Lower latency.Increased capacity.Completely compliant.
vanity: www.gigenet.com
_______________________________________________
Simple-evcorr-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/simple-evcorr-users
