From a1a7ae4cf77b4161b6874e60ab06078bf4e6f081 Mon Sep 17 00:00:00 2001 From: Luke Kanies Date: Fri, 22 Apr 2005 18:43:50 +0000 Subject: moving to the language tree git-svn-id: https://reductivelabs.com/svn/puppet/library/trunk@212 980ebf18-57e1-0310-9a29-db15c13687c0 --- examples/root/bin/sleeper | 97 ------------------------------------ examples/root/etc/configfile | 0 examples/root/etc/debian-passwd | 29 ----------- examples/root/etc/debian-syslog.conf | 71 -------------------------- examples/root/etc/init.d/sleeper | 27 ---------- 5 files changed, 224 deletions(-) delete mode 100755 examples/root/bin/sleeper delete mode 100644 examples/root/etc/configfile delete mode 100644 examples/root/etc/debian-passwd delete mode 100644 examples/root/etc/debian-syslog.conf delete mode 100755 examples/root/etc/init.d/sleeper (limited to 'examples/root') diff --git a/examples/root/bin/sleeper b/examples/root/bin/sleeper deleted file mode 100755 index 6c1495928..000000000 --- a/examples/root/bin/sleeper +++ /dev/null @@ -1,97 +0,0 @@ -#!/usr/bin/perl -w - -### -# sleep indefinitely as a debug - -use strict; -use Getopt::Long; -use Pod::Usage; - -#----------------------------------------------------------------- -sub daemonize -{ - use POSIX 'setsid'; - $| = 1; - chdir '/' or die "Can't chdir to /: $!\n"; - open STDIN, "/dev/null" or die "Can't read /dev/null: $!\n"; - open STDOUT, "> /dev/null" or die "Can't write to /dev/null: $!\n"; - defined(my $pid = fork()) or die "Can't fork: $!\n"; - #print STDERR $pid, "\n"; - exit if $pid; - setsid or die "Can't start a new session: $!\n"; - open STDERR, ">&STDOUT" or die "Can't dup stdout: $!\n"; -} -#----------------------------------------------------------------- - -my ($help,$opt_result,$debug,$fun); - -$opt_result = GetOptions -( - "help" => \$help, - "debug" => \$debug, - "fun" => \$fun, -); - -if (! $opt_result) -{ - pod2usage('-exitval' => 1, '-verbose' => 0); - exit(1); -} - -if ($help) -{ - pod2usage('-exitval' => 1, '-verbose' => 2); - exit; -} - -unless ($debug) { - daemonize(); -} - -while(1){ - sleep 600; -} - -=head1 NAME - -template - this is a template script and should be copied and modded - -=head1 SYNOPSIS - -template [-help] - -=head1 DESCRIPTION - -B