/[pxelator]/lib/PXElator/httpd.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/httpd.pm

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

revision 162 by dpavlin, Thu Aug 6 18:10:31 2009 UTC revision 165 by dpavlin, Thu Aug 6 18:51:57 2009 UTC
# Line 106  sub static { Line 106  sub static {
106  use boolean;  use boolean;
107    
108  use kvm;  use kvm;
109    use qemu; $pids->{qemu} = 'stopped';
110    
111  $SIG{CHLD} = 'IGNORE';  $SIG{CHLD} = 'IGNORE';
112    
# Line 235  sub get_request { Line 236  sub get_request {
236                                  , qq|<form method=get>|                                  , qq|<form method=get>|
237                                  , html::table( 2,                                  , html::table( 2,
238                                          'ip' => $ip,                                          'ip' => $ip,
239                                            'mac' => client::mac( $ip ),
240                                          'hostname' => qq|<input type=text name=hostname value=$hostname>|,                                          'hostname' => qq|<input type=text name=hostname value=$hostname>|,
241                                          'deploy' => html::select( 'deploy', $deploy, config::available ),                                          'deploy' => html::select( 'deploy', $deploy, config::available ),
242                                  )                                  )
# Line 251  sub get_request { Line 253  sub get_request {
253                                          map {                                          map {
254                                                  my $ip = $_;                                                  my $ip = $_;
255                                                  $ip =~ s{^.+/ip/}{};                                                  $ip =~ s{^.+/ip/}{};
256                                                  qq|<li><a href=/client/$ip>$ip</a></li>|                                                  qq|<li><a href=/client/$ip>$ip</a> |, client::mac($ip), qq|</li>|;
257                                          }                                          }
258                                          glob("$server::conf/ip/*")                                          glob("$server::conf/ip/*")
259                                  )                                  )
Legend:
Removed from v.162  
changed lines
  Added in v.165
  ViewVC Help
Powered by ViewVC 1.1.26