#!/usr/local/bin/perl # create_copy.cgi # Display a form for creating a new copy require './samba-lib.pl'; # check acls &error_setup(""); &error("$text{'eacl_np'} $text{'eacl_pcopy'}") unless $access{'copy'}; &ui_print_header(undef, $text{'create_title'}, ""); print $text{'create_msg'}; print "
\n"; print "
\n"; &ui_print_footer("", $text{'index_sharelist'});