50 lines
1.7 KiB
Perl
50 lines
1.7 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use PVE::INotify;
|
|
use PVE::Cluster;
|
|
use Sys::Hostname;
|
|
|
|
my $nodename = PVE::INotify::nodename();
|
|
my $localip = PVE::Cluster::remote_node_ip($nodename, 1);
|
|
#my $lastupdate = `date +%m/%d/%Y" "%l:%M:%S" "%p`;
|
|
my $year = `date +%Y`;
|
|
my $hostname = hostname;
|
|
my $xline = '*' x 78;
|
|
|
|
my $banner = '';
|
|
|
|
if ($localip) {
|
|
$banner .= <<__EOBANNER;
|
|
$xline
|
|
|
|
|
|
@@@ @@@ @@@@@@@@ @@@@@@@ @@@@@@@ @@@@@@@ @@@@@@ @@@@@@ @@@@@@@@
|
|
@@@@ @@@ @@@@@@@@ @@@@@@@ @@@@@@@@ @@@@@@@@ @@@@@@@@ @@@@@@@@ @@@@@@@@
|
|
@@!@!@@@ @@! @@! @@! @@@ @@! @@@ @@! @@@ @@! @@@ @@!
|
|
!@!!@!@! !@! !@! !@! @!@ !@! @!@ !@! @!@ !@! @!@ !@!
|
|
@!@ !!@! @!!!:! @!! @!@@!@! @!@!!@! @!@ !@! @!@ !@! @!!!:!
|
|
!@! !!! !!!!!: !!! !!@!!! !!@!@! !@! !!! !@! !!! !!!!!:
|
|
!!: !!! !!: !!: !!: !!: :!! !!: !!! !!: !!! !!:
|
|
:!: !:! :!: :!: :!: :!: !:! :!: !:! :!: !:! :!:
|
|
:: :: :: :::: :: :: :: ::: ::::: :: ::::: :: ::
|
|
:: : : :: :: : : : : : : : : : : : :
|
|
|
|
netproof.co.uk $year
|
|
$xline
|
|
Welcome to $hostname Server.
|
|
Please use your web browser to configure this server
|
|
connect to https://${localip}:8006/
|
|
$xline
|
|
__EOBANNER
|
|
|
|
}
|
|
|
|
open(ISSUE, ">/etc/issue");
|
|
|
|
print ISSUE $banner;
|
|
|
|
close(ISSUE);
|
|
|
|
exit (0);
|