Permalink
Browse files

initial version after moving from SVN

  • Loading branch information...
0 parents commit 1dbfb3d5c330e72f109c46e0ada46cdc228acd67 @szabgab committed Nov 3, 2010
@@ -0,0 +1,21 @@
+use strict;
+use warnings;
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+ NAME => 'PEG',
+ AUTHOR => q{YOUR NAME <youremail@example.com>},
+ VERSION_FROM => 'lib/PEG.pm',
+ ABSTRACT => 'YOUR APPLICATION ABSTRACT',
+ ($ExtUtils::MakeMaker::VERSION >= 6.3002
+ ? ('LICENSE'=> 'perl')
+ : ()),
+ PL_FILES => {},
+ PREREQ_PM => {
+ 'Test::More' => 0,
+ 'YAML' => 0,
+ 'Dancer' => 1.1901,
+ },
+ dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
+ clean => { FILES => 'PEG-*' },
+);
@@ -0,0 +1,5 @@
+#!/usr/bin/env perl
+use Dancer;
+use lib path(dirname(__FILE__), 'lib');
+load_app 'PEG';
+dance;
@@ -0,0 +1,4 @@
+layout: "main"
+logger: "file"
+appname: "PEG"
+
@@ -0,0 +1,8 @@
+log: "core"
+warnings: 1
+show_errors: 1
+
+# auto_reload is a development feature
+# you should enable it by yourself if you want it
+# Module::Refresh is needed
+auto_reload: 0
@@ -0,0 +1,7 @@
+log: "warning"
+warnings: 0
+show_errors: 0
+route_cache: 1
+# never enable auto_reload in production
+auto_reload: 0
+
@@ -0,0 +1,88 @@
+package PEG;
+use Dancer ':syntax';
+
+our $VERSION = '0.1';
+
+
+get '/(index.html)?' => sub {
+ template 'index', {
+ title => 'Perl Ecosystem Group',
+ subtitle => 'Welcome',
+ description => 'The Perl Ecosystem Group is bridging the gap between business using Perl and the open source Perl community',
+ };
+};
+
+get '/what' => sub {
+ template 'what', {
+ title => 'What does The Perl Ecosystem Group do?',
+ subtitle => 'What?',
+ description => 'Promoting Perl outside the Perl echo-chamber, at non-Perl events, via journals etc.',
+ };
+};
+
+get '/who' => sub {
+ template 'who', {
+ title => 'About us',
+ subtitle => 'Who?',
+ description => 'The people organizing the Perl related talks and the Perl themed development rooms.',
+ };
+};
+
+get '/members' => sub {
+ template 'members', {
+ title => 'Members',
+ subtitle => 'Members',
+ description => 'Members of the Perl Ecosystem Group.',
+ };
+};
+
+get '/events' => sub {
+ template 'events', {
+ title => 'List of upcoming events',
+ subtitle => 'Events',
+ description => 'Events where the The Perl Ecosystem Group will organize Perl related talks and will setup a Perl themed booth.',
+ };
+};
+
+get '/contact' => sub {
+ template 'contact', {
+ title => 'Contact Us',
+ subtitle => 'Contact',
+ description => 'The Perl Ecosystem Group is bridging the gap between business using Perl and the open source Perl community',
+ };
+};
+
+
+get '/membership' => sub {
+ template 'membership', {
+ title => 'Membership',
+ subtitle => 'Membership',
+ description => 'Information about the membership levels of the Perl Ecosystem Group',
+ };
+};
+
+get '/benefits' => sub {
+ template 'benefits', {
+ title => 'Benefits',
+ subtitle => 'Benefits',
+ description => 'Information about the benefitst of being a member in the Perl Ecosystem Group',
+ };
+};
+
+get '/news' => sub {
+ template 'news', {
+ title => 'News',
+ subtitle => 'News',
+ description => 'News about the Perl Ecosystem Group',
+ };
+};
+
+get '/earlier_events' => sub {
+ template 'earlier_events', {
+ title => 'Earlier events',
+ subtitle => 'Earlier events',
+ description => 'A list of events we participated at. Even before the Perl Ecosystem Group was setup',
+ };
+};
+
+true;
@@ -0,0 +1,18 @@
+<!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.1901
+</div>
+</body>
+</html>
@@ -0,0 +1,18 @@
+<!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.1901
+</div>
+</body>
+</html>
@@ -0,0 +1,70 @@
+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;
+}
+
Oops, something went wrong.

0 comments on commit 1dbfb3d

Please sign in to comment.