#!/usr/bin/perl use strict; use warnings; use JSON; use CGI; my $cgi = CGI->new; print $cgi->header('application/json;charset=UTF-8'); my %errors; my %data; if ( my $lparnmame = $cgi->param('lparname')) { if ( $lparname eq "") { $errors{'lparname'}='Lparname is required'; } } if ( my $from = $cgi->param('from')) { if ( $from eq "") { $errors{'from'}='From is required'; } } if ( my $to = $cgi->param('to')) { if ( $to eq "") { $errors{'to'}='To is required'; } } if ( my $email = $cgi->param('email')) { if ( $email eq "") { $errors{'email'}='Email is required'; } } if (%errors) { $data{'success'}=0; $data{'errors'}=\%errors; } else { $data{'success'}=1; $data{'message'}='Success'; } my $json=JSON->new; print $json->encode(\%data);
In reply to CGI/JSON and explicit package names. by flynn7312
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |