-
Notifications
You must be signed in to change notification settings - Fork 3
/
View.pm
54 lines (51 loc) · 1.68 KB
/
View.pm
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
package ListPod::App::Lite::View;
use strict;
use warnings;
use Text::MicroTemplate qw(build_mt);
sub render {
my ($self,$args) = @_;
my $pos = tell DATA;
local $/; my $t = <DATA>;
seek DATA, $pos, 0;
my $renderer = build_mt( $t );
my $html;
eval { $html = $renderer->($args->{base})->as_string };
return $html;
}
1;
__DATA__
? my ( $base ) = @_;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<title>ListPod on <?= $base ?></title>
<link rel="stylesheet" href="http://yusukebe.github.com/ListPod-App-Lite/static/blueprint/screen.css" type="text/css" media="screen, projection" />
<link rel="stylesheet" href="http://yusukebe.github.com/ListPod-App-Lite/static/blueprint/print.css" type="text/css" media="print" />
<!--[if lt IE 8]><link rel="stylesheet" href="http://yusukebe.github.com/ListPod-App-Lite/static/blueprint/ie.css" type="text/css" media="screen, projection" /><![endif]-->
</head>
<body>
<div class="container">
<hr class="space" />
<h1>ListPod on <?= $base ?></h1>
<form action="<?= $base ?>playlist">
<p>
<label>Input <a href="http://www.youtube.com/" target="_blank">YouTube</a>
Playlist URL</label><br />
<input type="text" name="url" class="title" style="width:800px" />
<input type="submit" value="Submit" style="width:100px;" class="title"/>
</p>
</form>
<br />
<br />
<hr />
<address>listpod-app-lite is developed on
<a href="http://github.com/yusukebe/ListPod-App-Lite" target="_blank">
GitHub
</a> by Yusuke Wada.
This is branche of <a href="http://listpod.tv/">listpod.tv</a>
</address>
</div>
</body>
</html>