diff options
| -rw-r--r-- | MANIFEST | 2 | ||||
| -rw-r--r-- | Makefile.PL | 2 | ||||
| -rw-r--r-- | extras/polkit/org.mageia.mpan.policy | 2 | ||||
| -rwxr-xr-x | scripts/mana | 2 | ||||
| -rwxr-xr-x | scripts/mpan (renamed from scripts/mpan.pl) | 10 |
5 files changed, 9 insertions, 9 deletions
@@ -78,7 +78,7 @@ scripts/manalog scripts/manaproxy scripts/manaservice scripts/manauser -scripts/mpan.pl +scripts/mpan share/images/Blank16x16.png share/images/Check.png share/images/Check_16x16.png diff --git a/Makefile.PL b/Makefile.PL index e380a1e8..834e6e03 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -62,7 +62,7 @@ WriteMakefile( "Modern::Perl" => 1.03, "autodie" => 2.20, }, - EXE_FILES => [ qw( scripts/mpan.pl + EXE_FILES => [ qw( scripts/mpan scripts/mana scripts/manaadduser scripts/manaclock diff --git a/extras/polkit/org.mageia.mpan.policy b/extras/polkit/org.mageia.mpan.policy index 5d793cf1..1597cc8e 100644 --- a/extras/polkit/org.mageia.mpan.policy +++ b/extras/polkit/org.mageia.mpan.policy @@ -15,7 +15,7 @@ <allow_inactive>auth_admin</allow_inactive> <allow_active>auth_admin</allow_active> </defaults> - <annotate key="org.freedesktop.policykit.exec.path">/usr/bin/mpan.pl</annotate> + <annotate key="org.freedesktop.policykit.exec.path">/usr/bin/mpan</annotate> <annotate key="org.freedesktop.policykit.exec.allow_gui">true</annotate> </action> </policyconfig> diff --git a/scripts/mana b/scripts/mana index 329f3b25..45acbfd3 100755 --- a/scripts/mana +++ b/scripts/mana @@ -51,7 +51,7 @@ my %modules = ( descr => "manahost: hosts manager", }, pan => { - exec => '/usr/bin/mpan.pl', + exec => '/usr/bin/mpan', descr => "mpan: admin panel", }, proxy => { diff --git a/scripts/mpan.pl b/scripts/mpan index 29b6d8e6..589a72e3 100755 --- a/scripts/mpan.pl +++ b/scripts/mpan @@ -41,9 +41,9 @@ else { } my $mainWin = new AdminPanel::MainDisplay(); while (1) { - my $launch = $mainWin->start(); + my $launch = $mainWin->start(); - if ($launch) { + if ($launch) { $mainWin->destroy(); $launch->start(); } @@ -57,12 +57,12 @@ while (1) { sub usage { print "\n"; - print "Usage mpan.pl [options...]\n\n"; + print "Usage mpan [options...]\n\n"; print "Options:\n"; print "\t--help | -h print this help\n"; ## anaselli: --name now is used only to add a path to /etc (e.g. --name mcc2 means /etc/mcc2) # and it is overriden by --conf_dir, so it should be discussed better to understand - # if it is really needed any more. + # if it is really needed any more. # Window title is got from settings.conf (key title) print "\t--name string specify the window title of the administration panel\n"; print "\t--conf_dir path specify the settings.conf file directory\n"; @@ -94,7 +94,7 @@ sub getSettings { =pod =head1 main - + main launcher =cut |