#!/usr/local/bin/perl # edit_group.cgi # Show a form for editing an existing groups require './samba-lib.pl'; $access{'maint_groups'} || &error($text{'groups_ecannot'}); &ReadParse(); if ($in{'new'}) { &ui_print_header(undef, $text{'gedit_title1'}, ""); } else { &ui_print_header(undef, $text{'gedit_title2'}, ""); @groups = &list_groups(); $group = $groups[$in{'idx'}]; } print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
$text{'gedit_header'}
\n"; print "\n"; if ($in{'new'}) { print "\n"; } else { print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($in{'new'}) { print "\n"; } else { print "\n"; print "\n"; print "\n"; print "\n"; } print "
$text{'gedit_name'}$group->{'name'}$text{'gedit_type'}
$text{'gedit_unix'} \n"; if ($group->{'unix'} == -1) { printf " %s\n", $group->{'unix'} == -1 ? "checked" : "", $text{'gedit_none'}; printf " %s\n", $group->{'unix'} == -1 ? "" :"checked", $text{'gedit_unixgr'}; } print &unix_group_input("unix", $group->{'unix'} == -1 ? undef : $group->{'unix'}); print "$text{'gedit_desc'}
$text{'gedit_priv'} \n"; print " $text{'gedit_none'}\n"; print " $text{'gedit_set'}\n"; print "
$text{'gedit_sid'}$group->{'sid'}
$text{'gedit_priv'}",$group->{'priv'} || $text{'gedit_none'},"
\n"; print "\n"; if ($in{'new'}) { print "\n"; } else { print "\n"; print "\n"; } print "
\n"; &ui_print_footer("list_groups.cgi", $text{'groups_return'});