cvs commit: p5ee/App-Context/lib/App/Context HTTP.pm

cvsuser     05/08/09 12:07:41

  Modified:    App-Context/lib/App/Context HTTP.pm
  Log:
  switchable users. support for PATH_INFO apps.
  
  Revision  Changes    Path
  1.9       +29 -12    p5ee/App-Context/lib/App/Context/HTTP.pm
  
  Index: HTTP.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Context/lib/App/Context/HTTP.pm,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- HTTP.pm	2 Sep 2004 20:56:51 -0000	1.8
  +++ HTTP.pm	9 Aug 2005 19:07:41 -0000	1.9
  @@ -134,25 +134,29 @@
       my $events = $self->{events};
       my ($event, $service, $name, $method, $args);
       my $results = "";
  -    my $display_current_widget = 1;
  +    # my $display_current_widget = 1;
   
       eval {
           while ($#$events > -1) {
               $event = shift(@$events);
               ($service, $name, $method, $args) = @$event;
  -            if ($service eq "SessionObject") {
  -                $self->call($service, $name, $method, $args);
  -            }
  -            else {
  +            #if ($service eq "SessionObject") {
  +            #    $self->call($service, $name, $method, $args);
  +            #}
  +            #else {
                   $results = $self->call($service, $name, $method, $args);
  -                $display_current_widget = 0;
  -            }
  +                #$results = [ $results ] if (!ref($results));
  +            #    $display_current_widget = 0;
  +            #}
           }
  -        if ($display_current_widget) {
  +        #if ($display_current_widget) { }
  +        #if (! defined $results) {
               my $type = $self->so_get("default","ctype","SessionObject");
  -            my $name = $self->so_get("default","cname","default");
  -            $results = $self->service($type, $name);
  -        }
  +            my $name = $self->so_get("default","cname");
  +            #if ($xyz) {
  +                $results = $self->service($type, $name);
  +            #}
  +        #}
   
           my $response = $self->response();
           my $ref = ref($results);
  @@ -542,6 +546,19 @@
       &App::sub_entry if ($App::trace);
       my $self = shift;
       my $user = $self->request()->user();
  +    my $switchable_users = $self->get_option("switchable_users");
  +    if ($switchable_users && $switchable_users =~ /\b$user\b/) {
  +        # check more carefully ...
  +        if ($switchable_users eq $user ||
  +            $switchable_users =~ /:$user:/ ||
  +            $switchable_users =~ /^$user:/ ||
  +            $switchable_users =~ /:$user$/) {
  +            my $newuser = $self->so_get("default","u");
  +            if ($newuser) {
  +                $user = $newuser;
  +            }
  +        }
  +    }
       &App::sub_exit($user) if ($App::trace);
       return $user;
   }