moved mpan.pl to mpan, easier to run by command line

5 files changed, 9 insertions, 9 deletions

diff --git a/MANIFEST b/MANIFEST
index 38d3fb9f..b8d53adb 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -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