webForumDet fria alternativet

Problem med wwwboard

2 svar · 167 visningar · startad av Probyte

ProbyteMedlem sedan maj 200159 inlägg
#1

Hallå,

Jo jag har laddat ner och konfigurerat wwwboard scriptet från Matt's Script Archive (http://www.worldwidemart.com/scripts/wwwboard.shtml) och har nu haft ett problem med det under en längre tid. Det är så att i min iver att få scriptet att fungera som jag vill och se ut som jag vill rent grafiskt så har jag klantat till ngt i koden (det kan lätt bli så när man inte är cgi-kung direkt).

När inlägg läggs in hamnar de ibland fel i själva trädstrukturen, vilket jag givetvis vill rätta till men inte lyckats med. När ett svar läggs på ett annat inlägg vill jag ju att svaret ska bli indraget under det inlägg som man svarar på men så blir inte alltid fallet av ngn anledning. Nedan är min konfigurerade kod:

#!/usr/local/bin/perl
##############################################################################
# WWWBoard                      Version 2.0 ALPHA 2.1                        #
# Copyright 1996 Matt Wright    mattw@worldwidemart.com                      #
# Created 10/21/95              Last Modified 11/25/95                       #
# Security Patches/Bug Fixes:   January 07, 2000                             #
# Scripts Archive at:           [url="http://www.worldwidemart.com/scripts/"]http://www.worldwidemart.com/scripts/[/url]         #
##############################################################################
# COPYRIGHT NOTICE                                                           #
# Copyright 1996 Matthew M. Wright  All Rights Reserved.                     #
#                                                                            #
# WWWBoard may be used and modified free of charge by anyone so long as      #
# this copyright notice and the comments above remain intact.  By using this #
# code you agree to indemnify Matthew M. Wright from any liability that      #  
# might arise from it's use.                                                 #  
#                                                                            #
# Selling 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.                                              #
#                                                                            #
# Obtain permission before redistributing this software over the Internet or #
# in any other medium.  In all cases copyright and header must remain intact.#
##############################################################################
# Define Variables

$basedir = "/home/probyte/wwwboard";
$baseurl = "http://probyte.port5.com/wwwboard";
$cgi_url = "http://probyte.port5.com/cgi-bin/wwwboard.pl";

$mesgdir = "messages";
$datafile = "data.txt";
$mesgfile = "wwwboard.html";
$faqfile = "faq.html";

$ext = "html";

$title = "Korsdragets Webforum";

# Done
###########################################################################

###########################################################################
# Configure Options

$show_faq = 1;		# 1 - YES; 0 = NO
$allow_html = 1;	# 1 = YES; 0 = NO
$quote_text = 0;	# 1 = YES; 0 = NO
$subject_line = 2;	# 0 = Quote Subject Editable; 1 = Quote Subject 
			#   UnEditable; 2 = Don't Quote Subject, Editable.
$use_time = 1;		# 1 = YES; 0 = NO

$show_poster_ip = 0;    # 1 = Show the IP of every poster; 0 = Don't
$enforce_max_len = 0;   # 2 = YES, error; 1 = YES, truncate; 0 = NO
%max_len = ('name', 50, 
            'email', 70, 
            'subject', 80, 
            'url', 150, 
            'url_title', 80,
            'img', 150,
            'body', 3000,
            'origsubject', 80,
            'origname', 50,
            'origemail', 70,
            'origdate', 50);
# Done
###########################################################################

# Get the Data Number
&get_number;

# Get Form Information
&parse_form;

# Put items into nice variables
&get_variables;

# Open the new file and write information to it.
&new_file;

# Open the Main WWWBoard File to add link
&main_page;

# Now Add Thread to Individual Pages
if ($num_followups >= 1) {
   &thread_pages;
}

# Return the user HTML
&return_html;

# Increment Number
&increment_num;

############################
# Get Data Number Subroutine

sub get_number {
   open(NUMBER,"$basedir/$datafile");
   $num = <NUMBER>;
   close(NUMBER);
   if ($num == 999999 &#0124;&#0124; $num !~ /^\d+$/)  {
      $num = "1";
   }
   else {
      $num++;
   }
}

#######################
# Parse Form Subroutine

