#!/usr/local/bin/perl # edit_fshare.cgi # Display a form for editing or creating a new directory share require './samba-lib.pl'; &ReadParse(); $s = $in{'share'}; # check acls &error_setup(""); if(!$s) { &error("$text{'eacl_np'} $text{'eacl_pcfs'}") unless $access{'c_fs'}; } else { &error("$text{'eacl_np'} $text{'eacl_pafs'}") unless &can('r', \%access, $in{'share'}); } # display if ($s) { &ui_print_header(undef, $s eq 'global' ? $text{'share_title1'} : $text{'share_title2'}, ""); &get_share($s); } else { &ui_print_header(undef, $text{'share_title3'}, ""); } print "
\n"; } elsif ($s) { print "\n" if &can('rw', \%access, $s); print " |