/[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 401 by dpavlin, Tue Sep 8 20:21:25 2009 UTC revision 411 by dpavlin, Wed Sep 9 12:16:41 2009 UTC
# Line 39  qq{ Line 39  qq{
39  sub menu {  sub menu {
40  qq{  qq{
41  <div style="font-size: 80%; color: #888">  <div style="font-size: 80%; color: #888">
42  <a href=/>home</a>  <a href=/ target=/>home</a>
43  <a href=/server>server</a>  <a href=/server target=server>server</a>
44  <a href=/brctl>brctl</a>  <a href=/brctl target=brctl>brctl</a>
45  <a href=/ip>ip</a>  <a href=/ip target=ip>ip</a>
46  <a href=/nmap>nmap</a>  <a href=/nmap target=nmap>nmap</a>
47  <a href=/client>client</a>  <a href=/client target=client>client</a>
48    <a href=http://$server::ip:5984/_utils/ target=couchdb>couchdb</a>
49  </div>  </div>
50    
51  }}  }}
# Line 85  sub static { Line 86  sub static {
86    
87          return if ! -f $full;          return if ! -f $full;
88    
89            return if $full =~ m{\.ico$};
90    
91          if ( my $pid = fork ) {          if ( my $pid = fork ) {
92                  # parent                  # parent
93                  close($client);                  close($client);
# Line 215  warn "XXX pids = ", dump( $daemons::pids Line 218  warn "XXX pids = ", dump( $daemons::pids
218                          }                          }
219                  }                  }
220    
221                    my $kvm = kvm::next_nr;
222                    $kvm = qq|<div><a href=/start_stop/kvm?nr=$kvm>create new kvm $kvm</a></div>|;
223    
224                  print $client ok                  print $client ok
225                          , html::table( 2, @rows )                          , html::table( 2, @rows )
226                          , $below_table                          , $below_table
227                            , $kvm
228                          , html::tabs( log::mac_changes )                          , html::tabs( log::mac_changes )
229                          , $debug_proc                          , $debug_proc
230                          ;                          ;
# Line 465  sub start { Line 472  sub start {
472          print "url $url\n";          print "url $url\n";
473    
474          syslogd::install_local;          syslogd::install_local;
475            client::rebuild_mac_links;
476    
477          while (1) {          while (1) {
478                  my $client = $server->accept() || next; # ALARM trickle us                  my $client = $server->accept() || next; # ALARM trickle us
Legend:
Removed from v.401  
changed lines
  Added in v.411
  ViewVC Help
Powered by ViewVC 1.1.26