Hi, I have made the modification in query.tt but i was unable to distinguish them in webapp.pm. Maybe i need correct syntax. Please check below my query.tt and webapp.pm . How can i retrieve submit button name and distinguish them in my webapp.pm?
<form id="f1" method="post" action="/"> <style> body { background-color: #ABBAEA; } div { height: 200px; background-color: #FBD603; } </style> <body> <div> <input type="radio" name="OKTAUsersList"> <label for="OKTAUsersList">OKTA-Users-List</label> <label for="Email">Recipient Email</label> <input id="email" name="Email"> <input type="submit" name="Users-list" value="Users-list" /> </div> <div> <input type="radio" name="OKTAAppsList"> <label for="OKTAAppsList">OKTA-Apps-List</label> <label for="Email">Recipient Email</label> <input id="email" name="Email"> <input type="submit" name="Apps-list" value="Apps" /> </div> </body> </form>
webapp.pm
post '/' => sub { my $_POST = "post"; if (body_parameters->get('name') eq 'Users-list' ) { $id = route_parameters->get('site_id'); my $site_id2 = params->{$id}; @access_token = client2($site_id2)->get_access_token($p); print Dumper \@access_token; } };
In reply to Re^16: Need to know the process to implement perl script into web application server.
by chandantul
in thread Need to know the process to implement perl script into web application server.
by chandantul
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |