[pve-manager.git] / bin / pvebanner

#!/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);
Commit	Line	Data
aff192e6 DM	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use PVE::INotify;
	5	use PVE::Cluster;
	6
	7	my $nodename = PVE::INotify::nodename();
	8	my $localip = PVE::Cluster::remote_node_ip($nodename, 1);
	9
9003d6e3	10	my $xline = '-' x 78;
aff192e6	11
9003d6e3 DM	12	my $banner = '';
	13
	14	if ($localip) {
	15	$banner .= <<__EOBANNER;
aff192e6 DM	16
	17	$xline
	18
	19	Welcome to the Proxmox Virtual Environment. Please use your web browser to
	20	configure this server - connect to:
	21
	22	https://${localip}:8006/
	23
	24	$xline
	25
	26	__EOBANNER
	27
9003d6e3 DM	28	}
9003d6e3 DM	29
9003d6e3 DM	30	open(ISSUE, ">/etc/issue");
	31
	32	print ISSUE $banner;
	33
	34	close(ISSUE);
	35
aff192e6	36	exit (0);