-
Notifications
You must be signed in to change notification settings - Fork 4
/
app.pl
87 lines (68 loc) · 1.31 KB
/
app.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
#!/usr/bin/env perl
use Mojolicious::Lite;
use LWP::Simple;
use Sys::HostIP;
any '/' => sub {
my $self = shift;
my $ip = Sys::HostIP->ip;
$self->stash( ip => $ip, pid => $$ );
} => 'index';
app->start;
__DATA__
@@ index.html.ep
<!doctype html5>
<html>
<head>
<title>Stackato scaling test</title>
<style type="text/css">
body {
background: black;
font-family: Helvetica, sans-serif;
color: #EEEEEE;
}
#prettybox {
background: #212121;
margin-top: 5em;
padding-bottom: 1.5em;
width: 30%;
margin-left: auto;
margin-right: auto;
text-align: center;
-moz-border-radius: 5px;
border-radius: 5px;
}
#stackato {
font-size: 2em;
padding-top: 0.5em;
padding-bottom: 1em;
}
.labeltext {
padding-top: 1em;
color: #999999;
}
.bigtext {
padding-top: 0.3em;
font-size: 3em;
}
#ip {
color: #3D5AD1;
}
#pid {
color: #128236;
}
</style>
</head>
<body>
<div id="prettybox">
<div id="stackato">stackato scaling test</div>
<div id="ipblock">
<div class="labeltext">the IP of this instance is:</div>
<div class="bigtext" id="ip"><%= $ip %></div>
</div>
<div id="pidblock">
<div class="labeltext">the PID of this process is:</div>
<div class="bigtext" id="pid"><%= $pid %></div>
</div>
</div>
</body>
</html>