]>
Commit | Line | Data |
---|---|---|
1635608e DM |
1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use PVE::INotify; | |
b468a858 | 7 | use PVE::Tools; |
1635608e DM |
8 | use PMG::Cluster; |
9 | ||
b468a858 TL |
10 | sub detect_container { |
11 | ||
12 | my $ct; | |
13 | if (-f '/run/systemd/container') { | |
14 | $ct = PVE::Tools::file_read_firstline('/run/systemd/container'); | |
15 | } | |
16 | return $ct; | |
17 | } | |
18 | ||
1635608e | 19 | my $nodename = PVE::INotify::nodename(); |
b468a858 TL |
20 | my $localip = eval { PMG::Cluster::remote_node_ip($nodename, 1) }; |
21 | if (my $err = $@) { # FIXME: HACK: cope better with managed CTs and DHCP | |
22 | my $in_ct = detect_container(); | |
23 | die $err if !$in_ct; | |
24 | warn "ignore failure to get local IP of $nodename, we're in a container ($in_ct)\n"; | |
25 | $localip = '<uknown>'; | |
26 | } | |
1635608e DM |
27 | |
28 | my $xline = '-' x 78; | |
29 | ||
30 | my $banner = ''; | |
31 | ||
32 | if ($localip) { | |
33 | $banner .= <<__EOBANNER; | |
34 | ||
35 | $xline | |
36 | ||
37 | Welcome to the Proxmox Mail Gateway. Please use your web browser to | |
38 | configure this server - connect to: | |
39 | ||
40 | https://${localip}:8006/ | |
41 | ||
42 | $xline | |
43 | ||
44 | __EOBANNER | |
45 | ||
46 | } | |
47 | ||
48 | open(ISSUE, ">/etc/issue"); | |
49 | ||
50 | print ISSUE $banner; | |
51 | ||
52 | close(ISSUE); | |
53 | ||
54 | exit (0); |