$OpenBSD: patch-bin_smokeping,v 1.1 2013/01/05 22:52:07 sthen Exp $
--- bin/smokeping.orig	Sat Dec  8 22:21:11 2012
+++ bin/smokeping	Sat Dec  8 22:22:57 2012
@@ -1,4 +1,4 @@
-#!/usr/bin/env perl
+#!/usr/bin/perl
 # -*-perl-*-
 
 use strict;
@@ -10,8 +10,14 @@ use lib "$FindBin::Bin/../thirdparty/lib/perl5";
 use lib "$FindBin::Bin/../lib";
 
 use Smokeping;
+
+use POSIX qw(setuid setgid getpwnam);
+print "Dropping privileges to _smokeping ...\n";
+my (undef, undef, $uid, $gid) = POSIX::getpwnam("_smokeping");
+POSIX::setgid($uid) or die "setgid() to $gid failed, abort\n";
+POSIX::setuid($uid) or die "setuid() to $uid failed, abort\n";
  
-Smokeping::main("$FindBin::Bin/../etc/config");
+Smokeping::main("${SYSCONFDIR}/config");
 
 =head1 NAME
 
