#!/usr/bin/perl ######################################################### # Forum 4 Visa Version 1.1.0 # # Copyright 2006 Görgen Peterson info@birddog.nu # # Created 02-02-08 Last Modified 03-06-06 # ######################################################### # COPYRIGHT NOTICE # # # # Selling or using the code for this program without prior written consent is # # expressly forbidden. In other words, please ask first before you try and # # make money off of my program. # # # ######################################################### require 'forum.conf'; use CGI qw/standard/; use POSIX; use DBI; $| = 1; $loc= POSIX::setlocale(LC_ALL,"sv_SE"); use locale; # Set Variables $cgiurl = "http://www.birddog.nu/cgi-bin/forum/forumvisa.pl"; $data = "/data/c/b/cbb8dbd0-ab95-45a5-a826-b0aad312044b/birddog.nu/public_html/common/logg/forumlog2.txt"; $tabell = "forum"; ################################################## # Läs in data. $query = new CGI; @keywords = $query->keywords; $visa = $keywords[0]; $visa1 = $visa - 17; # Läs in databasen och sortera den i datumordning. &data; # Visa resultatet. &visa; # # # SUBRUTINER # # # sub data { # läs in databas $output= new CGI; $check=1; $dbh = DBI->connect("$dsn", "$userserver", "$passerver") || &fel ('1'); $sth = $dbh->prepare("SELECT * FROM $tabell ORDER BY andrad DESC") || &fel ('1'); $check &&= $sth->execute(); #Stäng databasen. $dbh->disconnect; } sub visa { print "Content-type: text/html\n\n"; print "\n"; print "Nya Forum\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; # plocka ut de fält som ska visas och skriv ut posterna. for ($i = 0; $i<=$visa; $i++) { @rader = $sth->fetchrow_array(); $id[$i]= @rader[0]; $rubrik[$i]= @rader[1]; $skapad[$i] = @rader[2]; $andrad[$i]= @rader[3]; $antal[$i]= @rader[4]; $status[$i]= @rader[5]; } for ($i = ($visa-17); $i<=$visa; $i++) { if ($id[$i] >= 1950) { $sida = "../../forum/forum$id[$i]/texter.php"; } else { $sida = "../../forum/forum$id[$i]/texter.shtml"; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } print "
  ämnesområdenskapad den  senasteantal texterstatus
$rubrik[$i]$skapad[$i]$andrad[$i]$antal[$i]     \n"; if ($status[$i] ==1) { print "  \n"; } if ($status[$i] ==2) { print "  \n"; } print "
\n"; print "
\n"; print "\n"; print ""; $ii++; $i3++; } print "
sida:\n"; $ii =100; $i3= 1; $i4 = 18; for ($i = 1700; $i <= $check; $i=$i+17) { if ( $i3>= $i4) { print "
\n"; $i3=0; $i4 = 17; } $start = $i+16; print "
$ii
\n"; print "\n"; exit; } sub fel { $error = shift(@_); print "Content-type: text/html\n\n"; print "Forum, felmeddelande\n"; print"\n"; print "\n"; print "
\n"; print "

Felmeddelande!

\n"; print "
\n"; if ($error eq '1') { print "

Fel: Kan inte öppna eller läsa ifrån databasen.
\n"; print "Försök igen senare.

\n"; } print "
\n"; print "
<< tillbaka
\n"; print "\n"; exit; } # Slut i rutan. print "Content-type: text/html\n\n"; print "Forum, underhåll\n"; print "\n"; print "Forum stängt på grund av underhåll!

\n"; print "Visa: $visa
Antal rader: $count
\n"; print"\n"; exit;