foobar/edit.cgi

   1 #!/usr/bin/perl
   2 # Show a form to create or edit a website
   3
   4 require 'foobar-lib.pl';
   5 ReadParse();
   6
   7 # Show page header and get the site being edited
   8 my $site;
   9 if ($in{'new'}) {
  10         ui_print_header(undef, $text{'create_title'}, "");
  11         $site = { };
  12         }
  13 else {
  14         ui_print_header(undef, $text{'edit_title'}, "");
  15         my @sites = list_foobar_websites();
  16         ($site) = grep { $_->{'domain'} eq $in{'domain'} } @sites;
  17         }
  18
  19 # Generate form and inputs table start
  20 print ui_form_start('save.cgi');
  21 print ui_hidden('new', $in{'new'});
  22 print ui_hidden('old', $in{'domain'});
  23 print ui_table_start($text{'edit_header'}, undef, 2);
  24
  25 # Input for domain name
  26 print ui_table_row($text{'edit_domain'},
  27         ui_textbox('domain', $site->{'domain'}, 40));
  28
  29 # Input for HTML directory
  30 print ui_table_row($text{'edit_directory'},
  31         ui_filebox('directory', $site->{'directory'}, 40));
  32
  33 # Show buttons at the end of the form
  34 print ui_table_end();
  35 if ($in{'new'}) {
  36         print ui_form_end([ [ undef, $text{'create'} ] ]);
  37         }
  38 else {
  39         print ui_form_end([ [ undef, $text{'save'} ],
  40                             [ 'delete', $text{'delete'} ] ]);
  41         }
  42
  43
  44 ui_print_footer('', $text{'index_return'});
  45