src/bin/pmgbanner

   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);