Untitled

From Unique Hamerkop, 10 Years ago, written in Plain Text.

URL http://geopaste.scratchbook.ch/view/fbb1aeec

Embed

#!/usr/bin/env perl

use Mojolicious::Lite;

use URI::Title qw( title );

get '/' => sub {

my $c = shift;

$c->render(template => 'index');

};

get '/comment' => sub {

my $c = shift;

my $v = $c->param('v');

if (! $v) {

$c->render(template => 'error', error => 'No video specified!');

} elsif ($v =~ m! (?: \bv i? [/=] | be/ ) ([a-zA-Z_\-]+) !x) {

$c = $c->redirect_to("/comment?v=$1");

} elsif ($v !~ /.........../) {

$c->render(template => 'error', error => 'Invalid video ID!');

} else {

my $title = title('http://youtube.com/watch?v='.$v);

if (! $title) {

$c->render(template => 'error', error => 'Invalid video, or could not fetch video.');

} else {

$title =~ s/(.*) - YouTube/$1/;

$c->stash(title => $title);

$c->stash(v => $v);

$c->render(template => 'comment');

}

}

};

app->start;

__DATA__

@@ index.html.ep

% layout 'default';

% title 'Hello hello!';

<!DOCTYPE html>

<html>

<head><title><%= title %></title></head>

<body>

<h1>OpinionsAllowed</h1>

<p>Voice your opinion for any video, comments are <strong>never</strong> disabled!</p>

%= form_for 'comment' => (method => 'GET') => begin

%= label_for v => 'Video Link: '

%= text_field 'v'

% end

<hr><p>OpinionsAllowed 2015 - Written in Mojolicious for Perl 5</p>

</body>

</html>

@@ comment.html.ep

<!DOCTYPE html>

<html>

<head><title><%= $title %> - OpinionsAllowed</title></head>

<body>

<div align='center'>

<h1>Video</h1><h2><%= $title %></h2>

<p><iframe id="ytplayer" type="text/html" width="640" height="390"

src="http://www.youtube.com/embed/<%= $v %>?autoplay=1"

frameborder="0"/></p>

</div>

<hr><p>OpinionsAllowed 2015 - Written in Mojolicious for Perl 5</p>

</body>

</html>

@@ error.html.ep

<!DOCTYPE html>

<html>

<head><title>Error: <%= $error %></title></head><body><h1>Error</h1>

<p><%= $error %> <a href="/">Home.</a></p></body>

<hr><p>OpinionsAllowed 2015 - Written in Mojolicious for Perl 5</p>

</html>

Author

Title

Language

Your paste - Paste your paste here

#!/usr/bin/env perl
use Mojolicious::Lite;
use URI::Title qw( title );

get '/' =&gt; sub {
	my $c = shift;
	$c-&gt;render(template =&gt; 'index');
};

get '/comment' =&gt; sub {
	my $c = shift;
	my $v = $c-&gt;param('v');
	if (! $v) {
		$c-&gt;render(template =&gt; 'error', error =&gt; 'No video specified!');
	} elsif ($v =~ m! (?: \bv i? [/=] | be/ ) ([a-zA-Z_\-]+) !x) {
		$c = $c-&gt;redirect_to(&quot;/comment?v=$1&quot;);
	} elsif ($v !~ /.........../) {
		$c-&gt;render(template =&gt; 'error', error =&gt; 'Invalid video ID!');
	} else {
		my $title = title('http://youtube.com/watch?v='.$v);
		if (! $title) {
			$c-&gt;render(template =&gt; 'error', error =&gt; 'Invalid video, or could not fetch video.');
		} else {
			$title =~ s/(.*) - YouTube/$1/;
			$c-&gt;stash(title =&gt; $title);
			$c-&gt;stash(v =&gt; $v);
			$c-&gt;render(template =&gt; 'comment');
		}
	}
};

app-&gt;start;

__DATA__

@@ index.html.ep
% layout 'default';
% title 'Hello hello!';
&lt;!DOCTYPE html&gt;
&lt;html&gt;
	&lt;head&gt;&lt;title&gt;&lt;%= title %&gt;&lt;/title&gt;&lt;/head&gt;
	&lt;body&gt;
		&lt;h1&gt;OpinionsAllowed&lt;/h1&gt;
		&lt;p&gt;Voice your opinion for any video, comments are &lt;strong&gt;never&lt;/strong&gt; disabled!&lt;/p&gt;
		%= form_for 'comment' =&gt; (method =&gt; 'GET') =&gt; begin
			%= label_for v =&gt; 'Video Link: '
			%= text_field 'v'
		% end
		&lt;hr&gt;&lt;p&gt;OpinionsAllowed 2015 - Written in Mojolicious for Perl 5&lt;/p&gt;
	&lt;/body&gt;
&lt;/html&gt;

@@ comment.html.ep
&lt;!DOCTYPE html&gt;
&lt;html&gt;
	&lt;head&gt;&lt;title&gt;&lt;%= $title %&gt; - OpinionsAllowed&lt;/title&gt;&lt;/head&gt;
	&lt;body&gt;
  		&lt;div align='center'&gt;
			&lt;h1&gt;Video&lt;/h1&gt;&lt;h2&gt;&lt;%= $title %&gt;&lt;/h2&gt;
			&lt;p&gt;&lt;iframe id=&quot;ytplayer&quot; type=&quot;text/html&quot; width=&quot;640&quot; height=&quot;390&quot;
			src=&quot;http://www.youtube.com/embed/&lt;%= $v %&gt;?autoplay=1&quot;
			frameborder=&quot;0&quot;/&gt;&lt;/p&gt;
  		&lt;/div&gt;
  		&lt;hr&gt;&lt;p&gt;OpinionsAllowed 2015 - Written in Mojolicious for Perl 5&lt;/p&gt;
	&lt;/body&gt;
&lt;/html&gt;

@@ error.html.ep
&lt;!DOCTYPE html&gt;
&lt;html&gt;
	&lt;head&gt;&lt;title&gt;Error: &lt;%= $error %&gt;&lt;/title&gt;&lt;/head&gt;&lt;body&gt;&lt;h1&gt;Error&lt;/h1&gt;
	&lt;p&gt;&lt;%= $error %&gt; &lt;a href=&quot;/&quot;&gt;Home.&lt;/a&gt;&lt;/p&gt;&lt;/body&gt;
	&lt;hr&gt;&lt;p&gt;OpinionsAllowed 2015 - Written in Mojolicious for Perl 5&lt;/p&gt;
&lt;/html&gt;

Create Shorturl - Create a shorter url that redirects to your paste?

Private - Private paste aren't shown in recent listings.

Delete After - When should we delete your paste?

Reply to "Untitled"