diff options
author | Angelo Naselli <anaselli@linux.it> | 2014-11-05 22:18:40 +0100 |
---|---|---|
committer | Angelo Naselli <anaselli@linux.it> | 2014-11-05 22:18:40 +0100 |
commit | 157501d0b9dfa6e4c7b645fb2092910b414e5d85 (patch) | |
tree | 674c06bfd606c01ba0d97dc51f6993da45103895 /lib/AdminPanel/Module | |
parent | 199d8a094271f5f72dfe441dbfb5f346d532cbbf (diff) | |
download | manatools-157501d0b9dfa6e4c7b645fb2092910b414e5d85.tar manatools-157501d0b9dfa6e4c7b645fb2092910b414e5d85.tar.gz manatools-157501d0b9dfa6e4c7b645fb2092910b414e5d85.tar.bz2 manatools-157501d0b9dfa6e4c7b645fb2092910b414e5d85.tar.xz manatools-157501d0b9dfa6e4c7b645fb2092910b414e5d85.zip |
removed BP
Diffstat (limited to 'lib/AdminPanel/Module')
-rw-r--r-- | lib/AdminPanel/Module/Users.pm | 295 |
1 files changed, 146 insertions, 149 deletions
diff --git a/lib/AdminPanel/Module/Users.pm b/lib/AdminPanel/Module/Users.pm index 14d74cdf..4f5afa6a 100644 --- a/lib/AdminPanel/Module/Users.pm +++ b/lib/AdminPanel/Module/Users.pm @@ -6,7 +6,7 @@ package AdminPanel::Module::Users; =head1 NAME -AdminPanel::Module::Users - This module aims to manage service +AdminPanel::Module::Users - This module aims to manage service with GUI =head1 SYNOPSIS @@ -17,7 +17,7 @@ AdminPanel::Module::Users - This module aims to manage service =head1 DESCRIPTION This module is a tool to manage users on the system. - + From the original code adduserdrake and userdrake. =head1 SUPPORT @@ -27,7 +27,7 @@ AdminPanel::Module::Users - This module aims to manage service perldoc AdminPanel::Module::Users =head1 SEE ALSO - + AdminPanel::Module =head1 AUTHOR @@ -96,7 +96,7 @@ has 'dialog' => ( init_arg => undef, ); -has 'widgets' => ( +has 'widgets' => ( traits => ['Hash'], default => sub { {} }, is => 'rw', @@ -119,11 +119,11 @@ has 'action_menu' => ( get_action_menu => 'get', action_menu_pairs => 'kv', }, - init_arg => undef, + init_arg => undef, ); -has 'edit_tab_widgets' => ( +has 'edit_tab_widgets' => ( traits => ['Hash'], default => sub { {} }, is => 'rw', @@ -190,7 +190,7 @@ sub _localeInitialize { =cut -has 'config_file' => ( +has 'config_file' => ( is => 'rw', isa => 'Str', default => '/etc/sysconfig/adminuser', @@ -293,7 +293,7 @@ sub BUILD { =head3 DESCRIPTION -creates a popup dialog to ask if adding user to an existing +creates a popup dialog to ask if adding user to an existing group or to the 'users' group =cut @@ -308,7 +308,7 @@ sub ChooseGroup { my $appTitle = yui::YUI::app()->applicationTitle(); ## set new title to get it in dialog yui::YUI::app()->setApplicationTitle($self->loc->N("Choose group")); - + my $factory = yui::YUI::widgetFactory; my $dlg = $factory->createPopupDialog(); @@ -336,7 +336,7 @@ sub ChooseGroup { while(1) { my $event = $dlg->waitForEvent(); my $eventType = $event->eventType(); - + #event type checking if ($eventType == $yui::YEvent::CancelEvent) { last; @@ -355,7 +355,7 @@ sub ChooseGroup { } destroy $dlg; - + #restore old application title yui::YUI::app()->setApplicationTitle($appTitle); @@ -385,7 +385,7 @@ sub _deleteGroupDialog { return; } - my $groupname = $item->label(); + my $groupname = $item->label(); ## push application title my $appTitle = yui::YUI::app()->applicationTitle(); ## set new title to get it in dialog @@ -397,7 +397,7 @@ sub _deleteGroupDialog { my $align = $factory->createLeft($layout); - $factory->createLabel($align, $self->loc->N("Do you really want to delete the group %s?", + $factory->createLabel($align, $self->loc->N("Do you really want to delete the group %s?", $groupname)); $align = $factory->createRight($layout); @@ -408,7 +408,7 @@ sub _deleteGroupDialog { while(1) { my $event = $dlg->waitForEvent(); my $eventType = $event->eventType(); - + #event type checking if ($eventType == $yui::YEvent::CancelEvent) { last; @@ -440,7 +440,7 @@ sub _deleteGroupDialog { } destroy $dlg; - + #restore old application title yui::YUI::app()->setApplicationTitle($appTitle); } @@ -467,8 +467,8 @@ sub _deleteUserDialog { my $item = $self->get_widget('table')->selectedItem(); if (! $item) { return; - } - my $username = $item->label(); + } + my $username = $item->label(); my $homedir = $self->sh_users->getUserHome($username); return if !defined($homedir); @@ -495,17 +495,17 @@ sub _deleteUserDialog { my $hbox = $factory->createHBox($align); my $cancelButton = $factory->createPushButton($hbox, $self->loc->N("Cancel")); my $deleteButton = $factory->createPushButton($hbox, $self->loc->N("Delete")); - - if ($homedir !~ m!(?:/home|/var/spool)!) { - $checkhome->setDisabled(); - $checkspool->setDisabled(); + + if ($homedir !~ m!(?:/home|/var/spool)!) { + $checkhome->setDisabled(); + $checkspool->setDisabled(); } - + while(1) { my $event = $dlg->waitForEvent(); my $eventType = $event->eventType(); - + #event type checking if ($eventType == $yui::YEvent::CancelEvent) { last; @@ -534,7 +534,7 @@ sub _deleteUserDialog { } destroy $dlg; - + #restore old application title yui::YUI::app()->setApplicationTitle($appTitle); @@ -582,7 +582,7 @@ sub _addGroupDialog { while(1) { my $event = $dlg->waitForEvent(); my $eventType = $event->eventType(); - + #event type checking if ($eventType == $yui::YEvent::CancelEvent) { last; @@ -648,7 +648,7 @@ sub _addGroupDialog { } } destroy $dlg; - + #restore old application title yui::YUI::app()->setApplicationTitle($appTitle); } @@ -662,7 +662,7 @@ sub _addGroupDialog { $self: this object $layout : layout in wich drawing graphic user data - + =head3 OUTPUT $userData: hash reference containing reference to graphical object @@ -727,7 +727,7 @@ sub _buildUserData { $password->setWeight($yui::YD_HORIZ, 4); # notify input to check weakness $password->setNotify(1); - + ## user 'confirm Password' $align = $factory->createRight($layout); $hbox = $factory->createHBox($align); @@ -736,7 +736,7 @@ sub _buildUserData { my $password1 = $factory->createInputField($hbox, "", 1); $label->setWeight($yui::YD_HORIZ, 1); $password1->setWeight($yui::YD_HORIZ, 2); - + ## user 'Login Shell' $align = $factory->createRight($layout); $hbox = $factory->createHBox($align); @@ -753,7 +753,7 @@ sub _buildUserData { $loginShell->addItems($itemColl); $label->setWeight($yui::YD_HORIZ, 1); $loginShell->setWeight($yui::YD_HORIZ, 2); - + my %userData = ( full_name => $fullName, login_name => $loginName, @@ -762,7 +762,7 @@ sub _buildUserData { weakness => $weakness, login_shell => $loginShell, ); - + return ( \%userData ); } @@ -790,13 +790,13 @@ sub addUserDialog { if ($EUID != 0) { $self->sh_gui->warningMsgBox({ - title => $self->name, + title => $self->name, text => $self->loc->N("root privileges required"), }); return; } - my $dontcreatehomedir = 0; + my $dontcreatehomedir = 0; my $is_system = 0; ## push application title @@ -808,15 +808,15 @@ sub addUserDialog { else { yui::YUI::app()->setApplicationTitle($self->loc->N("Create New User")); } - + my $factory = yui::YUI::widgetFactory; my $optional = yui::YUI::optionalWidgetFactory; my $dlg = $factory->createPopupDialog(); my $layout = $factory->createVBox($dlg); - + my $userData = $self->_buildUserData($layout); - + ##### add a separator ## Create Home directory my $align = $factory->createLeft($layout); @@ -835,7 +835,7 @@ sub addUserDialog { $align = $factory->createLeft($layout); $hbox = $factory->createHBox($align); my $createGroup = $factory->createCheckBox($hbox, $self->loc->N("Create a private group for the user"), 1); - + # Specify user id manually $align = $factory->createRight($layout); $hbox = $factory->createHBox($align); @@ -852,7 +852,7 @@ sub addUserDialog { $factory->createLabel($hbox, $self->loc->N("Click on icon to change it") ); my $iconFace = $self->sh_users->GetFaceIcon(); my $icon = $factory->createPushButton($hbox, ""); - $icon->setIcon($self->sh_users->face2png($iconFace)); + $icon->setIcon($self->sh_users->face2png($iconFace)); $icon->setLabel($iconFace); $hbox = $factory->createHBox($layout); @@ -862,7 +862,7 @@ sub addUserDialog { while(1) { my $event = $dlg->waitForEvent(); my $eventType = $event->eventType(); - + #event type checking if ($eventType == $yui::YEvent::CancelEvent) { last; @@ -954,7 +954,7 @@ sub addUserDialog { $errorString = ""; $continue = 0; } - } else { + } else { #it's a new group: Add it $gid = $self->sh_users->addGroup({ groupname => $username, @@ -995,7 +995,7 @@ sub addUserDialog { defined $icon->label() and $self->sh_users->addKdmIcon($username, $icon->label()); ### TODO Migration wizard -# +# # Refresh($sysfilter, $stringsearch); # transfugdrake::get_windows_disk() # and $in->ask_yesorno($self->loc->N("Migration wizard"), @@ -1010,9 +1010,9 @@ sub addUserDialog { } destroy $dlg; - + #restore old application title - yui::YUI::app()->setApplicationTitle($appTitle) if $appTitle; + yui::YUI::app()->setApplicationTitle($appTitle) if $appTitle; } #============================================================= @@ -1025,8 +1025,8 @@ sub addUserDialog { =head3 DESCRIPTION -This function create the User table to be added to the replace -point of the tab widget. Note this function is meant for internal +This function create the User table to be added to the replace +point of the tab widget. Note this function is meant for internal use only =cut @@ -1048,7 +1048,7 @@ sub _createUserTable { $yTableHeader->addColumn($self->loc->N("Home Directory"), $yui::YAlignBegin); $yTableHeader->addColumn($self->loc->N("Status"), $yui::YAlignBegin); $yTableHeader->DISOWN(); - + $self->set_widget(table => $factory->createTable($parent, $yTableHeader)); $self->get_widget('table')->setImmediateMode(1); @@ -1069,8 +1069,8 @@ sub _createUserTable { =head3 DESCRIPTION -This function create the Group table to be added to the replace -point of the tab widget. Note this function is meant for internal +This function create the Group table to be added to the replace +point of the tab widget. Note this function is meant for internal use only @@ -1092,12 +1092,12 @@ sub _createGroupTable { $yTableHeader->DISOWN(); $self->set_widget(table => $factory->createTable($parent, $yTableHeader)); - + $self->get_widget('table')->setImmediateMode(1); $self->get_widget('table')->DISOWN(); $self->get_widget('replace_pnt')->showChild(); $self->dialog->recalcLayout(); - $self->dialog->doneMultipleChanges(); + $self->dialog->doneMultipleChanges(); $self->_refreshGroups(); } @@ -1162,7 +1162,7 @@ sub _refreshUsers { my $item = $self->get_widget('table')->selectedItem(); $self->get_widget('table')->selectItem($item, 0) if $item; $self->dialog->recalcLayout(); - $self->dialog->doneMultipleChanges(); + $self->dialog->doneMultipleChanges(); $self->_refreshActions(); $self->get_widget('table')->setImmediateMode(1); } @@ -1193,7 +1193,7 @@ sub _refreshGroups { #for some reasons QT send an event using table->selectItem() # WA remove notification immediate $self->get_widget('table')->setImmediateMode(0); - $self->get_widget('table')->deleteAllItems(); + $self->get_widget('table')->deleteAllItems(); my $groupInfo = $self->sh_users->getGroupsInfo({ groupname_filter => $strfilt, @@ -1216,7 +1216,7 @@ sub _refreshGroups { my $item = $self->get_widget('table')->selectedItem(); $self->get_widget('table')->selectItem($item, 0) if $item; $self->dialog->recalcLayout(); - $self->dialog->doneMultipleChanges(); + $self->dialog->doneMultipleChanges(); $self->_refreshActions(); $self->get_widget('table')->setImmediateMode(1); } @@ -1235,7 +1235,7 @@ sub _refreshGroups { $userData: HASH reference containing: username: username full_name: full name of user - shell: shell used + shell: shell used homedir: home dir path UID: User identifier acc_check_exp: account expiration enabling @@ -1244,12 +1244,12 @@ sub _refreshGroups { acc_expd: account expiration day lockuser: account locked pwd_check_exp: password expiration enabling - pwd_exp_min: days before changing password + pwd_exp_min: days before changing password is allowed - pwd_exp_max: days before changing password + pwd_exp_max: days before changing password is required pwd_exp_warn: warning days before changing - pwd_exp_inact: days before account becomes + pwd_exp_inact: days before account becomes inact members: Array containing groups the user belongs to. @@ -1258,7 +1258,7 @@ sub _refreshGroups { =head3 DESCRIPTION Retrieves the selected user info from the system - Note that acc_expy, acc_expm and acc_expd are valid if + Note that acc_expy, acc_expm and acc_expd are valid if acc_check_exp is enabled. Note that pwd_exp_min, pwd_exp_max, pwd_exp_warn, pwd_exp_inact are valid if pwd_check_exp is enabled. @@ -1279,7 +1279,7 @@ sub _getUserInfo { if (! $item) { return undef; } - + my %userData; $userData{old_username} = $item->label(); $userData{username} = $item->label(); @@ -1367,13 +1367,13 @@ sub _getGroupInfo { if (! $item) { return undef; } - + my %groupData; $groupData{start_groupname} = $item->label(); $groupData{groupname} = $item->label(); $groupData{members} = $self->sh_users->groupMembers($groupData{groupname}); - + return %groupData; } @@ -1391,7 +1391,7 @@ sub _storeDataFromGroupEditPreviousTab { elsif ($previus_tab eq $groupEditLabel{group_users}) { my $tbl = $self->get_edit_tab_widget('members'); $groupData{members} = undef; - my @members; + my @members; my $i; for($i=0;$i<$tbl->itemsCount();$i++) { push (@members, $tbl->item($i)->label()) if $tbl->toCBYTableItem($tbl->item($i))->checked(); @@ -1399,7 +1399,7 @@ sub _storeDataFromGroupEditPreviousTab { $groupData{members} = [ @members ]; } - return %groupData; + return %groupData; } @@ -1477,7 +1477,7 @@ sub _storeDataFromUserEditPreviousTab { $userDataWidget: hash containing new YUI widget objects such as: returned onject from _buildUserData and - homedir. + homedir. =head3 DESCRIPTION @@ -1490,7 +1490,7 @@ sub _storeDataFromUserEditPreviousTab { #============================================================= sub _userDataTabWidget { my ($self, $dialog, $replace_pnt, $userData) = @_; - + my $factory = yui::YUI::widgetFactory; $dialog->startMultipleChanges(); @@ -1523,7 +1523,7 @@ sub _userDataTabWidget { $replace_pnt->showChild(); $dialog->recalcLayout(); $dialog->doneMultipleChanges(); - + return $userDataWidget; } @@ -1538,18 +1538,18 @@ sub _userDataTabWidget { $dialog: YUI dialog that owns the YUI replace point $replace_pnt: YUI replace point, needed to add a new tab widget - %groupData: hash containing group data info, tabs are + %groupData: hash containing group data info, tabs are removed and added again on selection, so data must be saved outside of widgets. $previus_tab: previous tab widget label, needed to store group data from the old tab before removing - it, if user changed something. + it, if user changed something. =head3 OUTPUT %groupDataWidget: hash containing new YUI widget objects such as: - groupname. + groupname. =head3 DESCRIPTION @@ -1562,7 +1562,7 @@ sub _userDataTabWidget { #============================================================= sub _groupDataTabWidget { my ($self, $dialog, $replace_pnt, %groupData) = @_; - + my $factory = yui::YUI::widgetFactory; $dialog->startMultipleChanges(); @@ -1585,7 +1585,7 @@ sub _groupDataTabWidget { $replace_pnt->showChild(); $dialog->recalcLayout(); $dialog->doneMultipleChanges(); - + return %groupDataWidget; } @@ -1594,7 +1594,7 @@ sub _userAccountInfoTabWidget { my ($self, $dialog, $replace_pnt, $userData) = @_; my $factory = yui::YUI::widgetFactory; - + $dialog->startMultipleChanges(); $replace_pnt->deleteChildren(); @@ -1603,7 +1603,7 @@ sub _userAccountInfoTabWidget { my %userAccountWidget; $userAccountWidget{acc_check_exp} = $factory->createCheckBoxFrame($layout, $self->loc->N("Enable account expiration"), 1); my $align = $factory->createRight($userAccountWidget{acc_check_exp}); - my $hbox = $factory->createHBox($align); + my $hbox = $factory->createHBox($align); my $label = $factory->createLabel($hbox, $self->loc->N("Account expires (YYYY-MM-DD):")); $userAccountWidget{acc_expy} = $factory->createIntField($hbox, "", 1970, 9999, $userData->{acc_expy}); $userAccountWidget{acc_expm} = $factory->createIntField($hbox, "", 1, 12, $userData->{acc_expm}); @@ -1612,18 +1612,18 @@ sub _userAccountInfoTabWidget { $label->setWeight($yui::YD_HORIZ, 2); $align = $factory->createLeft($layout); $userAccountWidget{lockuser} = $factory->createCheckBox($align, $self->loc->N("Lock User Account"), $userData->{lockuser}); - + $align = $factory->createLeft($layout); - $hbox = $factory->createHBox($align); + $hbox = $factory->createHBox($align); $label = $factory->createLabel($hbox, $self->loc->N("Click on the icon to change it")); $userAccountWidget{icon_face} = $factory->createPushButton($hbox, ""); $userAccountWidget{icon_face}->setIcon($self->sh_users->face2png($userData->{icon_face})); $userAccountWidget{icon_face}->setLabel($userData->{icon_face}); - + $replace_pnt->showChild(); $dialog->recalcLayout(); $dialog->doneMultipleChanges(); - + return \%userAccountWidget; } @@ -1632,7 +1632,7 @@ sub _userPasswordInfoTabWidget { my ($self, $dialog, $replace_pnt, $userData) = @_; my $factory = yui::YUI::widgetFactory; - + $dialog->startMultipleChanges(); $replace_pnt->deleteChildren(); @@ -1644,20 +1644,20 @@ sub _userPasswordInfoTabWidget { my $lastchg = $userInfo->{last_change}; my $align = $factory->createLeft($layout); - my $hbox = $factory->createHBox($align); + my $hbox = $factory->createHBox($align); my $label = $factory->createLabel($hbox, $self->loc->N("User last changed password on: ")); my $dayStr = $factory->createLabel($hbox, ""); my $month = $factory->createLabel($hbox, ""); my $dayInt = $factory->createLabel($hbox, ""); my $year = $factory->createLabel($hbox, ""); if ($lastchg) { - my $times = _TimeOfArray($lastchg, 0); + my $times = _TimeOfArray($lastchg, 0); $dayStr->setValue($times->{daystr}); $month->setValue($times->{month}); $dayInt->setValue($times->{dayint}); $year->setValue($times->{year}); } - + $userPasswordWidget{pwd_check_exp} = $factory->createCheckBoxFrame($layout, $self->loc->N("Enable Password Expiration"), 1); $layout = $factory->createVBox($userPasswordWidget{pwd_check_exp}); $align = $factory->createLeft($layout); @@ -1667,7 +1667,7 @@ sub _userPasswordInfoTabWidget { $userPasswordWidget{pwd_exp_min}->setValue("$userData->{pwd_exp_min}"); $label->setWeight($yui::YD_HORIZ, 1); $userPasswordWidget{pwd_exp_min}->setWeight($yui::YD_HORIZ, 2); - + $align = $factory->createLeft($layout); $hbox = $factory->createHBox($align); $label = $factory->createLabel($hbox, $self->loc->N("Days before change required:")); @@ -1697,7 +1697,7 @@ sub _userPasswordInfoTabWidget { $replace_pnt->showChild(); $dialog->recalcLayout(); $dialog->doneMultipleChanges(); - + return \%userPasswordWidget; } @@ -1708,7 +1708,7 @@ sub _groupUsersTabWidget { my $mageiaPlugin = "mga"; my $mgaFactory = yui::YExternalWidgets::externalWidgetFactory($mageiaPlugin); $mgaFactory = yui::YMGAWidgetFactory::getYMGAWidgetFactory($mgaFactory); - + $dialog->startMultipleChanges(); $replace_pnt->deleteChildren(); @@ -1733,14 +1733,14 @@ sub _groupUsersTabWidget { $item->check(MDK::Common::DataStructure::member($user, @$members)); $item->setLabel($user); $itemCollection->push($item); - $item->DISOWN(); - } + $item->DISOWN(); + } $groupUsersWidget{members}->addItems($itemCollection); $replace_pnt->showChild(); $dialog->recalcLayout(); $dialog->doneMultipleChanges(); - + return %groupUsersWidget; } @@ -1751,7 +1751,7 @@ sub _userGroupsTabWidget { my $mageiaPlugin = "mga"; my $mgaFactory = yui::YExternalWidgets::externalWidgetFactory($mageiaPlugin); $mgaFactory = yui::YMGAWidgetFactory::getYMGAWidgetFactory($mgaFactory); - + $dialog->startMultipleChanges(); $replace_pnt->deleteChildren(); @@ -1770,7 +1770,7 @@ sub _userGroupsTabWidget { my $grps = $self->sh_users->getGoups(); my @sgroups = sort @$grps; - + my $itemCollection = new yui::YItemCollection; my $members = $userData->{members}; foreach my $group (@sgroups) { @@ -1778,18 +1778,17 @@ sub _userGroupsTabWidget { $item->check(MDK::Common::DataStructure::member($group, @$members)); $item->setLabel($group); $itemCollection->push($item); - $item->DISOWN(); - } + $item->DISOWN(); + } $userGroupsWidget{members}->addItems($itemCollection); $userGroupsWidget{members}->setNotify(1); my $primgroup = ''; if ($userData->{primary_group} != -1) { - $DB::single = 1; $primgroup = $self->sh_users->groupName($userData->{primary_group}); } my $align = $factory->createLeft($layout); - my $hbox = $factory->createHBox($align); + my $hbox = $factory->createHBox($align); my $label = $factory->createLabel($hbox, $self->loc->N("Primary Group")); $userGroupsWidget{primary_group} = $factory->createComboBox($hbox, "", 0); my $itemColl = new yui::YItemCollection; @@ -1806,29 +1805,28 @@ sub _userGroupsTabWidget { $replace_pnt->showChild(); $dialog->recalcLayout(); $dialog->doneMultipleChanges(); - + return \%userGroupsWidget; } sub _groupEdit_Ok { my ($self, %groupData) = @_; - # update last changes if any + # update last changes if any %groupData = $self->_storeDataFromGroupEditPreviousTab(%groupData); - + my ($continue, $errorString) = $self->sh_users->valid_groupname($groupData{groupname}); if (!$continue) { $self->sh_gui->msgBox({text => $errorString}) if ($errorString); return $continue; } - $DB::single = 1; my $groupInfo = { groupname => $groupData{groupname}, members => $groupData{members}, }; - if ($groupData{start_groupname} ne $groupData{groupname}) { + if ($groupData{start_groupname} ne $groupData{groupname}) { $groupInfo->{old_groupname} = $groupData{start_groupname}; } @@ -1846,10 +1844,9 @@ sub _groupEdit_Ok { sub _userEdit_Ok { my ($self, $userData) = @_; - $DB::single = 1; - # update last changes if any + # update last changes if any $self->_storeDataFromUserEditPreviousTab($userData); - + my ($continue, $errorString) = $self->sh_users->valid_username($userData->{username}); if (!$continue) { $self->sh_gui->msgBox({text => $errorString}) if ($errorString); @@ -1921,7 +1918,7 @@ sub _userEdit_Ok { $self->sh_users->modifyUser($userInfo); - + defined $userData->{icon_face} and $self->sh_users->addKdmIcon($userData->{username}, $userData->{icon_face}); $self->_refresh(); @@ -1950,20 +1947,20 @@ sub _checkWeaknessPassword { sub _editUserDialog { my $self = shift; - my $dontcreatehomedir = 0; + my $dontcreatehomedir = 0; my $is_system = 0; ## push application title my $appTitle = yui::YUI::app()->applicationTitle(); ## set new title to get it in dialog yui::YUI::app()->setApplicationTitle($self->loc->N("Edit User")); - + my $factory = yui::YUI::widgetFactory; my $optional = yui::YUI::optionalWidgetFactory; my $dlg = $factory->createPopupDialog(); my $layout = $factory->createVBox($dlg); - + my %tabs; if ($optional->hasDumbTab()) { my $hbox = $factory->createHBox($layout); @@ -1991,23 +1988,23 @@ sub _editUserDialog { my $vbox = $factory->createVBox($tabs{widget}); $align = $factory->createLeft($vbox); $tabs{replace_pnt} = $factory->createReplacePoint($align); - + $hbox = $factory->createHBox($vbox); $align = $factory->createRight($hbox); my $cancelButton = $factory->createPushButton($align, $self->loc->N("Cancel")); my $okButton = $factory->createPushButton($hbox, $self->loc->N("Ok")); - + my $userData = $self->_getUserInfo(); # userData here should be tested because it could be undef - - # Useful entry point for the current edit user/group tab widget + + # Useful entry point for the current edit user/group tab widget $self->set_edit_tab_widget( %{$self->_userDataTabWidget($dlg, $tabs{replace_pnt}, $userData)} ); $self->set_edit_tab_widget( edit_tab_label => $userEditLabel{user_data}); while(1) { my $event = $dlg->waitForEvent(); my $eventType = $event->eventType(); - + #event type checking if ($eventType == $yui::YEvent::CancelEvent) { last; @@ -2045,7 +2042,7 @@ sub _editUserDialog { } } elsif ($eventType == $yui::YEvent::WidgetEvent) { - ### widget + ### widget my $widget = $event->widget(); if ($widget == $cancelButton) { last; @@ -2070,7 +2067,7 @@ sub _editUserDialog { $self->get_edit_tab_widget('icon_face')->setLabel($nextIcon); $self->get_edit_tab_widget('icon_face')->setIcon($self->sh_users->face2png($nextIcon)); } - } + } elsif ($current_tab && $current_tab eq $userEditLabel{groups}) { if ($widget == $self->get_edit_tab_widget('members')) { my $item = $self->get_edit_tab_widget('members')->changedItem(); @@ -2093,7 +2090,7 @@ sub _editUserDialog { $itemColl->push($pgItem); $pgItem->DISOWN(); - } + } } $self->get_edit_tab_widget('primary_group')->deleteAllItems(); $self->get_edit_tab_widget('primary_group')->addItems($itemColl); @@ -2101,7 +2098,7 @@ sub _editUserDialog { $dlg->doneMultipleChanges(); } } - } + } } } } @@ -2113,7 +2110,7 @@ sub _editUserDialog { } destroy $dlg; - + #restore old application title yui::YUI::app()->setApplicationTitle($appTitle); @@ -2121,18 +2118,18 @@ sub _editUserDialog { sub _editGroupDialog { my $self = shift; - + ## push application title my $appTitle = yui::YUI::app()->applicationTitle(); ## set new title to get it in dialog yui::YUI::app()->setApplicationTitle($self->loc->N("Edit Group")); - + my $factory = yui::YUI::widgetFactory; my $optional = yui::YUI::optionalWidgetFactory; my $dlg = $factory->createPopupDialog(); my $layout = $factory->createVBox($dlg); - + my %tabs; if ($optional->hasDumbTab()) { my $hbox = $factory->createHBox($layout); @@ -2151,12 +2148,12 @@ sub _editGroupDialog { my $vbox = $factory->createVBox($tabs{widget}); $align = $factory->createLeft($vbox); $tabs{replace_pnt} = $factory->createReplacePoint($align); - + $hbox = $factory->createHBox($vbox); $align = $factory->createRight($hbox); my $cancelButton = $factory->createPushButton($align, $self->loc->N("Cancel")); my $okButton = $factory->createPushButton($hbox, $self->loc->N("Ok")); - + my %groupData = $self->_getGroupInfo(); # groupData here should be tested because it could be undef @@ -2165,14 +2162,14 @@ sub _editGroupDialog { # $members: users that are members of this group - # Useful entry point for the current edit user/group tab widget + # Useful entry point for the current edit user/group tab widget $self->set_edit_tab_widget( $self->_groupDataTabWidget($dlg, $tabs{replace_pnt}, %groupData) ); $self->set_edit_tab_widget( edit_tab_label => $groupEditLabel{group_data}); while(1) { my $event = $dlg->waitForEvent(); my $eventType = $event->eventType(); - + #event type checking if ($eventType == $yui::YEvent::CancelEvent) { last; @@ -2196,7 +2193,7 @@ sub _editGroupDialog { } } elsif ($eventType == $yui::YEvent::WidgetEvent) { - ### widget + ### widget my $widget = $event->widget(); if ($widget == $cancelButton) { last; @@ -2216,7 +2213,7 @@ sub _editGroupDialog { } destroy $dlg; - + #restore old application title yui::YUI::app()->setApplicationTitle($appTitle); @@ -2228,7 +2225,7 @@ sub _editUserOrGroup { # TODO item management avoid label if possible my $label = $self->_skipShortcut($self->get_widget('tabs')->selectedItem()->label()); if ($label eq $self->loc->N("Users") ) { - $self->_editUserDialog(); + $self->_editUserDialog(); } else { $self->_editGroupDialog(); @@ -2259,7 +2256,7 @@ sub _refresh { # TODO item management avoid label if possible my $label = $self->_skipShortcut($self->get_widget('tabs')->selectedItem()->label()); if ($label eq $self->loc->N("Users") ) { - $self->_refreshUsers(); + $self->_refreshUsers(); } else { $self->_refreshGroups(); @@ -2268,7 +2265,7 @@ sub _refresh { # RefreshXguest(1); } -# TODO context menu creation is missed in libyui +# TODO context menu creation is missed in libyui sub _contextMenuActions { my $self = shift; @@ -2279,21 +2276,21 @@ sub _contextMenuActions { sub _refreshActions { my $self = shift; - + my $item = $self->get_widget('table')->selectedItem(); $self->dialog->startMultipleChanges(); $self->get_widget('action_menu')->deleteAllItems(); - + # do we need to undef them first? $self->set_action_menu( - add_user => undef, + add_user => undef, add_group => undef, edit => undef, del => undef, inst => undef, ); $self->set_action_menu( - add_user => new yui::YMenuItem($self->loc->N("Add User")), + add_user => new yui::YMenuItem($self->loc->N("Add User")), add_group => new yui::YMenuItem($self->loc->N("Add Group")), edit => new yui::YMenuItem($self->loc->N("&Edit")), del => new yui::YMenuItem($self->loc->N("&Delete")), @@ -2309,7 +2306,7 @@ sub _refreshActions { } } else { - $itemColl->push($menuItem); + $itemColl->push($menuItem); } $menuItem->DISOWN(); } @@ -2333,7 +2330,7 @@ sub _manageUsersDialog { if ($EUID != 0) { $self->sh_gui->warningMsgBox({ - title => $self->name, + title => $self->name, text => $self->loc->N("root privileges required"), }); return; @@ -2352,7 +2349,7 @@ sub _manageUsersDialog { my $factory = yui::YUI::widgetFactory; my $optional = yui::YUI::optionalWidgetFactory; - + $self->dialog($factory->createMainDialog()); my $layout = $factory->createVBox($self->dialog); @@ -2365,20 +2362,20 @@ sub _manageUsersDialog { my %fileMenu = ( widget => $factory->createMenuButton($headbar,$self->loc->N("File")), - refresh => new yui::YMenuItem($self->loc->N("Refresh")), + refresh => new yui::YMenuItem($self->loc->N("Refresh")), quit => new yui::YMenuItem($self->loc->N("&Quit")), ); $fileMenu{ widget }->addItem($fileMenu{ refresh }); $fileMenu{ widget }->addItem($fileMenu{ quit }); $fileMenu{ widget }->rebuildMenuTree(); - + my $actionMenu = $factory->createMenuButton($headbar, $self->loc->N("Actions")); $actionMenu->DISOWN(); - + my %helpMenu = ( widget => $factory->createMenuButton($headRight, $self->loc->N("&Help")), - help => new yui::YMenuItem($self->loc->N("Help")), + help => new yui::YMenuItem($self->loc->N("Help")), report_bug => new yui::YMenuItem($self->loc->N("Report Bug")), about => new yui::YMenuItem($self->loc->N("&About")), ); @@ -2400,17 +2397,17 @@ sub _manageUsersDialog { refresh => $factory->createIconButton($hbox, $pixdir . 'refresh.png', $self->loc->N("Refresh")), action_menu => $actionMenu, ); - + $hbox = $factory->createHBox($layout); $head_align_left = $factory->createLeft($hbox); - + my $sysfilter = 1; if (-e $self->config_file) { my $prefs = Config::Auto::parse($self->config_file); $sysfilter = ($prefs->{FILTER} eq 'true' or $prefs->{FILTER} eq 'true' or $prefs->{FILTER} eq '1'); } - $self->set_widget(filter_system => $factory->createCheckBox($head_align_left, $self->loc->N("Filter system users"), + $self->set_widget(filter_system => $factory->createCheckBox($head_align_left, $self->loc->N("Filter system users"), $sysfilter)); $factory->createHSpacing($hbox, 3); $head_align_right = $factory->createRight($hbox); @@ -2441,14 +2438,14 @@ sub _manageUsersDialog { $self->get_widget('table')->setImmediateMode(1); $self->get_widget('table')->DISOWN(); } - + $self->_refreshActions(); - + # main loop while(1) { my $event = $self->dialog->waitForEvent(); my $eventType = $event->eventType(); - + #event type checking if ($eventType == $yui::YEvent::CancelEvent) { last; @@ -2528,10 +2525,10 @@ sub _manageUsersDialog { $self->_refresh(); } elsif ($widget == $self->get_widget('edit')) { - $self->_editUserOrGroup(); + $self->_editUserOrGroup(); } - elsif ( $widget == $self->get_widget('filter_system') || - $widget == $self->get_widget('refresh') || + elsif ( $widget == $self->get_widget('filter_system') || + $widget == $self->get_widget('refresh') || $widget == $self->get_widget('apply_filter') ) { $self->_refresh(); } @@ -2555,7 +2552,7 @@ sub _manageUsersDialog { =head3 OUTPUT - $label: cleaned label + $label: cleaned label =head3 DESCRIPTION @@ -2588,7 +2585,7 @@ sub _TimeOfArray { $h->{month} = $2; $h->{dayint} = $3; $h->{year} = $5; - $cm and $h->{month} = $mth{$2}; + $cm and $h->{month} = $mth{$2}; $h; } |