Replace with Mojolicious version
This commit is contained in:
Maximilian Gass
Maximilian Gass
parent
739793d624
commit
495b8efdeb
18
MANIFEST
18
MANIFEST
|
|
@ -1,18 +0,0 @@
|
||||||
MANIFEST
|
|
||||||
bin/app.pl
|
|
||||||
config.yml
|
|
||||||
environments/development.yml
|
|
||||||
environments/production.yml
|
|
||||||
views/index.tt
|
|
||||||
MANIFEST.SKIP
|
|
||||||
lib/App/Genregenerator.pm
|
|
||||||
public/css/style.css
|
|
||||||
public/css/error.css
|
|
||||||
public/404.html
|
|
||||||
public/dispatch.fcgi
|
|
||||||
public/javascripts/jquery.js
|
|
||||||
public/dispatch.cgi
|
|
||||||
public/500.html
|
|
||||||
t/002_index_route.t
|
|
||||||
t/001_base.t
|
|
||||||
Makefile.PL
|
|
||||||
|
|
@ -1,13 +0,0 @@
|
||||||
^\.git\/
|
|
||||||
maint
|
|
||||||
^tags$
|
|
||||||
.last_cover_stats
|
|
||||||
Makefile$
|
|
||||||
^blib
|
|
||||||
^pm_to_blib
|
|
||||||
^.*.bak
|
|
||||||
^.*.old
|
|
||||||
^t.*sessions
|
|
||||||
^cover_db
|
|
||||||
^.*\.log
|
|
||||||
^.*\.swp$
|
|
||||||
21
Makefile.PL
21
Makefile.PL
|
|
@ -1,21 +0,0 @@
|
||||||
use strict;
|
|
||||||
use warnings;
|
|
||||||
use ExtUtils::MakeMaker;
|
|
||||||
|
|
||||||
WriteMakefile(
|
|
||||||
NAME => 'genregenerator',
|
|
||||||
AUTHOR => q{YOUR NAME <youremail@example.com>},
|
|
||||||
VERSION_FROM => 'lib/App/Genregenerator.pm',
|
|
||||||
ABSTRACT => 'YOUR APPLICATION ABSTRACT',
|
|
||||||
($ExtUtils::MakeMaker::VERSION >= 6.3002
|
|
||||||
? ('LICENSE'=> 'perl')
|
|
||||||
: ()),
|
|
||||||
PL_FILES => {},
|
|
||||||
PREREQ_PM => {
|
|
||||||
'Test::More' => 0,
|
|
||||||
'YAML' => 0,
|
|
||||||
'Dancer' => 1.3060,
|
|
||||||
},
|
|
||||||
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
|
|
||||||
clean => { FILES => 'genregenerator-*' },
|
|
||||||
);
|
|
||||||
|
|
@ -1,9 +0,0 @@
|
||||||
#!/usr/bin/env perl
|
|
||||||
use Dancer;
|
|
||||||
use autodie qw(chdir);
|
|
||||||
use Cwd qw(abs_path);
|
|
||||||
|
|
||||||
chdir abs_path(dirname(__FILE__) . '/..');
|
|
||||||
require App::Genregenerator;
|
|
||||||
|
|
||||||
dance;
|
|
||||||
|
|
@ -1,9 +0,0 @@
|
||||||
# Your application's name
|
|
||||||
appname: "genregenerator"
|
|
||||||
|
|
||||||
# when the charset is set to UTF-8 Dancer will handle for you
|
|
||||||
# all the magic of encoding and decoding. You should not care
|
|
||||||
# about unicode within your app when this setting is set (recommended).
|
|
||||||
charset: "UTF-8"
|
|
||||||
|
|
||||||
template: "simple"
|
|
||||||
|
|
@ -1,27 +0,0 @@
|
||||||
# configuration file for development environment
|
|
||||||
|
|
||||||
# the logger engine to use
|
|
||||||
# console: log messages to STDOUT (your console where you started the
|
|
||||||
# application server)
|
|
||||||
# file: log message to a file in log/
|
|
||||||
logger: "console"
|
|
||||||
|
|
||||||
# the log level for this environement
|
|
||||||
# core is the lowest, it shows Dancer's core log messages as well as yours
|
|
||||||
# (debug, warning and error)
|
|
||||||
log: "core"
|
|
||||||
|
|
||||||
# should Dancer consider warnings as critical errors?
|
|
||||||
warnings: 1
|
|
||||||
|
|
||||||
# should Dancer show a stacktrace when an error is caught?
|
|
||||||
show_errors: 1
|
|
||||||
|
|
||||||
# auto_reload is a development and experimental feature
|
|
||||||
# you should enable it by yourself if you want it
|
|
||||||
# Module::Refresh is needed
|
|
||||||
#
|
|
||||||
# Be aware it's unstable and may cause a memory leak.
|
|
||||||
# DO NOT EVER USE THAT FEATURE IN PRODUCTION
|
|
||||||
# OR TINY KITTENS SHALL DIE WITH LOTS OF SUFFERING
|
|
||||||
auto_reload: 0
|
|
||||||
|
|
@ -1,17 +0,0 @@
|
||||||
# configuration file for production environment
|
|
||||||
|
|
||||||
# only log warning and error messsages
|
|
||||||
log: "warning"
|
|
||||||
|
|
||||||
# log message to a file in logs/
|
|
||||||
logger: "null"
|
|
||||||
|
|
||||||
# don't consider warnings critical
|
|
||||||
warnings: 0
|
|
||||||
|
|
||||||
# hide errors
|
|
||||||
show_errors: 0
|
|
||||||
|
|
||||||
# cache route resolution for maximum performance
|
|
||||||
route_cache: 1
|
|
||||||
|
|
||||||
168
genres.yml
168
genres.yml
|
|
@ -1,168 +0,0 @@
|
||||||
cities:
|
|
||||||
- Berlin
|
|
||||||
- Bakersfield
|
|
||||||
- Detroit
|
|
||||||
- Frankfurt
|
|
||||||
- Gothenburg
|
|
||||||
- Ibiza
|
|
||||||
- London
|
|
||||||
- New Orleans
|
|
||||||
- Rio
|
|
||||||
- Rotterdam
|
|
||||||
- San Francisco
|
|
||||||
group:
|
|
||||||
- Aggrotech
|
|
||||||
- Ambient
|
|
||||||
- Beat
|
|
||||||
- Bluegrass
|
|
||||||
- Blues
|
|
||||||
- Chiptune
|
|
||||||
- Core
|
|
||||||
- Country
|
|
||||||
- Cumbia
|
|
||||||
- Dance
|
|
||||||
- Dancehall
|
|
||||||
- Drum and Bass
|
|
||||||
- Dub
|
|
||||||
- Dubstep
|
|
||||||
- EBM
|
|
||||||
- Flamenco
|
|
||||||
- Grunge
|
|
||||||
- Goa
|
|
||||||
- Gospel
|
|
||||||
- Hardstyle
|
|
||||||
- Hip-hop
|
|
||||||
- House
|
|
||||||
- Humppa
|
|
||||||
- Industrial
|
|
||||||
- Jazz
|
|
||||||
- Metal
|
|
||||||
- Oi!
|
|
||||||
- Polka
|
|
||||||
- Pop
|
|
||||||
- Punk
|
|
||||||
- Rap
|
|
||||||
- Rave
|
|
||||||
- Reggae
|
|
||||||
- Rockabilly
|
|
||||||
- Samba
|
|
||||||
- Schranz
|
|
||||||
- Ska
|
|
||||||
- Soul
|
|
||||||
- Techhouse
|
|
||||||
- Techno
|
|
||||||
- Tekkno
|
|
||||||
- Trance
|
|
||||||
- Triphop
|
|
||||||
- Twostep
|
|
||||||
- Western
|
|
||||||
subgroup:
|
|
||||||
- 30s
|
|
||||||
- 40s
|
|
||||||
- 50s
|
|
||||||
- 60s
|
|
||||||
- 70s
|
|
||||||
- 80s
|
|
||||||
- Acid
|
|
||||||
- Alternative
|
|
||||||
- Ambient
|
|
||||||
- Anatolian
|
|
||||||
- Arena
|
|
||||||
- Art
|
|
||||||
- Australian
|
|
||||||
- Australian
|
|
||||||
- Avantgarde
|
|
||||||
- Balearic
|
|
||||||
- Balkan
|
|
||||||
- Battle
|
|
||||||
- Black
|
|
||||||
- Body
|
|
||||||
- Bossa nova
|
|
||||||
- Brit
|
|
||||||
- Celtic
|
|
||||||
- Chinese
|
|
||||||
- Christian
|
|
||||||
- Comedy
|
|
||||||
- Conscious
|
|
||||||
- Cow
|
|
||||||
- Crust
|
|
||||||
- Dark
|
|
||||||
- Death
|
|
||||||
- Dirty
|
|
||||||
- Doom
|
|
||||||
- Drone
|
|
||||||
- East Coast
|
|
||||||
- Electroclash
|
|
||||||
- Electronic
|
|
||||||
- Emo
|
|
||||||
- Euro
|
|
||||||
- Experimental
|
|
||||||
- Extreme
|
|
||||||
- Flower
|
|
||||||
- Folk
|
|
||||||
- Free
|
|
||||||
- Freestyle
|
|
||||||
- Fucking
|
|
||||||
- Fun
|
|
||||||
- Funk
|
|
||||||
- Fusion
|
|
||||||
- Future
|
|
||||||
- Gangsta
|
|
||||||
- Garage
|
|
||||||
- Ghetto
|
|
||||||
- Glam
|
|
||||||
- Gospel
|
|
||||||
- Gothic
|
|
||||||
- Grind
|
|
||||||
- Groove
|
|
||||||
- Happy
|
|
||||||
- Hard
|
|
||||||
- Hardcore
|
|
||||||
- Harmonica
|
|
||||||
- Handsup
|
|
||||||
- Heavy
|
|
||||||
- Horror
|
|
||||||
- Indian
|
|
||||||
- Indie
|
|
||||||
- Independent
|
|
||||||
- Industrial
|
|
||||||
- Instrumental
|
|
||||||
- Latin
|
|
||||||
- Lounge
|
|
||||||
- Mainstream
|
|
||||||
- Medieval
|
|
||||||
- Melodic
|
|
||||||
- Minimal
|
|
||||||
- Neo
|
|
||||||
- New age
|
|
||||||
- Ninja
|
|
||||||
- Nintendo
|
|
||||||
- Noise
|
|
||||||
- Nu
|
|
||||||
- Pagan
|
|
||||||
- Pirate
|
|
||||||
- Post
|
|
||||||
- Power
|
|
||||||
- Progressive
|
|
||||||
- Psychedelic
|
|
||||||
- Skate
|
|
||||||
- Sludge
|
|
||||||
- Southern
|
|
||||||
- Space
|
|
||||||
- Speed
|
|
||||||
- Stoner
|
|
||||||
- Street
|
|
||||||
- Sunshine
|
|
||||||
- Surf
|
|
||||||
- Swedish
|
|
||||||
- Swing
|
|
||||||
- Symphonic
|
|
||||||
- Synth
|
|
||||||
- Teutonic
|
|
||||||
- Traditional
|
|
||||||
- Trash
|
|
||||||
- Viking
|
|
||||||
- Vocal
|
|
||||||
- Wave
|
|
||||||
- West Coast
|
|
||||||
- World
|
|
||||||
|
|
@ -0,0 +1,285 @@
|
||||||
|
#!/usr/bin/env perl
|
||||||
|
use Mojolicious::Lite;
|
||||||
|
use Data::Random qw(rand_enum);
|
||||||
|
|
||||||
|
my @genres = (
|
||||||
|
'Aggrotech',
|
||||||
|
'Ambient',
|
||||||
|
'Beat',
|
||||||
|
'Bluegrass',
|
||||||
|
'Blues',
|
||||||
|
'Chiptune',
|
||||||
|
'Core',
|
||||||
|
'Country',
|
||||||
|
'Cumbia',
|
||||||
|
'Dance',
|
||||||
|
'Dancehall',
|
||||||
|
'Drum and Bass',
|
||||||
|
'Dub',
|
||||||
|
'Dubstep',
|
||||||
|
'EBM',
|
||||||
|
'Flamenco',
|
||||||
|
'Grunge',
|
||||||
|
'Goa',
|
||||||
|
'Gospel',
|
||||||
|
'Hardstyle',
|
||||||
|
'Hip-hop',
|
||||||
|
'House',
|
||||||
|
'Humppa',
|
||||||
|
'Industrial',
|
||||||
|
'Jazz',
|
||||||
|
'Metal',
|
||||||
|
'Oi!',
|
||||||
|
'Polka',
|
||||||
|
'Pop',
|
||||||
|
'Punk',
|
||||||
|
'Rap',
|
||||||
|
'Rave',
|
||||||
|
'Reggae',
|
||||||
|
'Rockabilly',
|
||||||
|
'Samba',
|
||||||
|
'Schranz',
|
||||||
|
'Ska',
|
||||||
|
'Soul',
|
||||||
|
'Techhouse',
|
||||||
|
'Techno',
|
||||||
|
'Tekkno',
|
||||||
|
'Trance',
|
||||||
|
'Triphop',
|
||||||
|
'Twostep',
|
||||||
|
'Western',
|
||||||
|
);
|
||||||
|
|
||||||
|
my @subgenres = (
|
||||||
|
'30s',
|
||||||
|
'40s',
|
||||||
|
'50s',
|
||||||
|
'60s',
|
||||||
|
'70s',
|
||||||
|
'80s',
|
||||||
|
'Acid',
|
||||||
|
'Alternative',
|
||||||
|
'Ambient',
|
||||||
|
'Anatolian',
|
||||||
|
'Arena',
|
||||||
|
'Art',
|
||||||
|
'Australian',
|
||||||
|
'Australian',
|
||||||
|
'Avantgarde',
|
||||||
|
'Balearic',
|
||||||
|
'Balkan',
|
||||||
|
'Battle',
|
||||||
|
'Black',
|
||||||
|
'Body',
|
||||||
|
'Bossa nova',
|
||||||
|
'Brit',
|
||||||
|
'Celtic',
|
||||||
|
'Chinese',
|
||||||
|
'Christian',
|
||||||
|
'Comedy',
|
||||||
|
'Conscious',
|
||||||
|
'Cow',
|
||||||
|
'Crust',
|
||||||
|
'Dark',
|
||||||
|
'Death',
|
||||||
|
'Dirty',
|
||||||
|
'Doom',
|
||||||
|
'Drone',
|
||||||
|
'East Coast',
|
||||||
|
'Electroclash',
|
||||||
|
'Electronic',
|
||||||
|
'Emo',
|
||||||
|
'Euro',
|
||||||
|
'Experimental',
|
||||||
|
'Extreme',
|
||||||
|
'Flower',
|
||||||
|
'Folk',
|
||||||
|
'Free',
|
||||||
|
'Freestyle',
|
||||||
|
'Fucking',
|
||||||
|
'Fun',
|
||||||
|
'Funk',
|
||||||
|
'Fusion',
|
||||||
|
'Future',
|
||||||
|
'Gangsta',
|
||||||
|
'Garage',
|
||||||
|
'Ghetto',
|
||||||
|
'Glam',
|
||||||
|
'Gospel',
|
||||||
|
'Gothic',
|
||||||
|
'Grind',
|
||||||
|
'Groove',
|
||||||
|
'Happy',
|
||||||
|
'Hard',
|
||||||
|
'Hardcore',
|
||||||
|
'Harmonica',
|
||||||
|
'Handsup',
|
||||||
|
'Heavy',
|
||||||
|
'Horror',
|
||||||
|
'Indian',
|
||||||
|
'Indie',
|
||||||
|
'Independent',
|
||||||
|
'Industrial',
|
||||||
|
'Instrumental',
|
||||||
|
'Latin',
|
||||||
|
'Lounge',
|
||||||
|
'Mainstream',
|
||||||
|
'Medieval',
|
||||||
|
'Melodic',
|
||||||
|
'Minimal',
|
||||||
|
'Neo',
|
||||||
|
'New age',
|
||||||
|
'Ninja',
|
||||||
|
'Nintendo',
|
||||||
|
'Noise',
|
||||||
|
'Nu',
|
||||||
|
'Pagan',
|
||||||
|
'Pirate',
|
||||||
|
'Post',
|
||||||
|
'Power',
|
||||||
|
'Progressive',
|
||||||
|
'Psychedelic',
|
||||||
|
'Skate',
|
||||||
|
'Sludge',
|
||||||
|
'Southern',
|
||||||
|
'Space',
|
||||||
|
'Speed',
|
||||||
|
'Stoner',
|
||||||
|
'Street',
|
||||||
|
'Sunshine',
|
||||||
|
'Surf',
|
||||||
|
'Swedish',
|
||||||
|
'Swing',
|
||||||
|
'Symphonic',
|
||||||
|
'Synth',
|
||||||
|
'Teutonic',
|
||||||
|
'Traditional',
|
||||||
|
'Trash',
|
||||||
|
'Viking',
|
||||||
|
'Vocal',
|
||||||
|
'Wave',
|
||||||
|
'West Coast',
|
||||||
|
'World',
|
||||||
|
);
|
||||||
|
|
||||||
|
my @cities = (
|
||||||
|
'Berlin',
|
||||||
|
'Bakersfield',
|
||||||
|
'Detroit',
|
||||||
|
'Frankfurt',
|
||||||
|
'Gothenburg',
|
||||||
|
'Ibiza',
|
||||||
|
'London',
|
||||||
|
'New Orleans',
|
||||||
|
'Rio',
|
||||||
|
'Rotterdam',
|
||||||
|
'San Francisco',
|
||||||
|
);
|
||||||
|
|
||||||
|
sub chance {
|
||||||
|
my ($percent) = @_;
|
||||||
|
return int(rand 101) <= $percent;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub generate {
|
||||||
|
my @genre;
|
||||||
|
|
||||||
|
push @genre, rand_enum(set => \@cities) if chance 10;
|
||||||
|
push @genre, rand_enum(set => \@subgenres) if chance 70;
|
||||||
|
push @genre, rand_enum(set => \@subgenres);
|
||||||
|
push @genre, rand_enum(set => \@genres);
|
||||||
|
|
||||||
|
return join ' ', @genre;
|
||||||
|
}
|
||||||
|
|
||||||
|
get '/' => sub {
|
||||||
|
my ($self) = @_;
|
||||||
|
$self->render('index', genre => generate());
|
||||||
|
};
|
||||||
|
|
||||||
|
get '/plain' => sub {
|
||||||
|
my ($self) = @_;
|
||||||
|
$self->render(text => generate());
|
||||||
|
};
|
||||||
|
|
||||||
|
app->start;
|
||||||
|
|
||||||
|
__DATA__
|
||||||
|
|
||||||
|
@@ index.html.ep
|
||||||
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
|
||||||
|
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
|
||||||
|
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
|
||||||
|
<head>
|
||||||
|
<title>
|
||||||
|
Listen to <%= $genre %>
|
||||||
|
</title>
|
||||||
|
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
|
||||||
|
<link rel="stylesheet" type="text/css" href="/style.css" />
|
||||||
|
</head>
|
||||||
|
<body>
|
||||||
|
<div id="title"> Listen to </div>
|
||||||
|
|
||||||
|
<div id="genre"> <a href="/"><%= $genre %></a> </div>
|
||||||
|
|
||||||
|
<div id="twitter">
|
||||||
|
<a href="http://twitter.com/share" class="twitter-share-button"
|
||||||
|
data-text="I listen to <%= $genre %> data-count="horizontal">
|
||||||
|
Tweet
|
||||||
|
</a>
|
||||||
|
<script type="text/javascript"
|
||||||
|
src="http://platform.twitter.com/widgets.js"> </script>
|
||||||
|
<br />
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div id="impressum">
|
||||||
|
Created by
|
||||||
|
<a href="http://www.thehappy.de/~xeno/"> xeno </a>
|
||||||
|
and
|
||||||
|
<a href="http://ghosthacking.net"> mxey </a>
|
||||||
|
|
|
||||||
|
<a href="htts://github.com/mxey/genregenerator"> fork me on github </a>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</body>
|
||||||
|
</html>
|
||||||
|
|
||||||
|
@@ style.css
|
||||||
|
|
||||||
|
* {
|
||||||
|
margin: 0px;
|
||||||
|
padding: 0px;
|
||||||
|
}
|
||||||
|
|
||||||
|
body, html {
|
||||||
|
font-family: sans-serif;
|
||||||
|
text-align: center;
|
||||||
|
}
|
||||||
|
|
||||||
|
#title {
|
||||||
|
margin-top: 50px;
|
||||||
|
font-size: 50px;
|
||||||
|
}
|
||||||
|
|
||||||
|
#genre {
|
||||||
|
margin-top: 50px;
|
||||||
|
font-size: 50px;
|
||||||
|
font-weight: bold;
|
||||||
|
color: #666;
|
||||||
|
}
|
||||||
|
|
||||||
|
#twitter {
|
||||||
|
margin-top: 80px;
|
||||||
|
margin-left: 18px;
|
||||||
|
}
|
||||||
|
|
||||||
|
#impressum {
|
||||||
|
margin-top: 5px;
|
||||||
|
font-size: 10px;
|
||||||
|
color: #999;
|
||||||
|
}
|
||||||
|
|
||||||
|
a {
|
||||||
|
color: #666;
|
||||||
|
text-decoration: none;
|
||||||
|
}
|
||||||
|
|
@ -1,28 +0,0 @@
|
||||||
package App::Genregenerator;
|
|
||||||
use Dancer ':syntax';
|
|
||||||
use Data::Random qw(rand_enum);
|
|
||||||
use YAML::XS qw(LoadFile);
|
|
||||||
|
|
||||||
my $data = LoadFile('genres.yml');
|
|
||||||
|
|
||||||
sub chance {
|
|
||||||
my ($percent) = @_;
|
|
||||||
return int(rand(100 / $percent)) == 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub generate_genre {
|
|
||||||
my @genre;
|
|
||||||
|
|
||||||
push @genre, rand_enum(set => $data->{cities}) if chance 10;
|
|
||||||
push @genre, rand_enum(set => $data->{subgroup}) if chance 70;
|
|
||||||
push @genre, rand_enum(set => $data->{subgroup});
|
|
||||||
push @genre, rand_enum(set => $data->{group});
|
|
||||||
|
|
||||||
return join ' ', @genre;
|
|
||||||
}
|
|
||||||
|
|
||||||
get '/' => sub {
|
|
||||||
template 'index', { genre => generate_genre() };
|
|
||||||
};
|
|
||||||
|
|
||||||
true;
|
|
||||||
|
|
@ -1,18 +0,0 @@
|
||||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
||||||
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
||||||
<html>
|
|
||||||
<head>
|
|
||||||
<title>Error 404</title>
|
|
||||||
<link rel="stylesheet" href="/css/error.css" />
|
|
||||||
<meta http-equiv="Content-type" content="text/html; charset=UTF-8" />
|
|
||||||
</head>
|
|
||||||
<body>
|
|
||||||
<h1>Error 404</h1>
|
|
||||||
<div id="content">
|
|
||||||
<h2>Page Not Found</h2><p>Sorry, this is the void.</p>
|
|
||||||
</div>
|
|
||||||
<div id="footer">
|
|
||||||
Powered by <a href="http://perldancer.org/">Dancer</a> 1.3060
|
|
||||||
</div>
|
|
||||||
</body>
|
|
||||||
</html>
|
|
||||||
|
|
@ -1,18 +0,0 @@
|
||||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
||||||
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
||||||
<html>
|
|
||||||
<head>
|
|
||||||
<title>Error 500</title>
|
|
||||||
<link rel="stylesheet" href="/css/error.css" />
|
|
||||||
<meta http-equiv="Content-type" content="text/html; charset=UTF-8" />
|
|
||||||
</head>
|
|
||||||
<body>
|
|
||||||
<h1>Error 500</h1>
|
|
||||||
<div id="content">
|
|
||||||
<h2>Internal Server Error</h2><p>Wooops, something went wrong</p>
|
|
||||||
</div>
|
|
||||||
<div id="footer">
|
|
||||||
Powered by <a href="http://perldancer.org/">Dancer</a> 1.3060
|
|
||||||
</div>
|
|
||||||
</body>
|
|
||||||
</html>
|
|
||||||
|
|
@ -1,70 +0,0 @@
|
||||||
body {
|
|
||||||
font-family: Lucida,sans-serif;
|
|
||||||
}
|
|
||||||
|
|
||||||
h1 {
|
|
||||||
color: #AA0000;
|
|
||||||
border-bottom: 1px solid #444;
|
|
||||||
}
|
|
||||||
|
|
||||||
h2 { color: #444; }
|
|
||||||
|
|
||||||
pre {
|
|
||||||
font-family: "lucida console","monaco","andale mono","bitstream vera sans mono","consolas",monospace;
|
|
||||||
font-size: 12px;
|
|
||||||
border-left: 2px solid #777;
|
|
||||||
padding-left: 1em;
|
|
||||||
}
|
|
||||||
|
|
||||||
footer {
|
|
||||||
font-size: 10px;
|
|
||||||
}
|
|
||||||
|
|
||||||
span.key {
|
|
||||||
color: #449;
|
|
||||||
font-weight: bold;
|
|
||||||
width: 120px;
|
|
||||||
display: inline;
|
|
||||||
}
|
|
||||||
|
|
||||||
span.value {
|
|
||||||
color: #494;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* these are for the message boxes */
|
|
||||||
|
|
||||||
pre.content {
|
|
||||||
background-color: #eee;
|
|
||||||
color: #000;
|
|
||||||
padding: 1em;
|
|
||||||
margin: 0;
|
|
||||||
border: 1px solid #aaa;
|
|
||||||
border-top: 0;
|
|
||||||
margin-bottom: 1em;
|
|
||||||
}
|
|
||||||
|
|
||||||
div.title {
|
|
||||||
font-family: "lucida console","monaco","andale mono","bitstream vera sans mono","consolas",monospace;
|
|
||||||
font-size: 12px;
|
|
||||||
background-color: #aaa;
|
|
||||||
color: #444;
|
|
||||||
font-weight: bold;
|
|
||||||
padding: 3px;
|
|
||||||
padding-left: 10px;
|
|
||||||
}
|
|
||||||
|
|
||||||
pre.content span.nu {
|
|
||||||
color: #889;
|
|
||||||
margin-right: 10px;
|
|
||||||
}
|
|
||||||
|
|
||||||
pre.error {
|
|
||||||
background: #334;
|
|
||||||
color: #ccd;
|
|
||||||
padding: 1em;
|
|
||||||
border-top: 1px solid #000;
|
|
||||||
border-left: 1px solid #000;
|
|
||||||
border-right: 1px solid #eee;
|
|
||||||
border-bottom: 1px solid #eee;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
@ -1,37 +0,0 @@
|
||||||
* {
|
|
||||||
margin: 0px;
|
|
||||||
padding: 0px;
|
|
||||||
}
|
|
||||||
|
|
||||||
body, html {
|
|
||||||
font-family: sans-serif;
|
|
||||||
text-align: center;
|
|
||||||
}
|
|
||||||
|
|
||||||
#title {
|
|
||||||
margin-top: 50px;
|
|
||||||
font-size: 50px;
|
|
||||||
}
|
|
||||||
|
|
||||||
#genre {
|
|
||||||
margin-top: 50px;
|
|
||||||
font-size: 50px;
|
|
||||||
font-weight: bold;
|
|
||||||
color: #666;
|
|
||||||
}
|
|
||||||
|
|
||||||
#twitter {
|
|
||||||
margin-top: 80px;
|
|
||||||
margin-left: 18px;
|
|
||||||
}
|
|
||||||
|
|
||||||
#impressum {
|
|
||||||
margin-top: 5px;
|
|
||||||
font-size: 10px;
|
|
||||||
color: #999;
|
|
||||||
}
|
|
||||||
|
|
||||||
a {
|
|
||||||
color: #666;
|
|
||||||
text-decoration: none;
|
|
||||||
}
|
|
||||||
|
|
@ -1,15 +0,0 @@
|
||||||
#!/usr/bin/env perl
|
|
||||||
use Dancer ':syntax';
|
|
||||||
use FindBin '$RealBin';
|
|
||||||
use Plack::Runner;
|
|
||||||
|
|
||||||
# For some reason Apache SetEnv directives dont propagate
|
|
||||||
# correctly to the dispatchers, so forcing PSGI and env here
|
|
||||||
# is safer.
|
|
||||||
set apphandler => 'PSGI';
|
|
||||||
set environment => 'production';
|
|
||||||
|
|
||||||
my $psgi = path($RealBin, '..', 'bin', 'app.pl');
|
|
||||||
die "Unable to read startup script: $psgi" unless -r $psgi;
|
|
||||||
|
|
||||||
Plack::Runner->run($psgi);
|
|
||||||
|
|
@ -1,17 +0,0 @@
|
||||||
#!/usr/bin/env perl
|
|
||||||
use Dancer ':syntax';
|
|
||||||
use FindBin '$RealBin';
|
|
||||||
use Plack::Handler::FCGI;
|
|
||||||
|
|
||||||
# For some reason Apache SetEnv directives dont propagate
|
|
||||||
# correctly to the dispatchers, so forcing PSGI and env here
|
|
||||||
# is safer.
|
|
||||||
set apphandler => 'PSGI';
|
|
||||||
set environment => 'production';
|
|
||||||
|
|
||||||
my $psgi = path($RealBin, '..', 'bin', 'app.pl');
|
|
||||||
my $app = do($psgi);
|
|
||||||
die "Unable to read startup script: $@" if $@;
|
|
||||||
my $server = Plack::Handler::FCGI->new(nproc => 5, detach => 1);
|
|
||||||
|
|
||||||
$server->run($app);
|
|
||||||
|
|
@ -1 +0,0 @@
|
||||||
/usr/share/javascript/jquery/jquery.js
|
|
||||||
|
|
@ -1,5 +0,0 @@
|
||||||
use Test::More tests => 1;
|
|
||||||
use strict;
|
|
||||||
use warnings;
|
|
||||||
|
|
||||||
use_ok 'App::Genregenerator';
|
|
||||||
|
|
@ -1,10 +0,0 @@
|
||||||
use Test::More tests => 2;
|
|
||||||
use strict;
|
|
||||||
use warnings;
|
|
||||||
|
|
||||||
# the order is important
|
|
||||||
use App::Genregenerator;
|
|
||||||
use Dancer::Test;
|
|
||||||
|
|
||||||
route_exists [GET => '/'], 'a route handler is defined for /';
|
|
||||||
response_status_is ['GET' => '/'], 200, 'response status is 200 for /';
|
|
||||||
|
|
@ -1,28 +0,0 @@
|
||||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
|
|
||||||
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
|
|
||||||
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
|
|
||||||
<head>
|
|
||||||
<title></title>
|
|
||||||
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
|
|
||||||
<link rel="stylesheet" type="text/css" href="/css/style.css" />
|
|
||||||
</head>
|
|
||||||
<body>
|
|
||||||
|
|
||||||
<div id="title">
|
|
||||||
Listen to
|
|
||||||
</div>
|
|
||||||
|
|
||||||
<div id="genre">
|
|
||||||
<a href="/"><% genre %></a>
|
|
||||||
</div>
|
|
||||||
|
|
||||||
<div id="twitter">
|
|
||||||
<a href="http://twitter.com/share" class="twitter-share-button" data-text="I listen to <% genre %> #genregenerator" data-count="horizontal">Tweet</a><script type="text/javascript" src="http://platform.twitter.com/widgets.js"></script><br />
|
|
||||||
</div>
|
|
||||||
|
|
||||||
<div id="impressum">
|
|
||||||
Created by <a href="http://www.thehappy.de/~xeno/">xeno</a> and <a href="http://ghosthacking.net">mxey</a> | <a href="http://ghosthacking.net/git/genregenerator.git">git</a>
|
|
||||||
</div>
|
|
||||||
|
|
||||||
</body>
|
|
||||||
</html>
|
|
||||||
Loading…
Reference in New Issue