openguides-commits September 2007

openguides-commits@lists.openguides.org

1 participants
5 discussions

r1123 - in website-new/preview/events/talks: notcon-2004 yapc-eu-2003 yapc-na-2005
by svnadmin＠urchin.earth.li 17 Sep '07

17 Sep '07

Author: dom Date: 2007-09-17 22:44:15 +0100 (Mon, 17 Sep 2007) New Revision: 1123 Removed: website-new/preview/events/talks/notcon-2004/index.cgi website-new/preview/events/talks/yapc-eu-2003/index.cgi website-new/preview/events/talks/yapc-na-2005/index.cgi Log: no more CGIs Deleted: website-new/preview/events/talks/notcon-2004/index.cgi =================================================================== --- website-new/preview/events/talks/notcon-2004/index.cgi 2007-09-17 21:41:48 UTC (rev 1122) +++ website-new/preview/events/talks/notcon-2004/index.cgi 2007-09-17 21:44:15 UTC (rev 1123) @@ -1,33 +0,0 @@ -#!/usr/bin/perl - -use warnings; -use strict; - -use CGI; -use Template; - -my $q = CGI->new; -my $template = Template->new({ INCLUDE_PATH => 'templates' }); -my $page = $q->param('page') || ''; - -print "Content-Type: text/html\n\n"; - -eval -{ - # If a page was specified, put it in the template variable 'page'. - # If no page was specified, use the default page "contents". - my $selected_page = 'contents'; - - $selected_page = $page if $page; - - my $vars = { page => $selected_page }; - - # Process the wrapper template with the page variable. - $template->process('wrapper', $vars); -}; - -if ($template->error) -{ - my $vars = { error => $template->error }; - $template->process('error', $vars); -}; \ No newline at end of file Deleted: website-new/preview/events/talks/yapc-eu-2003/index.cgi =================================================================== --- website-new/preview/events/talks/yapc-eu-2003/index.cgi 2007-09-17 21:41:48 UTC (rev 1122) +++ website-new/preview/events/talks/yapc-eu-2003/index.cgi 2007-09-17 21:44:15 UTC (rev 1123) @@ -1,64 +0,0 @@ -#!/usr/bin/perl -w - -use strict; - -use CGI; -use Template; - -my $q = CGI->new(); - -my $template = Template->new({ - INCLUDE_PATH => '/home/earle/openguides.org/talks/yapc-eu-2003/templates/', -}); - -# Initialise variables. - -my $vars = {}; - -# Get what page we're looking at from the CGI parameter "page". - -my $page = $q->param('page') || ''; - -print "Content-Type: text/html\n\n"; - -# Eval for catching TT errors. - -eval { - - # If a page was specified, put it in the template variable 'page'. - - if ($page) { - $vars = { - page => $page - }; - - } - - # If no page was specified, use the default page "contents". - - else { - - $vars = { - page => 'contents' - }; - } - - # Process the wrapper template with the page variable. - - $template->process('wrapper', $vars); - -}; - -# If TT threw an error: - -if ($template->error()) { - - # Put the TT error message into a template variable. - - $vars = { error => $template->error }; - - # Process a special error template with the error variable. - - $template->process('error',$vars); - -}; Deleted: website-new/preview/events/talks/yapc-na-2005/index.cgi =================================================================== --- website-new/preview/events/talks/yapc-na-2005/index.cgi 2007-09-17 21:41:48 UTC (rev 1122) +++ website-new/preview/events/talks/yapc-na-2005/index.cgi 2007-09-17 21:44:15 UTC (rev 1123) @@ -1,52 +0,0 @@ -#!/usr/bin/perl - -use warnings; -use strict; - -use CGI 'param'; -use Template; - -run(); - -sub run -{ - my $template = Template->new({ - EVAL_PERL => 1, - INCLUDE_PATH => 'templates' - }); - my $vars = {}; - my $page = CGI->new->param('keywords') || ''; - - print "Content-Type: text/html\n\n"; - - # Eval for catching TT errors. - - eval - { - if ($page) { $vars = { page => $page }; } - else { $vars = { page => 'contents' }; } - - $template->process('wrapper', $vars); - }; - - - error($template->error) if $template->error; -} - -sub error -{ - my $error = shift || "No error given, something went wrong!"; - - print <<HTMLSTOP; -<html> -<head> -<title>Error</title> -</head> -<body> -<h1>Error</h1> -<h2>$error</h2> -</body> -</html> -HTMLSTOP - -};

1 0

r1122 - in website-new/preview/events/talks: notcon-2004 yapc-eu-2003 yapc-na-2005
by svnadmin＠urchin.earth.li 17 Sep '07

17 Sep '07

