samba/create_copy.cgi

   1 #!/usr/local/bin/perl
   2 # create_copy.cgi
   3 # Display a form for creating a new copy
   4
   5 require './samba-lib.pl';
   6
   7 # check acls
   8
   9 &error_setup("<blink><font color=red>$text{'eacl_aviol'}</font></blink>");
  10 &error("$text{'eacl_np'} $text{'eacl_pcopy'}") unless $access{'copy'};
  11
  12 &ui_print_header(undef, $text{'create_title'}, "");
  13
  14 print $text{'create_msg'};
  15 print "<p>\n";
  16 print "<form action=save_copy.cgi>\n";
  17 print "<table>\n";
  18 print "<tr> <td><b>$text{'create_from'}</b></td>\n";
  19 print "<td><select name=copy>\n";
  20 foreach $c (&list_shares()) {
  21         if ($c eq "global") { next; }
  22         print "<option>$c\n";
  23         }
  24 print "</select></td> </tr>\n";
  25 print "<tr> <td><b>$text{'create_name'}</b></td>\n";
  26 print "<td><input size=15 name=name></td> </tr>\n";
  27 print "</table>\n";
  28 print "<input type=submit value=$text{'create'}></form><p>\n";
  29
  30 &ui_print_footer("", $text{'index_sharelist'});
  31