PERL   23

access

Guest on 7th July 2022 08:20:01 AM

  1. #!/usr/bin/perl
  2.  
  3. do 'settings.pl';
  4.  
  5. use CGI qw/:standard/;
  6.  
  7. if (param) {
  8.   print redirect("$CODE/menu.pl?password=" . sanitize(param('password')));
  9. }
  10.  
  11. print header;
  12. start_html('Access an item on the Semantics Archive');
  13. print h1('Access an item on the Semantics Archive');
  14. print_form();
  15. print end_html;
  16.  
  17. sub print_form {
  18.     print start_multipart_form(),
  19.        "Enter password for item:<br>",
  20.        textfield(-name=>'password',-size=>8),"<br>",
  21.        submit(-label=>'Access'),
  22.        end_form;
  23. }

Raw Paste


Login or Register to edit or fork this paste. It's free.