#!/usr/bin/perl

use warnings;
use strict;

package head;

use Daemon::Generic;
use Config::General;

sub gd_run {
        main->init();
}

sub gd_preconfig {
        my $conf = new Config::General(tools->selconf());
        return;
}


newdaemon(
        progname        => 'altLaunch',
        pidfile         => '/tmp/altLaunch.pid',
        configfile      => '/usr/local/etc/altLaunch/altLaunch.conf',
);

package tools;

sub selconf {
        my @configs = qw(/etc/altLaunch/altLaunch.conf /usr/local/etc/altLaunch/altLaunch.conf);
        foreach my $path (@configs) { return $path if (-e $path) }
        die "Could not find a valid configuration file, searched: [".join(',',@configs)."]";
}

package main;

use POE;

sub init {
        sleep 20;
}

exit 0;



"altLaunch" 43 lines, 711 characters
> perl altLaunch start
Could not find a valid configuration file, searched: [/etc/altLaunch/altLaunch.conf,/usr/local/etc/altLaunch/altLaunch.conf] at altLaunch line 32.
>