gistfile1.txt

sub url_story {
        my $req = shift;
        my @path = @_; #shift;

        my $p = {};
        my $len = scalar @path;

        if ($len == 5){
                if ($path[$#path] =~ /^-/){
                        $p->{id} = $path[3];
                        }
                else {
                        $p->{sid} = join '/', @path;
                        }
                }
        elsif ($len == 7) {
                $p->{id} = pop @path; pop @path;
                $p->{sid} = join '/', @path;
                }
        elsif ($len == 6) {
                $p->{mode} = shift @path;
                $p->{sid} = join '/', @path;
                }
        elsif ($len == 2) {
                $p->{ACTION} = lc($path[1]);
                $p->{id} = $path[0];
                }
        else {
                $p = undef;
                }
        return $p;
        }