From: Chris W. <la...@us...> - 2005-03-02 17:33:42
|
Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/ActionResolver In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1741 Modified Files: UserDir.pm Log Message: add inline comments (cosmetic) Index: UserDir.pm =================================================================== RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/ActionResolver/UserDir.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** UserDir.pm 2 Mar 2005 15:31:34 -0000 1.3 --- UserDir.pm 2 Mar 2005 17:33:32 -0000 1.4 *************** *** 20,26 **** --- 20,32 ---- my ( $self, $request, $url ) = @_; return undef unless ( $url =~ m|^/?~| ); + + # cleanup url to known state $url =~ s|^/||; $url =~ s/\?.*$//; $url =~ s|/$||; + my ( $username, $task, @params ) = split /\//, $url; + + # /~user same as /~user/display $task ||= 'display'; + my $action = CTX->lookup_action( 'user' ); $action->task( $task ); |