Advertisement
Guest User

Untitled

a guest
Jul 12th, 2011
124
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.41 KB | None | 0 0
  1. #!/usr/bin/perl
  2. use Mojolicious::Lite;
  3. use utf8;
  4.  
  5. get '/RPC2' => sub {
  6.     my $self = shift;
  7.  
  8.     $self->stash({
  9.         'message' => 'Hello World!!!',
  10.     });
  11.  
  12. } => 'index';
  13.  
  14. post '/RPC2' => sub {
  15.     my $self = shift;
  16.  
  17.     ...
  18.     $self->render_text($xml);
  19. };
  20.  
  21.  
  22. shagadelic;
  23.  
  24. __DATA__
  25. @@ index.html.ep
  26. <center><pre><%= $message %></pre></center>
  27.  
  28. <form action="/RPC2" method="post">
  29. <input name="spost" />
  30. <button>xx</button>
  31. ção
  32.  
  33. </form>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement