/[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

Diff of /lib/PXElator/server.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 394 by dpavlin, Tue Sep 8 17:12:35 2009 UTC revision 408 by dpavlin, Wed Sep 9 10:13:08 2009 UTC
# Line 11  tie our $bcast,   'server::tie', 'bcast' Line 11  tie our $bcast,   'server::tie', 'bcast'
11  tie our $ip_from, 'server::tie', 'ip_from'   => 10;  tie our $ip_from, 'server::tie', 'ip_from'   => 10;
12  tie our $ip_to,   'server::tie', 'ip_to'     => 100;  tie our $ip_to,   'server::tie', 'ip_to'     => 100;
13  tie our $domain,  'server::tie', 'domain'    => 'pxelator.lan';  tie our $domain,  'server::tie', 'domain'    => 'pxelator.lan';
14    tie our $new_clients, 'server::tie', 'new_clients' => $ip_to - $ip_from;
15    
16  warn "DEV $ip $bcast $netmask";  warn "DEV $ip $bcast $netmask";
17    
# Line 88  sub STORE { Line 89  sub STORE {
89  sub FETCH {  sub FETCH {
90          warn dump @_;          warn dump @_;
91          my $self = shift;          my $self = shift;
92          read_file $$self->{path};          my $v = read_file $$self->{path};
93            chomp($v);
94            $v;
95  }  }
96    
97  3;  3;
Legend:
Removed from v.394  
changed lines
  Added in v.408
  ViewVC Help
Powered by ViewVC 1.1.26