Author: dom Date: 2007-09-17 22:41:48 +0100 (Mon, 17 Sep 2007) New Revision: 1122 Removed: website-new/preview/events/talks/notcon-2004/.htaccess website-new/preview/events/talks/yapc-eu-2003/.htaccess website-new/preview/events/talks/yapc-na-2005/.htaccess Log: not compatible with new setup Deleted: website-new/preview/events/talks/notcon-2004/.htaccess =================================================================== --- website-new/preview/events/talks/notcon-2004/.htaccess 2007-09-17 21:38:58 UTC (rev 1121) +++ website-new/preview/events/talks/notcon-2004/.htaccess 2007-09-17 21:41:48 UTC (rev 1122) @@ -1,3 +0,0 @@ -Options +ExecCGI -AddHandler cgi-script .cgi -DirectoryIndex index.cgi \ No newline at end of file Deleted: website-new/preview/events/talks/yapc-eu-2003/.htaccess =================================================================== --- website-new/preview/events/talks/yapc-eu-2003/.htaccess 2007-09-17 21:38:58 UTC (rev 1121) +++ website-new/preview/events/talks/yapc-eu-2003/.htaccess 2007-09-17 21:41:48 UTC (rev 1122) @@ -1,3 +0,0 @@ -Options +ExecCGI -AddHandler cgi-script .cgi -DirectoryIndex index.cgi \ No newline at end of file Deleted: website-new/preview/events/talks/yapc-na-2005/.htaccess =================================================================== --- website-new/preview/events/talks/yapc-na-2005/.htaccess 2007-09-17 21:38:58 UTC (rev 1121) +++ website-new/preview/events/talks/yapc-na-2005/.htaccess 2007-09-17 21:41:48 UTC (rev 1122) @@ -1,3 +0,0 @@ -Options +ExecCGI -AddHandler cgi-script .cgi -DirectoryIndex index.cgi \ No newline at end of file

1 0

r1121 - website-new/preview/misc
by svnadmin＠urchin.earth.li 17 Sep '07

17 Sep '07

Author: dom Date: 2007-09-17 22:38:58 +0100 (Mon, 17 Sep 2007) New Revision: 1121 Removed: website-new/preview/misc/old_sites/ Log: remove unneeded junk

1 0

r1120 - website-new/preview
by svnadmin＠urchin.earth.li 17 Sep '07

17 Sep '07

Author: dom Date: 2007-09-17 22:20:04 +0100 (Mon, 17 Sep 2007) New Revision: 1120 Removed: website-new/preview/index.cgi website-new/preview/page Modified: website-new/preview/.htaccess Log: remove obvious cgi stuff Modified: website-new/preview/.htaccess =================================================================== --- website-new/preview/.htaccess 2007-09-17 21:12:09 UTC (rev 1119) +++ website-new/preview/.htaccess 2007-09-17 21:20:04 UTC (rev 1120) @@ -1,10 +0,0 @@ -Options +ExecCGI -AddHandler cgi-script .cgi - -DirectoryIndex page - -<FilesMatch "^(page)$"> - SetHandler cgi-script - Options +ExecCGI -</FilesMatch> - Deleted: website-new/preview/index.cgi =================================================================== --- website-new/preview/index.cgi 2007-09-17 21:12:09 UTC (rev 1119) +++ website-new/preview/index.cgi 2007-09-17 21:20:04 UTC (rev 1120) @@ -1,37 +0,0 @@ -#!/usr/bin/perl - -use warnings; -use strict; - -my $url = "http://openguides.org/"; -my $env = ''; - -if ($ENV{'QUERY_STRING'}) { - $env = $ENV{'QUERY_STRING'}; - $env =~ s/page=//; - $env = 'page/' . $env; -} - -print <<HTML; -Server Response: http://openguides.org/index.cgi -Status: HTTP/1.1 301 Moved Permanently -Content-Type: text/html -Location: $url$env - -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> -<html> -<head> - <meta http-equiv="Refresh" content="0; url=$url$env"> - <meta http-equiv="Status" content="HTTP/1.1 301 Moved Permanently"> - <meta http-equiv="Location" content="$url$env"> - <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> - <title>301 Moved Permanently</title> -</head> -<body> -<h1>301 Moved Permanently</h1> -<p> -This resource has moved to <a href="$url$env">$url$env</a>. -</p> -</body> -</html> -HTML Deleted: website-new/preview/page =================================================================== --- website-new/preview/page 2007-09-17 21:12:09 UTC (rev 1119) +++ website-new/preview/page 2007-09-17 21:20:04 UTC (rev 1120) @@ -1,62 +0,0 @@ -#!/usr/bin/perl - -use warnings; -use strict; - -use Template; - -my $tt = Template->new({ - EVAL_PERL => 1, - INCLUDE_PATH => 'templates', - PRE_PROCESS => 'config', - PRE_CHOMP => 1, - POST_CHOMP => 1 - }); - -my $page = $ENV{'REQUEST_URI'} || 'home'; -my $script = $ENV{'SCRIPT_NAME'}; -$page =~ s{^$script/}{}; -$page = 'home' if $page =~ m{\*|\?|/}; # elite security - -my $vars = { page => $page }; - -print "Content-Type: text/html\n\n"; - -$tt->process('wrapper', $vars) || error($tt->error); - -sub error { - my $error = shift; - - print <<HTML; -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> -<html> -<head> - <title>Error</title> -<style type="text/css"> -body { - background: #fff; - color: #000; - margin: 10px; - font: 1em Verdana, Arial, sans-serif -} -blockquote { - background: #ccc; - color: #000; - border: 1px dotted #000; - padding: 10px -} -</style> -</head> -<body> -<h1>Error</h1> -<p> -Something has gone wrong. Here's what Template Toolkit had to say: -</p> -<blockquote> -$error -</blockquote> -</body> -</html> -HTML - -}

1 0

r1119 - / website-new
by svnadmin＠urchin.earth.li 17 Sep '07

17 Sep '07

Author: dom Date: 2007-09-17 22:12:09 +0100 (Mon, 17 Sep 2007) New Revision: 1119 Added: website-new/ website-new/preview/ Log: add new web site structure Copied: website-new/preview (from rev 1118, website)

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

openguides-commits September 2007