Data/Rap/Property.pm

## ----------------------------------------------------------------------
##  $Id: Ref.pm,v 1.1 2003/01/22 17:59:22 root Exp $
## ----------------------------------------------------------------------
##  $Log: Ref.pm,v $
## ----------------------------------------------------------------------


package Data::Rap::Property;

use strict;
use warnings;


use Data::Dumper;
use Sys::Hostname;
use Data::Storage::Handler::File;


sub loadGlobalProperties {
  my $self = shift;

  # determining hostname
    my $hostname = lc hostname;
    $self->log("determining hostname: $hostname", 'info');
    $self->set_property({ name => 'global.hostname', value => $hostname });

}

sub _property {
  my $self = shift;
  my $args = shift;
  $self->set_property($args);
}


sub loadFromPerlFile {
  my $self = shift;
  my $file = shift;
  my $name = shift;
  my $varnames = shift;
  
  # FIXME
  $file = "../$file";
  
  $self->log("Loading $file.", 'notice');
  
  my $storage = Data::Storage::Handler::File->new( filename => $file );
  if (!$storage->exists()) {
    $self->log("File '$file' does not exist.", 'error');
    return;
  }
  my $content = $storage->toString();

  $self->load("/Data/Code/Scalar");
  my $properties = $self->eval($content, $varnames);
  
  $self->set_property($name, $properties);
  
}

sub loadFromPerlModule {
  my $self = shift;
  my $module = shift;
  my $name = shift;
  my $varnames = shift;

  $self->load("/Data/Code/Module");
  my $properties = $self->eval_vars($module, $varnames);

  # trace
    #print Dumper($properties);
    #exit;

  $self->set_property($name, $properties);

}


1;
__END__
1	## ----------------------------------------------------------------------
2	## $Id: Ref.pm,v 1.1 2003/01/22 17:59:22 root Exp $
3	## ----------------------------------------------------------------------
4	## $Log: Ref.pm,v $
5	## ----------------------------------------------------------------------
6
7
8	package Data::Rap::Property;
9
10	use strict;
11	use warnings;
12
13
14	use Data::Dumper;
15	use Sys::Hostname;
16	use Data::Storage::Handler::File;
17
18
19	sub loadGlobalProperties {
20	my $self = shift;
21
22	# determining hostname
23	my $hostname = lc hostname;
24	$self->log("determining hostname: $hostname", 'info');
25	$self->set_property({ name => 'global.hostname', value => $hostname });
26
27	}
28
29	sub _property {
30	my $self = shift;
31	my $args = shift;
32	$self->set_property($args);
33	}
34
35
36	sub loadFromPerlFile {
37	my $self = shift;
38	my $file = shift;
39	my $name = shift;
40	my $varnames = shift;
41
42	# FIXME
43	$file = "../$file";
44
45	$self->log("Loading $file.", 'notice');
46
47	my $storage = Data::Storage::Handler::File->new( filename => $file );
48	if (!$storage->exists()) {
49	$self->log("File '$file' does not exist.", 'error');
50	return;
51	}
52	my $content = $storage->toString();
53
54	$self->load("/Data/Code/Scalar");
55	my $properties = $self->eval($content, $varnames);
56
57	$self->set_property($name, $properties);
58
59	}
60
61	sub loadFromPerlModule {
62	my $self = shift;
63	my $module = shift;
64	my $name = shift;
65	my $varnames = shift;
66
67	$self->load("/Data/Code/Module");
68	my $properties = $self->eval_vars($module, $varnames);
69
70	# trace
71	#print Dumper($properties);
72	#exit;
73
74	$self->set_property($name, $properties);
75
76	}
77
78
79	1;
80	__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26