/[pxelator]/lib/PXElator/server.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /lib/PXElator/server.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 408 - (hide annotations)
Wed Sep 9 10:13:08 2009 UTC (14 years, 6 months ago) by dpavlin
File size: 1860 byte(s)
chomp tied variables
1 dpavlin 42 package server;
2    
3 dpavlin 67 use warnings;
4     use strict;
5    
6 dpavlin 393 our $base_dir = '/srv/pxelator';
7 dpavlin 118
8 dpavlin 394 tie our $ip, 'server::tie', 'server_ip' => '172.16.10.1';
9     tie our $netmask, 'server::tie', 'natmask' => '255.255.255.0';
10     tie our $bcast, 'server::tie', 'bcast' => '172.16.10.254';
11     tie our $ip_from, 'server::tie', 'ip_from' => 10;
12     tie our $ip_to, 'server::tie', 'ip_to' => 100;
13     tie our $domain, 'server::tie', 'domain' => 'pxelator.lan';
14 dpavlin 396 tie our $new_clients, 'server::tie', 'new_clients' => $ip_to - $ip_from;
15 dpavlin 42
16 dpavlin 393 warn "DEV $ip $bcast $netmask";
17 dpavlin 179
18 dpavlin 394 our $conf = "$base_dir/conf";
19 dpavlin 198 mkdir $conf unless -e $conf;
20 dpavlin 156
21 dpavlin 393 sub conf {
22     warn "## conf $conf";
23     $conf;
24     }
25    
26 dpavlin 138 use Module::Refresh qw//;
27 dpavlin 264 sub refresh {
28     Module::Refresh->refresh;
29     my $from = (caller(1))[3];
30     $from =~ s{^(\w+)::.+$}{$1};
31     my $eval = '$' . $from . '::debug = server::debug();';
32     warn "refresh $eval\n";
33     eval $eval;
34     warn $@ if $@;
35     };
36 dpavlin 74
37 dpavlin 156 mkdir $_ foreach grep { ! -d $_ } map { "$conf/$_" } ( 'ip', 'mac' );
38    
39 dpavlin 138 use File::Slurp;
40     sub shared {
41     my ($name, $value) = @_;
42 dpavlin 67
43 dpavlin 156 my $path ="$conf/$name";
44 dpavlin 138 if ( defined $value ) {
45     write_file $path, $value;
46 dpavlin 153 warn "update $path = $value";
47 dpavlin 138 } else {
48     $value = read_file $path if -e $path;
49     }
50     return $value;
51     }
52    
53 dpavlin 270 sub conf_default { shared($_[0]) || $_[1] }
54    
55 dpavlin 138 sub debug { shared('debug', @_) || 0 }
56    
57 dpavlin 45 warn "loaded";
58 dpavlin 134
59 dpavlin 393
60     package server::tie;
61    
62     use File::Slurp;
63     use Data::Dump qw/dump/;
64    
65     use server;
66    
67     sub TIESCALAR {
68     warn dump @_;
69     my ($class,$name,$default) = @_;
70    
71 dpavlin 394 my $path = $server::base_dir . '/conf/' . $name;
72 dpavlin 393
73     my $o = {
74 dpavlin 394 path => $path,
75 dpavlin 393 };
76     write_file $o->{path}, $default unless -f $o->{path};
77    
78     warn "TIESCALAR $name ", $o->{path}, " [$default]";
79    
80     bless \$o,$class;
81     }
82    
83     sub STORE {
84     warn dump @_;
85     my ( $self, $value ) = @_;
86     write_file $$self->{path}, $value;
87     }
88    
89     sub FETCH {
90     warn dump @_;
91     my $self = shift;
92 dpavlin 408 my $v = read_file $$self->{path};
93     chomp($v);
94     $v;
95 dpavlin 393 }
96    
97     3;

  ViewVC Help
Powered by ViewVC 1.1.26