Skip to content

Commit

Permalink
untabified all of yaws
Browse files Browse the repository at this point in the history
git-svn-id: https://erlyaws.svn.sourceforge.net/svnroot/erlyaws/trunk/yaws@1217 9fbdc01b-0d2c-0410-bfb7-fb27d70d8b52
  • Loading branch information
Claes Wikstrom committed Feb 14, 2008
1 parent c9cd304 commit 0be3c7e
Show file tree
Hide file tree
Showing 139 changed files with 13,716 additions and 13,627 deletions.
82 changes: 41 additions & 41 deletions applications/chat/chat/chat.js
Expand Up @@ -75,7 +75,7 @@ function smilies_toolbar() {

for (smile in smilies) {
tool += ("<img src='"+smilies[smile]+"' onmousedown='return addText(\""+
smile+"\")'></img> ");
smile+"\")'></img> ");
}

return tool;
Expand All @@ -89,7 +89,7 @@ function expandSmilies(message) {
i = message.indexOf(smile,i);
while(i >= 0) {
message = message.substring(0,i)+"<img src='"+smilies[smile]+"'>"+
message.substring(i+smile.length);
message.substring(i+smile.length);
i = message.indexOf(smile,i);
}
}
Expand Down Expand Up @@ -140,49 +140,49 @@ function reader_init() {
debug("reader_init(): something");

if (reply.substring(0,2) == "ok") {
var msg = reply.substring(2);
var messages = "";
var members = "";

while(msg.length > 0) {
var op = msg.substring(0,1);
var i = msg.indexOf(":");
var len = parseInt(msg.substring(1,i));
var body = msg.substring(i+1, i+len+1);

msg = msg.substring(i+len+1);

debug("msg = " + msg);
debug("i = " + i);
debug("len = " + len);
debug("body = " + body);
debug("op = " + op);

switch(op) {
case "m":
messages += body.replace(/\n/g,"<br>")+"<br>";
break;
case "e":
members = body;
break;
default:
}
}

if (messages.length > 0)
msgs.innerHTML = msgs.innerHTML + messages;

if (members.length > 0)
memb.innerHTML = members;

move_to_end(msgs);
setTimeout("reader_init()", 0);
var msg = reply.substring(2);
var messages = "";
var members = "";

while(msg.length > 0) {
var op = msg.substring(0,1);
var i = msg.indexOf(":");
var len = parseInt(msg.substring(1,i));
var body = msg.substring(i+1, i+len+1);

msg = msg.substring(i+len+1);

debug("msg = " + msg);
debug("i = " + i);
debug("len = " + len);
debug("body = " + body);
debug("op = " + op);

switch(op) {
case "m":
messages += body.replace(/\n/g,"<br>")+"<br>";
break;
case "e":
members = body;
break;
default:
}
}

if (messages.length > 0)
msgs.innerHTML = msgs.innerHTML + messages;

if (members.length > 0)
memb.innerHTML = members;

move_to_end(msgs);
setTimeout("reader_init()", 0);
}
else if (reply.substring(0,7) == "timeout") {
setTimeout("reader_init()", 0);
setTimeout("reader_init()", 0);
}
else {
// alert("Chat server got unsupported reply.'" + reply+"'");
// alert("Chat server got unsupported reply.'" + reply+"'");
}
}
}
Expand Down
12 changes: 6 additions & 6 deletions applications/chat/chat/chat.yaws
Expand Up @@ -3,9 +3,9 @@
out(A) ->
case chat:check_session(A) of
{ok, Session} ->
chat:dynamic_headers();
Error ->
Error++[break]
chat:dynamic_headers();
Error ->
Error++[break]
end.
</erl>

Expand All @@ -16,7 +16,7 @@ function handleEnter(event) {
event = window.event;

var keyCode = event.keyCode ? event.keyCode : event.which ?
event.which : event.charCode;
event.which : event.charCode;

if (keyCode == 13) {
sendmsg();
Expand Down Expand Up @@ -78,8 +78,8 @@ h1 {
}

#msg {
width: 614px;
clear: both;
width: 614px;
clear: both;
}

</style>
Expand Down
2 changes: 1 addition & 1 deletion applications/chat/chat/chat_read.yaws
@@ -1,4 +1,4 @@
<erl>
out(A) ->
chat:chat_read(A).
chat:chat_read(A).
</erl>
10 changes: 5 additions & 5 deletions applications/chat/chat/chat_write.yaws
@@ -1,10 +1,10 @@
<erl>
out(A) ->
case chat:check_session(A) of
Session ->
chat:chat_write(A);
Error ->
Error
case chat:check_session(A) of
Session ->
chat:chat_write(A);
Error ->
Error
end.

</erl>
2 changes: 1 addition & 1 deletion applications/chat/chat/index.yaws
@@ -1,4 +1,4 @@
<erl>
out(A) ->
{redirect_local, {rel_path, "chat.yaws"}}.
{redirect_local, {rel_path, "chat.yaws"}}.
</erl>
32 changes: 16 additions & 16 deletions applications/chat/chat/login.yaws
Expand Up @@ -2,23 +2,23 @@

out(A) ->
L = case (A#arg.req)#http_request.method of
'GET' ->
yaws_api:parse_query(A);
'POST' ->
yaws_api:parse_post(A)
end,
'GET' ->
yaws_api:parse_query(A);
'POST' ->
yaws_api:parse_post(A)
end,
case {lists:keysearch("user", 1, L),
lists:keysearch("password", 1, L)} of
{{value, {_, User}}, {value, {_,Passwd}}} ->
case chat:login(User, Passwd) of
{ok, Cookie} ->
[yaws_api:setcookie("sessionid", Cookie),
{redirect_local, {rel_path,"chat.yaws"}}];
{error, Reason} ->
chat:display_login(A, Reason)
end;
_ ->
chat:display_login(A, "badly formated POST/GET")
lists:keysearch("password", 1, L)} of
{{value, {_, User}}, {value, {_,Passwd}}} ->
case chat:login(User, Passwd) of
{ok, Cookie} ->
[yaws_api:setcookie("sessionid", Cookie),
{redirect_local, {rel_path,"chat.yaws"}}];
{error, Reason} ->
chat:display_login(A, Reason)
end;
_ ->
chat:display_login(A, "badly formated POST/GET")
end.

</erl>

0 comments on commit 0be3c7e

Please sign in to comment.