]>
Commit | Line | Data |
---|---|---|
0854fb22 DM |
1 | package PMG::Service::pmgproxy; |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use PVE::SafeSyslog; | |
7 | use PVE::Daemon; | |
8 | use HTTP::Response; | |
9 | use URI; | |
614ee52d DM |
10 | use URI::Escape; |
11 | ||
0854fb22 DM |
12 | use URI::QueryParam; |
13 | use Data::Dumper; | |
14 | ||
15 | use PVE::Tools; | |
16 | use PVE::APIServer::Formatter; | |
17 | use PVE::APIServer::Formatter::Standard; | |
18 | use PVE::APIServer::Formatter::HTML; | |
19 | use PVE::APIServer::AnyEvent; | |
e617af3f | 20 | use PVE::APIServer::Utils; |
0854fb22 DM |
21 | |
22 | use PMG::HTTPServer; | |
23 | use PMG::API2; | |
f9fb1781 | 24 | use PMG::Config; |
0854fb22 | 25 | |
803b4163 | 26 | use Template; |
0854fb22 DM |
27 | |
28 | use base qw(PVE::Daemon); | |
29 | ||
30 | my $cmdline = [$0, @ARGV]; | |
31 | ||
32 | my %daemon_options = ( | |
33 | max_workers => 3, | |
34 | restart_on_error => 5, | |
35 | stop_wait_time => 15, | |
36 | leave_children_open_on_reload => 1, | |
37 | setuid => 'www-data', | |
38 | setgid => 'www-data', | |
83e9f427 | 39 | pidfile => '/run/pmgproxy/pmgproxy.pid', |
0854fb22 DM |
40 | ); |
41 | ||
42 | my $daemon = __PACKAGE__->new('pmgproxy', $cmdline, %daemon_options); | |
43 | ||
44 | sub add_dirs { | |
45 | my ($result_hash, $alias, $subdir) = @_; | |
46 | ||
47 | PVE::APIServer::AnyEvent::add_dirs($result_hash, $alias, $subdir); | |
48 | } | |
49 | ||
572ff727 | 50 | my $gui_base_dir = "/usr/share/javascript/pmg-gui"; |
6fcf7afb | 51 | my $extjs_dir = "/usr/share/javascript/extjs/"; |
61ab886a | 52 | my $fontawesome_dir = "/usr/share/fonts-font-awesome"; |
6466cf6d | 53 | my $xtermjs_dir = '/usr/share/pve-xtermjs'; |
9adf84b5 | 54 | my $framework7_dir = '/usr/share/javascript/framework7'; |
a0de78bd | 55 | my $widgettoolkit_dir = '/usr/share/javascript/proxmox-widget-toolkit'; |
803b4163 | 56 | |
0854fb22 DM |
57 | sub init { |
58 | my ($self) = @_; | |
59 | ||
e617af3f SI |
60 | my $proxyconf = PVE::APIServer::Utils::read_proxy_config($self->{name}); |
61 | ||
0854fb22 DM |
62 | my $accept_lock_fn = "/var/lock/pmgproxy.lck"; |
63 | ||
64 | my $lockfh = IO::File->new(">>${accept_lock_fn}") || | |
65 | die "unable to open lock file '${accept_lock_fn}' - $!\n"; | |
66 | ||
cc7fa1b8 OB |
67 | my $listen_ip = $proxyconf->{LISTEN_IP}; |
68 | my $socket = $self->create_reusable_socket(8006, $listen_ip); | |
0854fb22 DM |
69 | |
70 | my $dirs = {}; | |
71 | ||
7e7cdb14 | 72 | add_dirs($dirs, '/pve2/locale/', '/usr/share/pmg-i18n/'); |
6fcf7afb | 73 | add_dirs($dirs, '/pve2/ext6/', $extjs_dir); |
803b4163 DM |
74 | add_dirs($dirs, '/pve2/images/' => "$gui_base_dir/images/"); |
75 | add_dirs($dirs, '/pve2/css/' => "$gui_base_dir/css/"); | |
76 | add_dirs($dirs, '/pve2/js/' => "$gui_base_dir/js/"); | |
2ec2c08a DM |
77 | add_dirs($dirs, '/fontawesome/css/' => "$fontawesome_dir/css/"); |
78 | add_dirs($dirs, '/fontawesome/fonts/' => "$fontawesome_dir/fonts/"); | |
9adf84b5 DC |
79 | add_dirs($dirs, '/framework7/fonts/' => "$framework7_dir/fonts/"); |
80 | add_dirs($dirs, '/framework7/css/' => "$framework7_dir/css/"); | |
81 | add_dirs($dirs, '/framework7/js/' => "$framework7_dir/js/"); | |
6466cf6d | 82 | add_dirs($dirs, '/xtermjs/' => "$xtermjs_dir/"); |
87546b89 | 83 | add_dirs($dirs, '/pmg-docs/' => '/usr/share/pmg-docs/'); |
6fcf7afb | 84 | add_dirs($dirs, '/pmg-docs/api-viewer/extjs/' => $extjs_dir); |
a0de78bd | 85 | add_dirs($dirs, '/pwt/css/' => "$widgettoolkit_dir/css/"); |
47b5dcf8 | 86 | add_dirs($dirs, '/pwt/images/' => "$widgettoolkit_dir/images/"); |
0854fb22 DM |
87 | |
88 | $self->{server_config} = { | |
89 | title => 'Proxmox Mail Gateway API', | |
2ec2c08a | 90 | cookie_name => 'PMGAuthCookie', |
0854fb22 DM |
91 | keep_alive => 100, |
92 | max_conn => 500, | |
93 | max_requests => 1000, | |
94 | lockfile => $accept_lock_fn, | |
95 | socket => $socket, | |
96 | lockfh => $lockfh, | |
97 | debug => $self->{debug}, | |
98 | trusted_env => 0, # not trusted, anyone can connect | |
99 | logfile => '/var/log/pmgproxy/pmgproxy.log', | |
e617af3f SI |
100 | allow_from => $proxyconf->{ALLOW_FROM}, |
101 | deny_from => $proxyconf->{DENY_FROM}, | |
102 | policy => $proxyconf->{POLICY}, | |
0854fb22 | 103 | ssl => { |
3278b571 | 104 | cert_file => '/etc/pmg/pmg-api.pem', |
0854fb22 | 105 | dh => 'skip2048', |
e617af3f SI |
106 | cipher_list => $proxyconf->{CIPHERS}, |
107 | honor_cipher_order => $proxyconf->{HONOR_CIPHER_ORDER}, | |
0854fb22 | 108 | }, |
e617af3f | 109 | compression => $proxyconf->{COMPRESSION}, |
0854fb22 DM |
110 | # Note: there is no authentication for those pages and dirs! |
111 | pages => { | |
112 | '/' => sub { get_index($self->{nodename}, @_) }, | |
614ee52d | 113 | '/quarantine' => sub { get_index($self->{nodename}, @_) }, |
0854fb22 | 114 | # avoid authentication when accessing favicon |
cb159468 | 115 | '/favicon.ico' => { |
572ff727 | 116 | file => '/usr/share/doc/pmg-api/favicon.ico', |
cb159468 | 117 | }, |
bbcc9ce6 DM |
118 | '/proxmoxlib.js' => { |
119 | file => '/usr/share/javascript/proxmox-widget-toolkit/proxmoxlib.js', | |
120 | }, | |
0a462c62 WB |
121 | '/qrcode.min.js' => { |
122 | file => '/usr/share/javascript/qrcodejs/qrcode.min.js', | |
123 | }, | |
0854fb22 DM |
124 | }, |
125 | dirs => $dirs, | |
126 | }; | |
e617af3f SI |
127 | |
128 | if (defined($proxyconf->{DHPARAMS})) { | |
129 | $self->{server_config}->{ssl}->{dh_file} = $proxyconf->{DHPARAMS}; | |
130 | } | |
0854fb22 DM |
131 | } |
132 | ||
133 | sub run { | |
134 | my ($self) = @_; | |
135 | ||
136 | my $server = PMG::HTTPServer->new(%{$self->{server_config}}); | |
137 | $server->run(); | |
138 | } | |
139 | ||
140 | $daemon->register_start_command(); | |
141 | $daemon->register_restart_command(1); | |
142 | $daemon->register_stop_command(); | |
143 | $daemon->register_status_command(); | |
144 | ||
145 | our $cmddef = { | |
146 | start => [ __PACKAGE__, 'start', []], | |
147 | restart => [ __PACKAGE__, 'restart', []], | |
148 | stop => [ __PACKAGE__, 'stop', []], | |
149 | status => [ __PACKAGE__, 'status', [], undef, sub { print shift . "\n";} ], | |
150 | }; | |
151 | ||
9ff4a97a DM |
152 | my $template_toolkit; |
153 | ||
154 | sub get_template_toolkit { | |
155 | ||
156 | return $template_toolkit if $template_toolkit; | |
157 | ||
158 | $template_toolkit = Template->new( | |
6466cf6d | 159 | { INCLUDE_PATH => [$gui_base_dir, $xtermjs_dir]}); |
9ff4a97a DM |
160 | |
161 | return $template_toolkit; | |
162 | } | |
163 | ||
9adf84b5 DC |
164 | sub is_phone { |
165 | my ($ua) = @_; | |
166 | ||
167 | return 0 if !$ua; | |
168 | ||
169 | if ($ua =~ m/( | |
170 | iPhone| | |
171 | iPod| | |
172 | Windows\ Phone| | |
173 | Android| | |
174 | BlackBerry | |
175 | )/xi) { | |
176 | return 1; | |
177 | } | |
178 | ||
179 | return 0; | |
180 | } | |
181 | ||
0854fb22 DM |
182 | sub get_index { |
183 | my ($nodename, $server, $r, $args) = @_; | |
184 | ||
185 | my $lang = 'en'; | |
186 | my $username; | |
187 | my $token = 'null'; | |
9adf84b5 DC |
188 | my $quarantine = ($r->uri->path() =~ m/quarantine$/); |
189 | my $mobile = is_phone($r->header('User-Agent')); | |
190 | if (defined($args->{mobile})) { | |
191 | $mobile = $args->{mobile} ? 1 : 0; | |
192 | } | |
0854fb22 DM |
193 | |
194 | if (my $cookie = $r->header('Cookie')) { | |
195 | if (my $newlang = ($cookie =~ /(?:^|\s)PMGLangCookie=([^;]*)/)[0]) { | |
196 | if ($newlang =~ m/^[a-z]{2,3}(_[A-Z]{2,3})?$/) { | |
197 | $lang = $newlang; | |
198 | } | |
199 | } | |
14ebc02d | 200 | my $ticket = PVE::APIServer::Formatter::extract_auth_value($cookie, $server->{cookie_name}); |
614ee52d DM |
201 | |
202 | if ($ticket =~ m/^PMGQUAR:/) { | |
203 | $username = PMG::Ticket::verify_quarantine_ticket($ticket, 1); | |
204 | } else { | |
5accfdf2 | 205 | $username = PMG::Ticket::verify_ticket($ticket, undef, 1); |
614ee52d DM |
206 | } |
207 | } else { | |
208 | if (defined($args->{ticket})) { | |
209 | my $ticket = uri_unescape($args->{ticket}); | |
210 | $username = PMG::Ticket::verify_quarantine_ticket($ticket, 1); | |
0854fb22 DM |
211 | } |
212 | } | |
213 | ||
614ee52d DM |
214 | $token = PMG::Ticket::assemble_csrf_prevention_token($username) |
215 | if defined($username); | |
216 | ||
7e7cdb14 DM |
217 | my $langfile = 0; |
218 | ||
219 | if (-f "/usr/share/pmg-i18n/pmg-lang-$lang.js") { | |
220 | $langfile = 1; | |
221 | } | |
78c58e58 | 222 | |
3fb6d663 DC |
223 | my $wtversionraw = PVE::Tools::file_read_firstline("$widgettoolkit_dir/proxmoxlib.js"); |
224 | my $wtversion = ''; | |
225 | if ($wtversionraw =~ m|^// (.*)$|) { | |
226 | $wtversion = $1; | |
227 | }; | |
228 | ||
229 | my $versionraw = PVE::Tools::file_read_firstline("$gui_base_dir/js/pmgmanagerlib.js"); | |
230 | my $version = ''; | |
231 | if ($versionraw =~ m|^// (.*)$|) { | |
232 | $version = $1; | |
233 | }; | |
234 | ||
f9fb1781 DC |
235 | my $cfg = PMG::Config->new(); |
236 | my $quarantinelink = $cfg->get('spamquar', 'quarantinelink'); | |
3fb6d663 | 237 | |
0854fb22 DM |
238 | $username = '' if !$username; |
239 | ||
803b4163 DM |
240 | my $page = ''; |
241 | ||
78c58e58 DM |
242 | my $vars = { |
243 | lang => $lang, | |
244 | langfile => $langfile, | |
245 | username => $username, | |
246 | token => $token, | |
247 | console => $args->{console}, | |
248 | nodename => $nodename, | |
249 | debug => $args->{debug} || $server->{debug}, | |
3fb6d663 DC |
250 | version => $version, |
251 | wtversion => $wtversion, | |
f9fb1781 | 252 | quarantinelink => $quarantinelink, |
78c58e58 DM |
253 | }; |
254 | ||
9ff4a97a | 255 | my $template_name; |
6466cf6d | 256 | if (defined($args->{console}) && $args->{xtermjs}) { |
9ff4a97a | 257 | $template_name = "index.html.tpl"; # fixme: use better name |
9adf84b5 DC |
258 | } elsif ($mobile && $quarantine) { |
259 | $template_name = "pmg-mobile-index.html.tt"; | |
9ff4a97a DM |
260 | } else { |
261 | $template_name = "pmg-index.html.tt"; | |
262 | } | |
263 | ||
264 | my $tt = get_template_toolkit(); | |
265 | ||
266 | $tt->process($template_name, $vars, \$page) || | |
267 | die $tt->error() . "\n"; | |
803b4163 | 268 | |
0854fb22 DM |
269 | my $headers = HTTP::Headers->new(Content_Type => "text/html; charset=utf-8"); |
270 | my $resp = HTTP::Response->new(200, "OK", $headers, $page); | |
271 | ||
272 | return $resp; | |
273 | } | |
274 | ||
275 | 1; |