sub parse_form {
   local($name,$value);

   # Get the input
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

   # Split the name-value pairs
   @pairs = split(/&/, $buffer);

   foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);

      # Un-Webify plus signs and %-encoding
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      # Remove any NULL characters, Server Side Includes
      $value =~ s/\0//g;
      $value =~ s/<!--(.&#0124;\n)*-->//g;

      if ($allow_html != 1) {
         $value =~ s/<([^>]&#0124;\n)*>//g;
      }
      else {
         unless ($name eq 'body') {
	    $value =~ s/<([^>]&#0124;\n)*>//g;
         }
      }

      $FORM{$name} = $value;
   }

   # Make sure that message fields do not exceed allowed value
   if ($enforce_max_len) {
      foreach $name (keys %max_len) {
         if (length($FORM{$name}) > $max_len{$name}) {
            if ($enforce_max_len == 2) { &error('field_size'); }
            else { $FORM{$name} = sprintf("%.$max_len{$name}s",$FORM{$name}); }
         }
      }
   }
}

###############
# Get Variables

sub get_variables {

   if ($FORM{'followup'}) {
      $followup = "1";
      @followup_num = split(/,/,$FORM{'followup'});

      # Changes based in part on information contained in BugTraq archives
      # message 'WWWBoard Vulnerability' posted by Samuel Sparling Nov-09-1998.
      # Also requires that each followup number is in fact a number, to 
      # prevent message clobbering.

      local(%fcheck);
      foreach $fn (@followup_num) {
         if ($fn !~ /^\d+$/ &#0124;&#0124; $fcheck{$fn}) { &error('followup_data'); }
         $fcheck{$fn} = 1;
      }
      @followup_num = keys %fcheck;

      $num_followups = @followups = @followup_num;
      $last_message = pop(@followups);
      $origdate = "$FORM{'origdate'}";
      $origname = "$FORM{'origname'}";
      $origsubject = "$FORM{'origsubject'}";
   }
   else {
      $followup = "0";
   }

   if ($FORM{'name'}) {
      $name = "$FORM{'name'}";
      $name =~ s/"//g;
      $name =~ s/<//g;
      $name =~ s/>//g;
      $name =~ s/\&//g;
   }
   else {
      &error(no_name);
   }

   if ($FORM{'email'} =~ /.*\@.*\..*/) {
      $email = "$FORM{'email'}";
   }

   if ($FORM{'subject'}) {
      $subject = "$FORM{'subject'}";
      $subject =~ s/\&/\&amp\;/g;
      $subject =~ s/"/\&quot\;/g;
   }
   else {
      &error(no_subject);
   }

   if ($FORM{'url'} =~ /.*\:.*\..*/ && $FORM{'url_title'}) {
      $message_url = "$FORM{'url'}";
      $message_url_title = "$FORM{'url_title'}";
   }

   if ($FORM{'img'} =~ /.*tp:\/\/.*\..*/) {
      $message_img = "$FORM{'img'}";
   }

   if ($FORM{'body'}) {
      $body = "$FORM{'body'}";
      $body =~ s/\cM//g;
      $body =~ s/\n\n/<p>/g;
      $body =~ s/\n/<br>/g;

      $body =~ s/</</g; 
      $body =~ s/>/>/g; 
      $body =~ s/&quot;/"/g;
   }
   else {
      &error(no_body);
   }

   if ($quote_text == 1) {
      $hidden_body = "$body";
      $hidden_body =~ s/</</g;
      $hidden_body =~ s/>/>/g;
      $hidden_body =~ s/"/&quot;/g;
   }

   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

if ($sec < 10) {
      $sec = "0$sec";
   }
   if ($min < 10) {
      $min = "0$min";
   }
   if ($hour < 10) {
      $hour = "0$hour";
   }
   if ($mon < 10) {
      $mon = "0$mon";
   }
   if ($mday < 10) {
      $mday = "0$mday";
   }

   $month = ($mon + 1);

   @months = ("Januari","Februari","Mars","April","Maj","Juni","Juli","Augusti","September","Oktober","November","December");

   if ($use_time == 1) {
      $date = "$mday $months[$mon], kl. $hour\:$min";
   }
   else {
      $date = "$mday $months[$mon]";
   }
   chop($date) if ($date =~ /\n$/);

   $long_date = "$mday $months[$mon], kl. $hour\:$min";
}      

#####################
# New File Subroutine

sub new_file {

   open(NEWFILE,">$basedir/$mesgdir/$num\.$ext") &#0124;&#0124; die $!;
   print NEWFILE "<html>\n";
   print NEWFILE "  <head>\n";
   print NEWFILE "    <meta http-equiv=\"cache-control\" content=\"no-cache\">\n";
   print NEWFILE "    <meta http-equiv=\"pragma\" content=\"no-cache\">\n";
   print NEWFILE "    <title>$subject</title>\n";
   print NEWFILE "    <link href=\"../../style.css\" rel=stylesheet type=text/css>\n";
   print NEWFILE "  </head>\n";
   print NEWFILE "  <body bgcolor=\"#48474C\">\n";
   print NEWFILE "  <center>\n";
   print NEWFILE "    <font class=\"small\">\n";
   print NEWFILE "      <b>Inläggets titel: $subject</b></font><br><br>\n";
   print NEWFILE "  </center>\n";
   print NEWFILE "    <font class=\"small\">\n";
   print NEWFILE "<img src=\"http://hem.passagen.se/probyte/korsdraget/gif/forumline.gif\" width=\"626\" height=\"1\" border=\"0\"><br>\n";
   
   print NEWFILE "<b>Inlägg postat av:</b> ";

   if ($email) {
      print NEWFILE "<a href=\"mailto:$email\">$name</a> ";
   }
   else {
      print NEWFILE "$name \n";
   }
   if ($show_poster_ip) { print NEWFILE "($ENV{'REMOTE_ADDR'}) "; }
   print NEWFILE "den $long_date:<p>\n";

   if ($followup == 1) {
      print NEWFILE "<b>Svar på:</b> <a href=\"$last_message\.$ext\">$origsubject</a> postat av ";

      if ($origemail) {
         print NEWFILE "<a href=\"$origemail\">$origname</a> den $origdate:<p>\n";
      }
      else {
         print NEWFILE "$origname den $origdate:<p>\n";
      }
   }

   if ($message_img) {
      print NEWFILE "<center><img src=\"$message_img\"></center><p>\n";
   }
   print NEWFILE "$body\n";
   print NEWFILE "<br>\n";
   if ($message_url) {
      print NEWFILE "<ul><li><a href=\"$message_url\">$message_url_title</a></ul>\n";
   }
   print NEWFILE "<br><img src=\"http://hem.passagen.se/probyte/korsdraget/gif/forumline.gif\" width=\"626\" height=\"1\" border=\"0\"><br>\n";
   print NEWFILE "<a name=\"followups\"><b>Svar:</b></a><br>\n";
   print NEWFILE "<ul><!--insert: $num-->\n";
   print NEWFILE "</ul><!--end: $num-->\n";
   print NEWFILE "<br><img src=\"http://hem.passagen.se/probyte/korsdraget/gif/forumline.gif\" width=\"626\" height=\"1\" border=\"0\"><br>\n";
   print NEWFILE "<a name=\"postfp\"><b>Posta svar:</b></a><p>\n";
   print NEWFILE "<form method=POST action=\"$cgi_url\">\n";
   print NEWFILE "<input type=hidden name=\"followup\" value=\"";
   if ($followup == 1) {
      foreach $followup_num (@followup_num) {
         print NEWFILE "$followup_num,";
      }
   }
   print NEWFILE "$num\">\n";
   print NEWFILE "<input type=hidden name=\"origname\" value=\"$name\">\n";
   if ($email) {
      print NEWFILE "<input type=hidden name=\"origemail\" value=\"$email\">\n";
   }
   print NEWFILE "<input type=hidden name=\"origsubject\" value=\"$subject\">\n";
   print NEWFILE "<input type=hidden name=\"origdate\" value=\"$long_date\">\n";
   print NEWFILE "<b>Namn:</b><br> <input type=text name=\"name\" size=41 style=\"border:1px; border-color: black; border-style: solid; background-color: #eeeedd; font-family: Verdana; font-size:10\"><br>\n";
   print NEWFILE "<b>E-Mail:</b><br> <input type=text name=\"email\" size=41 style=\"border:1px; border-color: black; border-style: solid; background-color: #eeeedd; font-family: Verdana; font-size:10\"><br>\n";
   if ($subject_line == 1) {
      if ($subject_line =~ /^Re:/) {
         print NEWFILE "<input type=hidden name=\"subject\" value=\"$subject\">\n";
         print NEWFILE "<b>Rubrik:</b><br> <b>$subject</b><br>\n";
      }
      else {
         print NEWFILE "<input type=hidden name=\"subject\" value=\"Re: $subject\">\n";
         print NEWFILE "<b>Rubrik:</b><br> <b>Re: $subject</b><br>\n";
      }
   } 
   elsif ($subject_line == 2) {
      print NEWFILE "<b>Rubrik:</b><br> <input type=text name=\"subject\" size=41 style=\"border:1px; border-color: black; border-style: solid; background-color: #eeeedd; font-family: Verdana; font-size:10\"><br>\n";
   }
   else {
      if ($subject =~ /^Re:/) {
         print NEWFILE "<b>Rubrik:</b><br> <input type=text name=\"subject\"value=\"$subject\" size=41 style=\"border:1px; border-color: black; border-style: solid; background-color: #eeeedd; font-family: Verdana; font-size:10\"><br>\n";
      }
      else {
         print NEWFILE "<b>Rubrik:</b><br> <input type=text name=\"subject\" value=\"Re: $subject\" size=41 style=\"border:1px; border-color: black; border-style: solid; background-color: #eeeedd; font-family: Verdana; font-size:10\"><br>\n";
      }
   }
   print NEWFILE "<b>Kommentar:</b><br>\n";
   print NEWFILE "<textarea name=\"body\" COLS=40 ROWS=10 style=\"border:1px; border-color: black; border-style: solid; background-color: #eeeedd; font-family: Verdana; font-size:10\">\n";
   if ($quote_text == 1) {
      @chunks_of_body = split(/\&lt\;p\&gt\;/,$hidden_body);
      foreach $chunk_of_body (@chunks_of_body) {
         @lines_of_body = split(/\&lt\;br\&gt\;/,$chunk_of_body);
         foreach $line_of_body (@lines_of_body) {
            print NEWFILE ": $line_of_body\n";
         }
         print NEWFILE "\n";
      }
   }
   print NEWFILE "</textarea>\n";
   print NEWFILE "<br>\n";
   print NEWFILE "<input type=submit value=\"Skicka svar\" style=\"border:1px; border-color: black; border-style: solid; font-family: Verdana; font-size:10\"> <input type=reset value=\"Rensa\" style=\"border:1px; border-color: black; border-style: solid; font-family: Verdana; font-size:10\">\n";
   print NEWFILE "<p><img src=\"http://hem.passagen.se/probyte/korsdraget/gif/forumline.gif\" width=\"626\" height=\"1\" border=\"0\"><br>\n";
   if ($show_faq == 1) {
      print NEWFILE "<center><b>- <a href=\"#followups\">Läs Svar</a> - <a href=\"#postfp\">Posta Svar</a> - <a href=\"$baseurl/$mesgfile\">$title</a> - <a href=\"$baseurl/$faqfile\">FAQ</a> -</b></center>\n";
   }
   else {
      print NEWFILE "<center><b>- <a href=\"#followups\">Läs Svar</a> - <a href=\"#postfp\">Posta Svar</a> - <a href=\"$baseurl/$mesgfile\">$title</a> -</b></center>\n";
   }
   print NEWFILE "<img src=\"http://hem.passagen.se/probyte/korsdraget/gif/forumline.gif\" width=\"626\" height=\"1\" border=\"0\"><br>\n";
   print NEWFILE "</font></body></html>\n";
   close(NEWFILE);
}

###############################
# Main WWWBoard Page Subroutine

sub main_page {
   open(MAIN,"$basedir/$mesgfile") &#0124;&#0124; die $!;
   @main = <MAIN>;
   close(MAIN);

   open(MAIN,">$basedir/$mesgfile") &#0124;&#0124; die $!;
   if ($followup == 0) {
      foreach $main_line (@main) {
         if ($main_line =~ /<!--begin-->/) {
            print MAIN "<!--begin-->\n";
	    print MAIN "<!--top: $num--><li><a href=\"$mesgdir/$num\.$ext\">$subject</a> - <b>$name</b> <i>$date</i>\n";
            print MAIN "(<!--responses: $num-->0)\n";
            print MAIN "<ul><!--insert: $num-->\n";
            print MAIN "</ul><!--end: $num-->\n";
         }
         else {
            print MAIN "$main_line";
         }
      }
   }
   else {
      foreach $main_line (@main) {
	 $work = 0;
         if ($main_line =~ /<ul><!--insert: $last_message-->/) {
            print MAIN "<ul><!--insert: $last_message-->\n";
            print MAIN "<!--top: $num--><li><a href=\"$mesgdir/$num\.$ext\">$subject</a> - <b>$name</b> <i>$date</i>\n";
            print MAIN "(<!--responses: $num-->0)\n";
            print MAIN "<ul><!--insert: $num-->\n";
            print MAIN "</ul><!--end: $num-->\n";
         }
         elsif ($main_line =~ /\(<!--responses: (.*)-->(.*)\)/) {
            $response_num = $1;
            $num_responses = $2;
            $num_responses++;
            foreach $followup_num (@followup_num) {
               if ($followup_num == $response_num) {
                  print MAIN "(<!--responses: $followup_num-->$num_responses)\n";
		  $work = 1;
               }
            }
            if ($work != 1) {
               print MAIN "$main_line";
            }
         }
         else {
            print MAIN "$main_line";
         }
      }
   }
   close(MAIN);
}

############################################
# Add Followup Threading to Individual Pages
sub thread_pages {

   foreach $followup_num (@followup_num) {
      open(FOLLOWUP,"$basedir/$mesgdir/$followup_num\.$ext");
      @followup_lines = <FOLLOWUP>;
      close(FOLLOWUP);

      open(FOLLOWUP,">$basedir/$mesgdir/$followup_num\.$ext");
      foreach $followup_line (@followup_lines) {
         $work = 0;
         if ($followup_line =~ /<ul><!--insert: $last_message-->/) {
	    print FOLLOWUP "<ul><!--insert: $last_message-->\n";
            print FOLLOWUP "<!--top: $num--><li><a href=\"$num\.$ext\">$subject</a> <b>$name</b> <i>$date</i>\n";
            print FOLLOWUP "(<!--responses: $num-->0)\n";
            print FOLLOWUP "<ul><!--insert: $num-->\n";
            print FOLLOWUP "</ul><!--end: $num-->\n";
         }
         elsif ($followup_line =~ /\(<!--responses: (.*)-->(.*)\)/) {
            $response_num = $1;
            $num_responses = $2;
            $num_responses++;
            foreach $followup_num (@followup_num) {
               if ($followup_num == $response_num) {
                  print FOLLOWUP "(<!--responses: $followup_num-->$num_responses)\n";
                  $work = 1;
               }
            }
            if ($work != 1) {
               print FOLLOWUP "$followup_line";
            }
         }
         else {
            print FOLLOWUP "$followup_line";
         }
      }
      close(FOLLOWUP);
   }
}

sub return_html {
   print "Content-type: text/html\n\n";
   print "<html><head><title>Skickat!: $subject</title><link href=\"../../style.css\" rel=stylesheet type=text/css></head>\n";
   print "<body bgcolor=\"#48474C\"><center><font class=\"small\"><b>Postat Meddelande: $subject</b></center>\n";
   print "<br><img src=\"http://hem.passagen.se/probyte/korsdraget/gif/forumline.gif\" width=\"626\" height=\"1\" border=\"0\"><br>\n";
   print "<b>Följande är nu noterat i korsdragets webforum:</b><p>\n";
   print "<b>Namn:</b> $name<br>\n";
   print "<b>E-Mail:</b> $email<br>\n";
   print "<b>Rubrik:</b> $subject<br>\n";
   print "<b>Meddelande:</b><br><br>\n";
   print "$body<p>\n";
   if ($message_url) {
      print "<b>Link:</b> <a href=\"$message_url\">$message_url_title</a><br>\n";
   }
   if ($message_img) {
      print "<b>Image:</b> <img src=\"$message_img\"><br>\n";
   }
   print "<b>Datum:</b> $date<p>\n";
   print "<img src=\"http://hem.passagen.se/probyte/korsdraget/gif/forumline.gif\" width=\"626\" height=\"1\" border=\"0\"><br>\n";
   print "<center><b>- <a href=\"$baseurl/$mesgfile\">Tillbaka till $title</a> -</b></center>\n";
   print "<img src=\"http://hem.passagen.se/probyte/korsdraget/gif/forumline.gif\" width=\"626\" height=\"1\" border=\"0\"><br>\n";
   print "</body></html>\n";
}

sub increment_num {
   open(NUM,">$basedir/$datafile") &#0124;&#0124; die $!;
   print NUM "$num";
   close(NUM);
}

sub error {
   $error = $_[0];

   print "Content-type: text/html\n\n";

   if ($error eq 'no_name') {
      print "<html><head><title>$title ERROR: Inget Namn!</title><link href=\"../../style.css\" rel=stylesheet type=text/css></head>\n";
      print "<body bgcolor=\"#48474C\"><center><font class=\"small\"><b>ERROR: Inget Namn!</b><br><br></center>\n";
      print "<img src=\"http://hem.passagen.se/probyte/korsdraget/gif/forumline.gif\" width=\"626\" height=\"1\" border=\"0\"><br><br>\n";
      print "<center>Du har inte angett något 'Namn'. Ändra här nere och posta formuläret igen.<br>De obligatoriska fälten är: Namn, Rubrik och Meddelande.</center><br><br><img src=\"http://hem.passagen.se/probyte/korsdraget/gif/forumline.gif\" width=\"646\" height=\"1\" border=\"0\"></font><br>\n";
      &rest_of_form;
   }
   elsif ($error eq 'no_subject') {
      print "<html><head><title>$title ERROR: Ingen Rubrik!</title><link href=\"../../style.css\" rel=stylesheet type=text/css></head>\n";
      print "<body bgcolor=\"#48474C\"><center><font class=\"small\"><b>ERROR: Ingen Rubrik!</b><br><br></center>\n";
      print "<img src=\"http://hem.passagen.se/probyte/korsdraget/gif/forumline.gif\" width=\"626\" height=\"1\" border=\"0\"><br><br>\n";      
      print "<center>Du har inte angett någon 'Rubrik'. Ändra här nere och posta formuläret igen.<br>De obligatoriska fälten är: Namn, Rubrik och Meddelande.</center><br><br><img src=\"http://hem.passagen.se/probyte/korsdraget/gif/forumline.gif\" width=\"646\" height=\"1\" border=\"0\"></font><br>\n";
      &rest_of_form;
   }
   elsif ($error eq 'no_body') {
      print "<html><head><title>$title ERROR: Inget Meddelande!</title><link href=\"../../style.css\" rel=stylesheet type=text/css></head>\n";
      print "<body bgcolor=\"#48474C\"><center><font class=\"small\"><b>ERROR: Inget Meddelande!</b><br><br></center>\n";
      print "<img src=\"http://hem.passagen.se/probyte/korsdraget/gif/forumline.gif\" width=\"626\" height=\"1\" border=\"0\"><br><br>\n"; 
      print "<center>Du har inte angett något 'Meddelande'. Ändra här nere och posta formuläret igen.<br>De obligatoriska fälten är: Namn, Rubrik och Meddelande.</center><br><br><img src=\"http://hem.passagen.se/probyte/korsdraget/gif/forumline.gif\" width=\"646\" height=\"1\" border=\"0\"></font><p>\n";
      &rest_of_form;
   }
   else {
      print "ERROR!  Undefined.\n";
   }
   exit;
}

sub rest_of_form {

      print "<form method=POST action=\"$cgi_url\">\n";

   if ($followup == 1) {
      print "<input type=hidden name=\"origsubject\" value=\"$FORM{'origsubject'}\">\n";
      print "<input type=hidden name=\"origname\" value=\"$FORM{'origname'}\">\n";
      print "<input type=hidden name=\"origemail\" value=\"$FORM{'origemail'}\">\n";
      print "<input type=hidden name=\"origdate\" value=\"$FORM{'origdate'}\">\n";
      print "<input type=hidden name=\"followup\" value=\"$FORM{'followup'}\">\n";
   }
   print "<font class=\"small\"><b>Namn:</b><br><input type=text name=\"name\" value=\"$FORM{'name'}\" size=41 style=\"border:1px; border-color: black; border-style: solid; background-color: #eeeedd; font-family: Verdana; font-size:10\"><br>\n";
   print "<b>E-Mail:</b><br><input type=text name=\"email\" value=\"$FORM{'email'}\" size=41 style=\"border:1px; border-color: black; border-style: solid; background-color: #eeeedd; font-family: Verdana; font-size:10\"><br>\n";
   if ($subject_line == 1) {
      print "<input type=hidden name=\"subject\" value=\"$FORM{'subject'}\">\n";
      print "<b>Rubrik:</b> <b>$FORM{'subject'}</b><p>\n";
   } 
   else {
      print "<b>Rubrik:</b><br><input type=text name=\"subject\" value=\"$FORM{'subject'}\" size=41 style=\"border:1px; border-color: black; border-style: solid; background-color: #eeeedd; font-family: Verdana; font-size:10\"><br>\n";
   }
   print "<b>Meddelande:</b><br>\n";
   print "<textarea COLS=40 ROWS=10 name=\"body\" style=\"border:1px; border-color: black; border-style: solid; background-color: #eeeedd; font-family: Verdana; font-size:10\">\n";
   $FORM{'body'} =~ s/</</g;
   $FORM{'body'} =~ s/>/>/g;
   $FORM{'body'} =~ s/"/&quot;/g;
   print "$FORM{'body'}\n";
   print "</textarea><br>\n";
   print "<input type=submit value=\"Skicka\" style=\"border:1px; border-color: black; border-style: solid; font-family: Verdana; font-size:10\"> <input type=reset value=\"Rensa\" style=\"border:1px; border-color: black; border-style: solid; font-family: Verdana; font-size:10\">\n";
   print "</form>\n";
   print "<img src=\"http://hem.passagen.se/probyte/korsdraget/gif/forumline.gif\" width=\"626\" height=\"1\" border=\"0\"><br>\n"; 
   if ($show_faq == 1) {
      print "<center><b>- <a href=\"$baseurl/$mesgfile\">$title</a> -</b></center>\n";
   }
   else {
      print "<center><b>- <a href=\"$baseurl/$mesgfile\">$title</a> -</b></center>\n";
   }
   print "<img src=\"http://hem.passagen.se/probyte/korsdraget/gif/forumline.gif\" width=\"626\" height=\"1\" border=\"0\"><br>\n"; 
   print "</body></html>\n";
}

Forumet finns på följande url: http://probyte.port5.com/wwwboard/wwwboard.html

Ni får gärna testa och grejja på forumet för att komma med förslag på vad som är fel i koden.

Jag är mkt tacksam för eventuell hjälp som kan fås.

------------------
:: mattias :: www ::

LabbmanMedlem sedan dec. 199949 inlägg
#2

PRovade ditt wwwboard.
Kunde inte se att inläggen på något vis hamnade fel. Däremot så fick jag inget "tack-meddelande" när jag tryckte på sänd-knappen. Trodde då att mitt inlägg inte registrerats och tryckte igen. uppdaterade sedan sidan manuellt och såg då att två inlägg registrerats.
Tycker att du bör lägga in en "tack-sida" eller en automatisk uppdatering av sidan när man skrivit ett inlägg.

Mvh,
Labbman

ProbyteMedlem sedan maj 200159 inlägg
#3

Jo, men visst kommer det upp en sida i stil med att "följande meddelande har registrerats..." ? Det ska det göra iaf.

Sen så hamnar inläggen rätt ibörjan... men svara på ditt inlägg och därefter svara på det svaret.... och därefter svara på det första svaret så ser du hur jag menar...

Blir värsta konstiga strukturen då... =(

Testa o lägg en massa inlägg och svara på olika nivåer så märker du vad jag menar...

------------------
:: mattias :: www ::

142 ms totalt · 3 externa anrop · v20260731065814-full.2b84b982
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
140 ms — hämta tråd, inlägg och bilagor (db)