1*aa580fcbSbluhm# $OpenBSD: Syslogc.pm,v 1.1 2014/09/13 23:38:24 bluhm Exp $ 2*aa580fcbSbluhm 3*aa580fcbSbluhm# Copyright (c) 2010-2014 Alexander Bluhm <bluhm@openbsd.org> 4*aa580fcbSbluhm# 5*aa580fcbSbluhm# Permission to use, copy, modify, and distribute this software for any 6*aa580fcbSbluhm# purpose with or without fee is hereby granted, provided that the above 7*aa580fcbSbluhm# copyright notice and this permission notice appear in all copies. 8*aa580fcbSbluhm# 9*aa580fcbSbluhm# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES 10*aa580fcbSbluhm# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF 11*aa580fcbSbluhm# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR 12*aa580fcbSbluhm# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 13*aa580fcbSbluhm# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN 14*aa580fcbSbluhm# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF 15*aa580fcbSbluhm# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 16*aa580fcbSbluhm 17*aa580fcbSbluhmuse strict; 18*aa580fcbSbluhmuse warnings; 19*aa580fcbSbluhm 20*aa580fcbSbluhmpackage Syslogc; 21*aa580fcbSbluhmuse parent 'Proc'; 22*aa580fcbSbluhmuse Carp; 23*aa580fcbSbluhm 24*aa580fcbSbluhmsub new { 25*aa580fcbSbluhm my $class = shift; 26*aa580fcbSbluhm my %args = @_; 27*aa580fcbSbluhm $args{ktracefile} ||= "syslogc.ktrace"; 28*aa580fcbSbluhm $args{logfile} ||= "syslogc.log"; 29*aa580fcbSbluhm $args{ctlsock} ||= "ctl.sock"; 30*aa580fcbSbluhm $args{up} ||= "execute: "; 31*aa580fcbSbluhm $args{func} = sub { Carp::confess "$class func may not be called" }; 32*aa580fcbSbluhm my $self = Proc::new($class, %args); 33*aa580fcbSbluhm 34*aa580fcbSbluhm return $self; 35*aa580fcbSbluhm} 36*aa580fcbSbluhm 37*aa580fcbSbluhmsub child { 38*aa580fcbSbluhm my $self = shift; 39*aa580fcbSbluhm my @sudo = $ENV{SUDO} ? $ENV{SUDO} : (); 40*aa580fcbSbluhm 41*aa580fcbSbluhm my @ktrace = $ENV{KTRACE} || (); 42*aa580fcbSbluhm @ktrace = "ktrace" if $self->{ktrace} && !@ktrace; 43*aa580fcbSbluhm push @ktrace, "-i", "-f", $self->{ktracefile} if @ktrace; 44*aa580fcbSbluhm my @cmd = (@sudo, @ktrace, "syslogc", "-s", $self->{ctlsock}); 45*aa580fcbSbluhm push @cmd, @{$self->{options}} if $self->{options}; 46*aa580fcbSbluhm print STDERR "execute: @cmd\n"; 47*aa580fcbSbluhm exec @cmd; 48*aa580fcbSbluhm die ref($self), " exec '@cmd' failed: $!"; 49*aa580fcbSbluhm} 50*aa580fcbSbluhm 51*aa580fcbSbluhmsub down { 52*aa580fcbSbluhm my $self = shift; 53*aa580fcbSbluhm eval { Proc::down($self, @_) }; 54*aa580fcbSbluhm die $@ if $@ && $self->{down} ne "Shutdown"; 55*aa580fcbSbluhm return $self; 56*aa580fcbSbluhm} 57*aa580fcbSbluhm 58*aa580fcbSbluhm1; 59