---
title: "Html-taggar i forum"
type: "forum-thread"
url: "https://www.webforum.nu/amne/html-css/19202-html-taggar-i-forum"
topic: "HTML & CSS"
topic_url: "https://www.webforum.nu/amne/html-css"
author: "copyscripts"
published: "2000-10-30T09:08:00.000Z"
updated: "2000-11-04T11:30:00.000Z"
replies: 3
views: 217
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/html-css/19202-html-taggar-i-forum"
---

# Html-taggar i forum

## #1 — copyscripts, 2000-10-30T09:08Z

Hur fixar jag mitt forum så att om man skriver in "tagtexttag" så det blir just "tagtexttag" ?
Forumet finns på <http://copyscripts.hypermart.net/wwwboard.html> 
tag ska givetvis vara \< och \>

Permalänk: https://www.webforum.nu/p/19202

## #2 — FlashX, 2000-10-30T11:18Z

Du använder ett uttryck där man omvandlar tecknen.

```
$* =~ s/</</g;
$* =~ s/>/>/g;
```

$\* ersätts med den variabel som innehåller själva meddelandet.
Är nog lite olika beroende på forum men kan vara något liknande $message eller dyligt.

\[Redigerat av FlashX den 30 okt 2000\]

Permalänk: https://www.webforum.nu/p/341225

## #3 — copyscripts, 2000-11-04T10:56Z

Jag fattar inte.
Just nu använder jag en textremsa som gör att tagtexttag blir tag;texttag; Jag vill att tagtexttag ska bli tagtexttag istället.Hur lyckas jag med det? (tag = \< och \> )

Forumet finns här: <http://copyscripts.hypermart.net/wwwboard.html> 

Såhär ser Perlscritpet ut (jag har inte med hela):

\#!/usr/local/bin/perl

\# Variabler
($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell,)=getpwuid($\> );
$basedir = "/data1/hypermart.net/copyscripts";
$baseurl = "http://copyscripts.hypermart.net/";
$cgi_url = "http://copyscripts.hypermart.net/wwwboard.pl";

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

$ext = "html";

$title = "Min WWWBoard";

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

$show_poster_ip = 1;    # 1 = Show the IP of every poster; 0 = Don't
$enforce_max_len = 2;   # 2 = YES, error; 1 = YES, truncate; 0 = NO
%max_len = ('name', 25, 
            'email', 50, 
            'subject', 40, 
            'url', 70, 
            'url_title', 80,
            'img', 150,
            'body', 3000,
            'origsubject', 43,
            'origname', 28,
            'origemail', 53,
            '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/\</\\\<\\;/g;
$value =\~ s/\>/\\\>\\;/g;

}
else {
unless ($name eq 'body') {
$value =\~ s/\</\\\<\\;/g;
$value =\~ s/\>/\\\>\\;/g;

$value =\~ s/\<!--/\\\<\\;!--/g;
$value =\~ s/--\>/--\\\>\\;/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}); }
         }
      }
   }
}

Permalänk: https://www.webforum.nu/p/341226

## #4 — Csson, 2000-11-04T11:30Z

Ändra de här raderna:

```
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">if ($allow_html != 1) {
$value =~ s/</\<\;/g;
$value =~ s/>/\>\;/g;

}
else {
unless ($name eq 'body') {
$value =~ s/</\<\;/g;
$value =~ s/>/\>\;/g;

$value =~ s/<!--/\<\;!--/g;
$value =~ s/-->/--\>\;/g;
}
}</font>
```

Till:

```
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">if ($allow_html != 1) {
	$value =~ s/</</g;
	$value =~ s/>/>/g;
}
else {
	unless ($name eq 'body') {
		$value =~ s/</</g;
		$value =~ s/>/>/g;

		$value =~ s/<!--/<!--/g;
		$value =~ s/-->/-->/g;
	}
}</font>
```

...så borde det fungera bättre.

/Csson

Permalänk: https://www.webforum.nu/p/341227

---

Tråden på webben: https://www.webforum.nu/amne/html-css/19202-html-taggar-i-forum