2007-06-29 02:58:22 -04:00
|
|
|
$OpenBSD: patch-bin_smokeping_dist,v 1.7 2007/06/29 06:58:22 jakob Exp $
|
|
|
|
--- bin/smokeping.dist.orig Wed May 2 18:15:31 2007
|
|
|
|
+++ bin/smokeping.dist Wed Jun 27 09:42:29 2007
|
|
|
|
@@ -1,12 +1,15 @@
|
2006-06-14 04:58:22 -04:00
|
|
|
-#!/usr/sepp/bin/perl-5.8.4 -w
|
2004-07-08 13:10:56 -04:00
|
|
|
+#!/usr/bin/perl -w
|
2002-11-10 15:04:49 -05:00
|
|
|
# -*-perl-*-
|
|
|
|
|
2006-06-14 04:58:22 -04:00
|
|
|
-use lib qw(/usr/pack/rrdtool-1.0.49-to/lib/perl);
|
|
|
|
use lib qw(lib);
|
2002-11-10 15:04:49 -05:00
|
|
|
|
2007-06-29 02:58:22 -04:00
|
|
|
use Smokeping 2.001001;
|
2006-11-22 05:18:32 -05:00
|
|
|
-
|
|
|
|
-Smokeping::main("etc/config.dist");
|
2006-06-14 04:58:22 -04:00
|
|
|
+
|
2007-06-29 02:58:22 -04:00
|
|
|
+Smokeping::main("%%SYSCONFDIR%%/smokeping/config");
|
|
|
|
+
|
2006-11-22 05:18:32 -05:00
|
|
|
+use POSIX qw(setuid setgid getpwnam);
|
2006-06-14 04:58:22 -04:00
|
|
|
+print "Dropping privileges to _smokeping ...\n";
|
|
|
|
+my (undef, undef, $uid, $gid) = POSIX::getpwnam("_smokeping");
|
2002-11-10 15:04:49 -05:00
|
|
|
|
|
|
|
=head1 NAME
|
|
|
|
|