in reply to Re^13: Need to know the process to implement perl script into web application server.
in thread Need to know the process to implement perl script into web application server.

Hello Sir, I have written separate function for the other lable but its still targeting to first function. is this possible for you let me know where i am wrong here?

Please check below details for webapp.pm , query.tt .help me if possible.

query.tt

<form id="f1" method="post" action="/">

<style>
    body {
        background-color: #ABBAEA;
   }
   div {
        height: 200px;
    
        background-color: #FBD603;
    }
</style>

<body>

<div> 

                                               <p> Report Automated Ap
+plication </p>


    <label for="APPID">Application ID</label>
    <input id="text" name="APPID">

    <label for="date">Time in Hours</label>
    <input id="date" name="date">
    
        <label for="Email">Recipient Email</label>
    <input id="email" name="Email">
    
      <button>Submit</button>

  </div>

  <div>
    <input type="radio" name="UsersList">
    <label for="UsersList">Users-List</label>
    <label for="Email">Recipient Email</label>
    <input id="email" name="Email">
    <button>Submit</button>
  </div>
  
  </body>
  
</form>

[download]

webapp.pm

package webapp;
use Dancer2;
#use Dancer::Plugin::RequireSSL;
use Op;
use Op1;

our $VERSION = '0.1';

#require_ssl();

get '/' => sub {
    template 'query' => { 'title' => 'webapp' };
};

post '/' => sub {
    my $r = Op::result({APPID => param('APPID'),
                        date => param('date'),
                        Email => param('Email')});
    template result => { title => 'webapp', result => $r }
};

post '/' => sub {
    my $r2 = Op1::result2({UsersList => param('Users-List'),
                         Email => param('Email')});
    template result => { title => 'webapp', result2 => $r2 }
};
true;

[download]

Replies are listed 'Best First'.
Re^15: Need to know the process to implement perl script into web application server.
by choroba (Cardinal) on May 24, 2021 at 19:16 UTC
    You defined two "post" routes for '/'. How should Perl know which one to call? It also seems your "result" template handles totally different sets of keys. It might be easier to define two different templates.

    It's not clear what your form is supposed to do. What if the fields related to the first submit button are filled, but the the second submit button is clicked? BTW, you can use JavaScript to disable the fields under the non-selected radio button. That's not Perl related at all.

    Start from a simple example (haven't I already told you?). Google your questions first before asking here. You can have multiple submit buttons, but you need to name them to distinguish which one was clicked. This either is not a Perl related issue.

    map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
[reply]
[d/l]

      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>

      [download]

      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;
    }
    
    };

      [download]
[reply]
[d/l]
[select]
        webapp.pm 
        package webapp;
use Dancer2;

my %common = (title => 'webapp');

get '/' => sub {
    template index => { %common };
};

post '/' => sub {
    if (body_parameters->get('Users-list') eq 'Users-list' ) {
        template index => { %common, button => 'Users-list' }
    } elsif (body_parameters->get('Apps-list') eq 'Apps') {
        template index => { %common, button => 'Apps-list' }
    }
};

true;

        [download]
        index.tt 
        [% IF button %]
<p>You pressed [% button %].</p>
[% ELSE %]
<form id="f1" method="post" action="/">
  <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>
</form>
[% END %]

        [download]
        map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
[reply]
[d/l]
[select]
        A reply falls below the community's threshold of quality. You may see it by logging in.
    A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom