Foro - Perl en Español

#!/usr/bin/perl -w -T
## ######### PROJECT NAME : ##########
##
## sample.pl for sample Perl/Ajax in /var/www/perl/database
##
## ######### PROJECT DESCRIPTION : ###
##
## Ajax and CGI::session
##
## ###################################
##
## Made by husianycia cedric
## Login   <[email protected]>
##
## Started on  Wed Nov 30 20:31:13 2005 husianycia cedric
## Last update Wed Nov 30 21:44:04 2005 husianycia cedric
##
## ###################################
##

## ###################################
## Declaration de librairies

use   strict;
use   CGI qw(:standard);
use   CGI::Ajax;
use   CGI::Session;

## ###################################
## Declaration de Variables

   ## Declaration de l'objet CGI
our   $cgi;
   ## Declaration de l'objet Session
our   $session;

## ###################################
## Creation d'une session

sub   new_session {
    my $cgi      = shift;
   
    my $directory   = "/tmp";

    my $session      = new CGI::Session( undef, $cgi,
                   { Directory => $directory ,
                     'new_session' => 'false' } );
   
    return $session;
}

## ###################################
## Ajout dans une sessions

sub   set_session {
    my $session   = shift;
    my $name   = shift;
    my $value   = shift;
   
    $session->param(-name => $name, -value => $value);
   
    return 0;
}

## ###################################
## Recuperation dans une session

sub   get_session {
    my $session   = shift;
    my $name   = shift;
   
    return $session->param(-name => $name);
}

## ###################################
## Creation de l'html

sub   create_html {
    my $html   = $cgi->start_html(-title=>'Sample',
               -author=>'husiana',
               -bgcolor=>'#00FF00',
               -text=>'#000000',
               -link=>'#0000FF',
               -vlink=>'#0000FF',
               -alink=>'#0000FF');

    my $sess_id   = $session->id();
   
    $html.= "<input type=\"hidden\" id=\"$sess_id\" name=\"$sess_id\" value=\"$sess_id\"><input type=\"text\" name=\"txt\" id=\"txt\" onKeyUp=\"callback( [\'txt\', \'$sess_id\'], [\'result_div\'] ); return true;\">";
   
    $html .= "<br><center><div id=\"result_div\"></div></center>";
    $html .= $cgi->end_html();

    return $html;
}

## ###################################
## Ajax callback

sub   callback {
    my $input   = shift;
    my $cgi_id   = shift;

    my $ret   = "";
   
    my $session   = new_session($cgi_id);

    my $login   = get_session($session, "login");

    $ret .= "Login : $login<br>Input : $input";

    return $ret;
}

## ###################################
## main

sub   main {
   
    $cgi   = new CGI;
   
    $session   = new_session($cgi);

    set_session($session, "login", "toto_42");
   
    my $pjx   = new CGI::Ajax( 'callback' => \&callback );
   
    my $var   = $pjx->build_html( $cgi, \&create_html );

    print $var;
}

## ###################################
## Appel du main

main();