fixed spelling error

git-svn-id: http://yolanda.mister-muffin.de/svn@26 7eef14d0-6ed0-489d-bf55-20463b2d70db
This commit is contained in:
erlehmann 2007-10-11 16:25:56 +00:00
parent 0a6c9c9b0b
commit f7f24dd5bf
8 changed files with 8 additions and 1 deletions

View file

@ -1,3 +1,4 @@
#!/usr/bin/perl
require "/var/www/perl/include.pl";
#get tags from database and fill $page with xml

View file

@ -1,3 +1,4 @@
#!/usr/bin/perl
use CGI qw(:standard);
use CGI::Session;
use DBI;

View file

@ -1,3 +1,4 @@
#!/usr/bin/perl
require "/var/www/perl/include.pl";
require "/var/www/perl/functions.pl";

View file

@ -1,3 +1,4 @@
#!/usr/bin/perl
require "/var/www/perl/include.pl";
#initialize session data

View file

@ -1,3 +1,4 @@
#!/usr/bin/perl
require "/var/www/perl/include.pl";
#initialize session data

View file

@ -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]

View file

@ -1,3 +1,4 @@
#!/usr/bin/perl
require "/var/www/perl/include.pl";
require "/var/www/perl/functions.pl";

View file

@ -1,3 +1,4 @@
#!/usr/bin/perl
require "/var/www/perl/include.pl";
require "/var/www/perl/functions.pl";