Commit f20b6e66 authored by Jan Kasprzak's avatar Jan Kasprzak
Browse files

Vypsat promenne prostredi

parent dbcec36a

README.md

+1 −0
Original line number Diff line number Diff line
@@ -2,3 +2,4 @@ 


Pokus s CI/CD

app

+4 −0
Original line number Diff line number Diff line
@@ -9,10 +9,14 @@ get '/' => sub ($c) { 
	my $host = hostname;

	my $ip = $c->tx->remote_address;

	my $now = strftime('%Y-%m-%d %H:%M:%S', localtime(time));

	my $env = join('\n', map { "$_=$ENV{$_}" } sort keys %ENV);

	$c->render(text => <<~EOF);

	Welcome from $ip,

	this is Mojoliious test app running at $host.

	Current time is $now.



	Environment is:

	$env

	EOF

};