#!/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
888888b.                                       888 888      8888888 88888888888 
888  "88b                                      888 888        888       888     
888  .88P                                      888 888        888       888     
8888888K.   .d88b.  88888b.  88888b.   .d88b.  888 888        888       888     
888  "Y88b d8P  Y8b 888 "88b 888 "88b d8P  Y8b 888 888        888       888     
888    888 88888888 888  888 888  888 88888888 888 888        888       888     
888   d88P Y8b.     888  888 888  888 Y8b.     888 888        888       888     
8888888P"   "Y8888  888  888 888  888  "Y8888  888 888      8888888     888     
                              www.bennellit.com.au
$xline
                 Welcome to the Bennell IT 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);