---
title: "Är det Pearl eller?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/webbutveckling/79950-är-det-pearl-eller/page2"
topic: "Webbutveckling"
topic_url: "https://www.webforum.nu/amne/webbutveckling"
author: "NoiseMaker"
published: "2003-06-17T11:46:30.000Z"
updated: "2003-06-24T21:50:30.000Z"
replies: 26
views: 674
page: 2
pages: 2
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/webbutveckling/79950-är-det-pearl-eller"
---

# Är det Pearl eller?

_Sida 2 av 2._

## #21 — UlfT, 2003-06-17T15:23Z

Funkar för mig med. Det ser ganska intressant ut (nåja) när man kollar källkoden. Den växer hela tiden.

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

## #22 — GunnarD, 2003-06-17T16:14Z

Scriptet förutsätter att webläsaren inte buffrar sidan innan den skriver ut den, testade bara i mozilla och där fungerar det.

Testade nu när jag kom hem med IE och den visar ingenting, väntar antagligen på att sidan skall laddas färdig innan den ritar up sidan, undrar om det finns någon trevlig "header" rader som stänger av detta?

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

## #23 — greyhound, 2003-06-17T16:25Z

Jepp NPH :)

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

## #24 — GunnarD, 2003-06-17T18:43Z

Man borde kunna göra det i php och inte "bara" i perl eller som cgi program?

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

## #25 — greyhound, 2003-06-17T19:37Z

Det går säkert, ska kolla på det när jag har tid och återkomma i denna tråd.

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

## #26 — hopparn, 2003-06-18T07:49Z

kod

noisemaker: jo det går så bra så, men jag hinner inte skala koden, du får allt som det ser ut... tänk på att den inte är speciellt optimerad
framesetet kan du ju göra själv, här e sidan som visar meddelande textrutan:

```
<% 

application("refresh") = request.form("refresh")
if application("refresh") = "" then
application("refresh") = "10"
end if
name=request.form("Name")
sett=request.form("sett")
color=request.form("color")
nextline = request.form("NextLine")
IF NOT NextLine="" THEN
Set FileObj = Server.CreateObject("Scripting.FileSystemObject")
   file = server.mappath("chat.txt")
Set File = FileObj.OpenTextFile(file)

	Dim StrArr(30)

	For i = 2 to 30
		StrArr(i) = File.ReadLine
	Next
		IF sett = "skriker" then
			StrArr(1) = "<b>"&LEFT(now,16)&"</b> _"& session("name") &" <i><b>"& UCASE(sett) &":</b></i> "& UCASE(Nextline)
		ELSEIF sett = "viskar" then
			StrArr(1) = "<b>"&LEFT(now,16)&"</b> _"& session("name") &" <i>"& sett &": "& Nextline &"</i>"
		ELSEIF sett = "säger" then
			StrArr(1) = "<b>"&LEFT(now,16)&"</b> _"& session("name") &" <i>"& sett &": </i>"& Nextline
		END IF
File.Close
	file = server.mappath("chat.txt")
   Set File = FileObj.CreateTextFile(file)
   For i = 1 to 30
     File.WriteLine(StrArr(i))
   Next

   File.Close
END IF %>
<html>
<head>
<title>Chat</title>
<link rel="stylesheet" href="/includes/aikistyle.css" type="text/css">
</head>
<body bgcolor="#FFFFFF">
<form method="post" action="test.asp" name="chat"><b><%=session("name")%></b>
  <table width="160" border="0" cellpadding="5">
    <tr> 
      <td> <% if sett="skriker" then
response.write("<input type=radio name=sett value=säger>Säger<br><input type=radio name=sett value=skriker checked>Skriker<br><input type=radio name=sett value=viskar>Viskar<br></font></td>")
else if sett="viskar" then
response.write("<input type=radio name=sett value=säger>Säger<br><input type=radio name=sett value=skriker>Skriker<br><input type=radio name=sett value=viskar checked>Viskar<br></font></td>")
else
response.write("<input type=radio name=sett value=säger checked>Säger<br><input type=radio name=sett value=skriker>Skriker<br><input type=radio name=sett value=viskar>Viskar<br></font></td>")
end if
end if %></td>
    </tr>
    <tr> 
      <td><br>
        Meddelande:<br>
        <textarea name="NextLine" cols="16" class="textfield" rows="6"></textarea>
        <br>
      </td>
    </tr>
    <tr> 
      <td>Uppdatera efter <br>
        <input type"text" value="<%=application("refresh")%>" name="refresh" size="2" maxlength="2" class="textfield">
       
        sekunder.<br>
      </td>
    </tr>
    <tr>
      <td> 
        <input type="submit" name="Submit" value="Skicka">
      </td>
    </tr>
  </table>
  <br>
</form>
</body>
</html>
```

 

här e sidan som viisar upp messen

```
<html>
<% refresh = application("refresh")
if refresh = "" then
refresh = "10"
end if %>
<head>
<META HTTP-EQUIV="REFRESH" CONTENT="<%=refresh%>;">
<title>Chat</title>
<link rel="stylesheet" href="/includes/aikistyle.css" type="text/css">
</head>
<body bgcolor="#ffffff">

<% myfile = server.mappath("chat.txt")
   Set myfileobj = Server.CreateObject("Scripting.FileSystemObject")
   Set File = myfileObj.OpenTextFile(myfile)
i=0
	while not i = 30
		response.write(file.readline&"<br>")
	i=i+1
	WEND

file.close
%> 
</body>
</html>
```

denna kompletterar du sen med en textfil med 30 blankrader (har ej hunnit fixa detta då jag har massor med annat att göra =)

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

## #27 — greyhound, 2003-06-24T21:50Z

Mitt chattscript är nu klart det ligger på min server som inte är så snabb så förvänta er inte för mycket hastighet på den. :)

Adressen är:
<http://www.riceri.com/cgi-bin/chat/chat.cgi>
Login: test
Lösenord: test

Den som vill ha scriptet kan kontakta mig så fixar vi det.

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

---

Tråden på webben: https://www.webforum.nu/amne/webbutveckling/79950-är-det-pearl-eller/page2  
Föregående sida: https://www.webforum.nu/amne/webbutveckling/79950-är-det-pearl-eller.md