diff options
Diffstat (limited to 'apanel.pl')
| -rwxr-xr-x | apanel.pl | 30 |
1 files changed, 14 insertions, 16 deletions
@@ -1,5 +1,5 @@ #!/usr/bin/perl - +# vim: set et ts=4 sw=4: # Copyright 2012 Steven Tucker # # This file is part of AdminPanel @@ -35,14 +35,12 @@ ask_for_authentication() if(require_root_capability()); my $mainWin = new MainDisplay(); my $launch = $mainWin->start(); -while($launch) -{ +while ($launch) { $mainWin->destroy(); undef($mainWin); my $err = yui::YUI::app()->runInTerminal("$launch --ncurses"); - if ($err == -1) - { + if ($err == -1) { system($launch); } @@ -54,18 +52,18 @@ $mainWin->destroy(); undef($mainWin); sub usage { - print "\n"; - print "Usage apanel [options...]\n\n"; - print "Options:\n"; - print "\t--help | -h print this help\n"; + print "\n"; + print "Usage apanel [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. - # 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"; - print "\n"; - exit(0); + # and it is overriden by --conf_dir, so it should be discussed better to understand + # 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"; + print "\n"; + exit(0); } =pod |