/[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 57 by dpavlin, Thu Jul 30 14:16:59 2009 UTC revision 64 by dpavlin, Thu Jul 30 16:26:54 2009 UTC
# Line 23  our $port = 7777; Line 23  our $port = 7777;
23  our $debug = 1;  our $debug = 1;
24    
25  use server;  use server;
26  our $url = "http://$server::ip:$port/";  our $url = "http://$server::ip:$port";
27    
28  use html;  use html;
29    
# Line 106  sub get_request { Line 106  sub get_request {
106    
107                  print $client $ok,                  print $client $ok,
108                  html::table( 2,                  html::table( 2,
109                          'pid',    $$,                          'pid',          html::tt( $$ ),
110                          'debug',  qq|<a href=/our/debug/| . boolean::toggle($debug) . qq|>$debug</a>|,                          'ip',           html::tt( $server::ip ),
111                          'screen', qq|<a href=/screen>$screen</a>|,                          'netmask',      html::tt( $server::netmask ),
112                          'kvm',    qq|<a href=/kvm>$kvm</a>|,                          'debug',        qq|<a href=/our/debug/| . boolean::toggle($debug) . qq|>$debug</a>|,
113                            'screen',       qq|<a href=/screen>$screen</a>|,
114                            'kvm',          qq|<a href=/kvm>$kvm</a>|,
115                  );                  );
116    
117          } elsif ( $path =~ m{^/our/(\w+)/(\S+)} ) {          } elsif ( $path =~ m{^/our/(\w+)/(\S+)} ) {

Legend:
Removed from v.57  
changed lines
  Added in v.64

  ViewVC Help
Powered by ViewVC 1.1.26