Perl Framework Next Generation und AJAX

Die Integration von AJAX in das Perl-Framework

Automatisch auf JS/AJAX umschalten wenn JS verfügbar ist

Mit meinem Perl-Framework gestaltet sich die Erweiterung auf AJAX recht einfach. Praktisch schaltet der Browser selbstständig um, wenn JavaScript verfügbar ist, erfolgt kein Submit sondern ein AJAX-Request. Serverseitig wird das unterschieden und dann wird entweder eine neue Seite mit veränderten Platzhaltern ausgeliefert oder es werden nur die Platzhalter ausgeliefert:

    if( $ENV{HTTP_ACCEPT} && $ENV{HTTP_ACCEPT} eq 'application/x-serialized' ){
        $self->{CONTENT} = XR::xr($out, $res);
    }
    else{
        $self->{STASH}{out} = XR::xr($out, $res);
    }

Der übrige CODE bleibt für die Anwendung dieses Konstrukts unverändert.


Die rein persönlichen Zwecken dienende Seite verwendet funktionsbedingt einen Session-Cookie. Datenschutzerklärung: Auf den für diese Domäne installierten Seiten werden grundsätzlich keine personenbezogenen Daten erhoben. Das Loggen der Zugriffe mit Ihrer Remote Adresse erfolgt beim Provider soweit das technisch erforderlich ist. @: Rolf Rost, Am Stadtgaben 27, 55276 Oppenheim, nmq​rstx-18­@yahoo.de