moving to the language tree

git-svn-id: https://reductivelabs.com/svn/puppet/library/trunk@212 980ebf18-57e1-0310-9a29-db15c13687c0

1 files changed, 0 insertions, 97 deletions

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<template> is a stub script.
-
-=head1 OPTIONS
-
-=over 4
-
-=item help
-
-Prints out help page.
-
-=back
-
-B<Example>
-
-template
-
-=head1 BUGS
-
-This script shouldn't be modified, or has apparently not been documented.
-
-=head1 SEE ALSO
-
-L<Cat>
-
-=head1 AUTHOR
-
-Luke A. Kanies, luke.kanies@cat.com
-
-=for html <hr>
-
-I<$Id$>
-
-=cut