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