VladPolskiy/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2025-07-23 00:30:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

(Perl) Balance printing spaces to print regular and dev versions nicely

Browse Source
This commit is contained in:
Ilia Rostovtsev
2021-03-01 19:05:10 +03:00
parent 23e7e1975c
commit 79a8328f2f
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
setup.pl
View File

@ -19,9 +19,12 @@ open(VERSION, "$wadir/version") ||
&errorexit("Cannot find the Webmin install directory");
chop($ver = <VERSION>);
close(VERSION);
my $spaces_count_def = 10;
my $verleneach = int(length($ver) / 2);
my $space_count = int($spaces_count_def - $verleneach);
my $space_count_cond = " " x $space_count;
print "***********************************************************************\n";
print "* Welcome to the Webmin setup script, version $ver *\n";
print "* $space_count_cond Welcome to the Webmin setup script, version $ver $space_count_cond *\n";
print "***********************************************************************\n";
print "Webmin is a web-based interface that allows Unix-like operating\n";
print "systems and common Unix services to be easily administered.\n";