c497a43729
And avoid to use debian version, because that changes over time and it is clumsy to keep in sync.
37 lines
501 B
Perl
Executable File
37 lines
501 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use PVE::INotify;
|
|
use PVE::Cluster;
|
|
|
|
my $nodename = PVE::INotify::nodename();
|
|
my $localip = PVE::Cluster::remote_node_ip($nodename, 1);
|
|
|
|
my $xline = '-' x 78;
|
|
|
|
my $banner = '';
|
|
|
|
if ($localip) {
|
|
$banner .= <<__EOBANNER;
|
|
|
|
$xline
|
|
|
|
Welcome to the Proxmox Virtual Environment. 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);
|