/[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 391 by dpavlin, Mon Sep 7 21:53:45 2009 UTC revision 393 by dpavlin, Tue Sep 8 16:54:35 2009 UTC
# Line 233  warn "XXX pids = ", dump( $daemons::pids Line 233  warn "XXX pids = ", dump( $daemons::pids
233                                  'new_clients' => qq|<input type=text name=new_clients size=3 value="| . server::shared( 'new_clients' ) . qq|">|,                                  'new_clients' => qq|<input type=text name=new_clients size=3 value="| . server::shared( 'new_clients' ) . qq|">|,
234                                   map {                                   map {
235                                          ( $_, html::tt eval '$server::'.$_ )                                          ( $_, html::tt eval '$server::'.$_ )
236                                   } ( 'ip', 'netmask', 'ip_from', 'ip_to', 'domain_name', 'base_dir', 'conf' )                                   } ( 'ip', 'netmask', 'ip_from', 'ip_to', 'domain', 'base_dir', 'conf' )
237                          )                          )
238                          , qq|</form>|                          , qq|</form>|
239                          ;                          ;
# Line 394  warn "XXX pids = ", dump( $daemons::pids Line 394  warn "XXX pids = ", dump( $daemons::pids
394          } elsif ( $path =~ m{^/start_stop/(\S+)} ) {          } elsif ( $path =~ m{^/start_stop/(\S+)} ) {
395                  print $client redirect, daemons::start_stop($1,$param);                  print $client redirect, daemons::start_stop($1,$param);
396          } elsif ( $path =~ m{^/action/([^/]+)/(.+)} ) {          } elsif ( $path =~ m{^/action/([^/]+)/(.+)} ) {
397                  $1->$2();                  my ( $package, $method ) = ( $1, $2 );
398                    $ENV{nr} = $1 if $package =~ s{\.(\d+)$}{};
399                    $package->$method();
400                  print $client redirect;                  print $client redirect;
401          } elsif ( $path =~ m{^/kill/static/(\d+)} ) {          } elsif ( $path =~ m{^/kill/static/(\d+)} ) {
402                  print $client redirect;                  print $client redirect;
Legend:
Removed from v.391  
changed lines
  Added in v.393
  ViewVC Help
Powered by ViewVC 1.1.26