diff --git a/trunk/functions.pl b/trunk/functions.pl index aba29f5..5517e7c 100644 --- a/trunk/functions.pl +++ b/trunk/functions.pl @@ -1,3 +1,4 @@ +#!/usr/bin/perl require "/var/www/perl/include.pl"; #get tags from database and fill $page with xml diff --git a/trunk/include.pl b/trunk/include.pl index b9c9a50..291d5e6 100644 --- a/trunk/include.pl +++ b/trunk/include.pl @@ -1,3 +1,4 @@ +#!/usr/bin/perl use CGI qw(:standard); use CGI::Session; use DBI; diff --git a/trunk/index.pl b/trunk/index.pl index 032aae4..62edc79 100644 --- a/trunk/index.pl +++ b/trunk/index.pl @@ -1,3 +1,4 @@ +#!/usr/bin/perl require "/var/www/perl/include.pl"; require "/var/www/perl/functions.pl"; diff --git a/trunk/login.pl b/trunk/login.pl index bec36c8..4ee5a77 100644 --- a/trunk/login.pl +++ b/trunk/login.pl @@ -1,3 +1,4 @@ +#!/usr/bin/perl require "/var/www/perl/include.pl"; #initialize session data diff --git a/trunk/register.pl b/trunk/register.pl index 09f660b..71e9dd0 100644 --- a/trunk/register.pl +++ b/trunk/register.pl @@ -1,3 +1,4 @@ +#!/usr/bin/perl require "/var/www/perl/include.pl"; #initialize session data diff --git a/trunk/search.pl b/trunk/search.pl index 58598d7..316d4c8 100644 --- a/trunk/search.pl +++ b/trunk/search.pl @@ -29,7 +29,7 @@ if($query->param('query')) { #get every returned value while (my ($title, $caption) = $sth->fetchrow_array()) { - #really ofuscated array/hash creation + #really obfuscated array/hash creation push @{ $page->{'results'}->{'result'} }, { 'thumbnail' => ['./video-stills/225x150/4chan_city_mashup.png'], 'rdf:RDF' => { 'cc:Work' => { 'rdf:about' => './videos/1050x700/4chan_city_mashup.ogg', 'dc:title' => [$title] diff --git a/trunk/upload.pl b/trunk/upload.pl index 41d53f0..418b34b 100644 --- a/trunk/upload.pl +++ b/trunk/upload.pl @@ -1,3 +1,4 @@ +#!/usr/bin/perl require "/var/www/perl/include.pl"; require "/var/www/perl/functions.pl"; diff --git a/trunk/uploader.pl b/trunk/uploader.pl index 0933bac..b412536 100644 --- a/trunk/uploader.pl +++ b/trunk/uploader.pl @@ -1,3 +1,4 @@ +#!/usr/bin/perl require "/var/www/perl/include.pl"; require "/var/www/perl/functions.pl";