--- lib/CGI/Ajax.pm (revision 95) +++ lib/CGI/Ajax.pm (working copy) @@ -996,8 +996,9 @@ return("") if not defined $func_name; return("") if $func_name eq ""; my $rv = ""; - my $script = $0; - $script =~ s/.*[\/|\\](.+)$/$1/; + my $script = $ENV{'REQUEST_URI'}; my $outside_url = $self->url_list()->{ $func_name }; my $url = defined $outside_url ? $outside_url : $script; if ($url =~ /\?/) { $url.='&'; } else {$url.='?'} ##

##

print $pjx->build_html( $cgi, &Show_HTML($env),$env );

##

##

print $pjx->build_html( $cgi, \&Show_HTML($env));

##

##

my $ref_show = \&Show_HTML;
my $show = $ref_show->($env);

##

##


SetHandler      perl-script
PerlInitHandler Apache::StatINC
PerlHandler     Test::pjx
PerlSetVar      DBASE   **
PerlSetVar      DBUSER  **
PerlSetVar      DBPASS  **


##

##

package Test::pjx;

use strict;
use Apache::Constants qw(:common);
use CGI qw(:all);      # or any other CGI:: form handler/decoder
use CGI::Ajax;
use warnings;
use diagnostics;

$^W=1;
local $SIG{__WARN__} = \&Carp::cluck;
sub handler {
        my $r = shift;
        my $env = $r->subprocess_env;
        my $cgi = new CGI;
        my $pjx = new CGI::Ajax( 'exported_func' => \&perl_func  );


my $ref_show = \&Show_HTML;
my $show = $ref_show->($env);


        print $pjx->DEBUG(1);
        print $pjx->JSDEBUG(1);
        print $pjx->build_html( $cgi, $show);
        return  OK;
}

sub perl_func {
            my $input = shift;
            # do something with $input
            my $output = $input . " was the input!";
            return $output ;
}

sub Show_HTML {
        my $env = shift;
        my $html = <
          
          Enter something:
           
          

          
        
       
EOHTML
    return $html;
}

1;
__END__


##

##

Screenoutput:
http://simulator.bla.nl:8080/pjx

 Enter something:
arnold4 was the input!

/pjx?fname=exported_func&args=arnold4&val1=arnold4 
^^^^^
Used to be null, so correct now