fixed spelling error

git-svn-id: http://yolanda.mister-muffin.de/svn@26 7eef14d0-6ed0-489d-bf55-20463b2d70db
main
erlehmann 17 years ago
parent 0a6c9c9b0b
commit f7f24dd5bf

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

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

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

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

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

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

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

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

Loading…
Cancel
Save