[pmg-api.git] / src / bin / pmgbanner

#!/usr/bin/perl

use strict;
use warnings;

use PVE::INotify;
use PMG::Cluster;

my $nodename = PVE::INotify::nodename();
my $localip = PMG::Cluster::remote_node_ip($nodename, 1);

my $xline = '-' x 78;

my $banner = '';

if ($localip) {
    $banner .= <<__EOBANNER;

$xline

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