use clinet::conf instead of server::shared
authorDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 6 Aug 2009 15:40:42 +0000 (15:40 +0000)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 6 Aug 2009 15:40:42 +0000 (15:40 +0000)
lib/PXElator/httpd.pm

index 864684a..0eea0fc 100644 (file)
@@ -49,6 +49,8 @@ use html;
 our $static_pids;
 use progress_bar;
 use config;
+use client;
+use log;
 
 sub static {
        my ($client,$path) = @_;
@@ -227,8 +229,8 @@ sub get_request {
                        ;
        } elsif ( $path =~ m{^/client} ) {
                my $ip = $client->peerhost;
-               my $hostname = server::shared( "hostname/$ip", $param->{hostname} );
-               my $deploy   = server::shared( "deploy/$ip",   $param->{deploy}   );
+               my $hostname = client::conf( $ip, 'hostname' => $param->{hostname} );
+               my $deploy   = client::conf( $ip, 'deploy'   => $param->{deploy}   );
                print $client $ok
                        , menu()
                        , qq|<form method=get>|