From bc4d221c5e79a741adc91b58d3bf706d92ccb6dc Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Sun, 8 Dec 2013 22:43:12 +0100 Subject: Fixed title and added a prototype for usermanager script --- modules/usermanager/mgaAddUser | 4 ++-- modules/usermanager/usermanager | 21 +++++++++++++++++++++ 2 files changed, 23 insertions(+), 2 deletions(-) create mode 100755 modules/usermanager/usermanager (limited to 'modules') diff --git a/modules/usermanager/mgaAddUser b/modules/usermanager/mgaAddUser index 34cd031..a025596 100755 --- a/modules/usermanager/mgaAddUser +++ b/modules/usermanager/mgaAddUser @@ -13,9 +13,9 @@ use yui; my $wm_icon = "/usr/share/icons/userdrake.png"; -yui::YUI::app()->setApplicationTitle(N("Mageia Users Management Tool")); +yui::YUI::app()->setApplicationTitle(N("Mageia Add Users Tool")); yui::YUI::app()->setApplicationIcon($wm_icon); AdminPanel::Users::GUsers::addUserDialog(); -1; \ No newline at end of file +1; diff --git a/modules/usermanager/usermanager b/modules/usermanager/usermanager new file mode 100755 index 0000000..c7b00c1 --- /dev/null +++ b/modules/usermanager/usermanager @@ -0,0 +1,21 @@ +#!/usr/bin/perl + +use lib qw(/usr/lib/libDrakX); + +use standalone; #- warning, standalone must be loaded very first, for 'explanations' + +use common; + +use AdminPanel::Shared; +use AdminPanel::Users::GUsers; + +use yui; + +my $wm_icon = "/usr/share/icons/userdrake.png"; + +yui::YUI::app()->setApplicationTitle(N("Mageia Users Management Tool")); +yui::YUI::app()->setApplicationIcon($wm_icon); + +# TODO AdminPanel::Users::GUsers::addUserDialog(); + +1; -- cgit v1.2.1