Visualizza - Garr

Esempio completo
Front-end:
// Richieste al back-end:
$opts = array();
// due scalari
$opts['colour1'] = '#72e3fa';
$opts['colour2'] = '#2a6f99';
// un array
$opts['colours'] = array ( '#12af7d', '#56fc7b');
// chiamata alla funzione in back-end
$out_list = nfsend_query("Pluginname::try", $opts);
//Risposte del back-end:
// if $out_list == FALSE – it's an error
if ( !is_array($out_list) ) {
SetMessage('error', "Errore del plugin di back-end");
return FALSE;
}
$string = $out_list['string'];
$othercolours = $out_list['othercolours'];
print “Il back-end ha risposto: $string\n";
back-end:
#Gestione delle richieste del front-end:
our %cmd_lookup = (
'try' => \&RunProc,
);
sub RunProc {
my $socket = shift;
my $opts = shift; # riferimento ad un hash
# Lettura dati del front-end
#due scalari
my $colour1 = $$opts{'colour1'};
my $colour2 = $$opts{'colour2'};
# un puntatore ad array
my $colours = $$opts{'colours'};
#Ritorno dei risultati al front-end:
# esempio controllo d’errore
if ( !exists $$opts{'colours'} ) {
Nfcomm::socket_send_error($socket, "Missing value");
return;
}
my %args;
my @othercolours = ( ‘rosso', ‘blu' );
$args{'string'} = “Ciao dal plugind di back-end."
$args{'othercolours'} = \@othercolours;
Nfcomm::socket_send_ok($socket, \%args);
} # fine della funzione RunProc
105
Nino Ciurleo, Alessandro Inzerilli, Simona Venuti
GARR WS9, Roma, 15.06.2009