snapshot-2003-02-17/Echolot/Globals.pm

package Echolot::Globals;

# (c) 2002 Peter Palfrader <peter@palfrader.org>
# $Id: Globals.pm,v 1.1 2002/06/05 04:05:40 weasel Exp $
#

=pod

=head1 Name

Echolot::Globals - echolot global variables

=head1 DESCRIPTION

=cut

use strict;
use warnings;
use Carp;

my $GLOBALS;

sub init {
        my $hostname = `hostname`;
        $hostname =~ /^([a-zA-Z0-9_-]*)$/;
        $hostname = $1 || 'unknown';
        $GLOBALS->{'hostname'} = $hostname;
        $GLOBALS->{'storage'}   = new Echolot::Storage::File ( datadir => Echolot::Config::get()->{'storage'}->{'File'}->{'basedir'} );
        $GLOBALS->{'internalcounter'} = 1;
};

sub get() {
        return $GLOBALS;
};

1;
# vim: set ts=4 shiftwidth=4:
1	weasel	1	package Echolot::Globals;
2
3			# (c) 2002 Peter Palfrader <peter@palfrader.org>
4			# $Id: Globals.pm,v 1.1 2002/06/05 04:05:40 weasel Exp $
5			#
6
7			=pod
8
9			=head1 Name
10
11			Echolot::Globals - echolot global variables
12
13			=head1 DESCRIPTION
14
15			=cut
16
17			use strict;
18			use warnings;
19			use Carp;
20
21			my $GLOBALS;
22
23			sub init {
24			my $hostname = `hostname`;
25			$hostname =~ /^([a-zA-Z0-9_-]*)$/;
26			$hostname = $1 \|\| 'unknown';
27			$GLOBALS->{'hostname'} = $hostname;
28			$GLOBALS->{'storage'} = new Echolot::Storage::File ( datadir => Echolot::Config::get()->{'storage'}->{'File'}->{'basedir'} );
29			$GLOBALS->{'internalcounter'} = 1;
30			};
31
32			sub get() {
33			return $GLOBALS;
34			};
35
36			1;
37			# vim: set ts=4 shiftwidth=4: