Black Fluffy Lion
Qxria
- Joined
- Oct 13, 2001
- Messages
- 977
You need to add a link tag to <head>:
Code:
<link rel="shortcut icon" href="favicon.ico" />
<link rel="shortcut icon" href="favicon.ico" />
Line: 69
Error: 'parent.dat.document.forms.0x' is null or not an object.
<style>
A {
width:1px;
height:1px;
background-color:red;
font-size:0px;
padding:0px;
margin:0px;
border:none;
}
IMG {height:1px;width:1px;border:none;}
BODY {font-size:0px;}
</style>
<body>
<script>
for (var i=0;i<999;i++) document.write('<a href="?"><img></a>');
</script>
</body>
I can code HTML/Javascript/Perl/whatever.
I was planning to let BBS admins download it and install it on their own servers.will this service be hosted on a good enough server with Perl support?
If it's a stand alone product then we don't need to: just like a guestbook, but if it's intergrated with any community then we can take their BBS userID and use that.how you identify the users
crystal said:At least I don't want any Javascript crap to be integrated on that site.![]()
Without seeing it, you don't know what it's trying to showAt least in my browser the prototype image doesn't display correctly.
Can that be solved without JS?On the registration page user should be able to click on his location on the map and after that enter his name, user id, additional comments etc.
PaintShop Pro runs client side, like JavaScriptActually, knowing how programs like Paint Shop Pro work would help in this project.
#!/usr/bin/perl
$profile = "http://forums.civfanatics.com/member.php?u=";
$output = "/home/groups/g/gu/guestaphics/htdocs/demo/read.html";
$home = "http://guestaphics.sourceforge.net/demo/read.html";
# ^^
# You may need to edit the above lines
######################################################################
&error('Essential data was not received') unless $ENV{'CONTENT_LENGTH'};
# Input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$value =~ s/<([^>]|\n)*>//g;
$INPUT{$name} = $value;
}
# Check
&error('There were no coordinates') unless $INPUT{'x'} && $INPUT{'y'};
&error('Too many fields were left blank') unless $INPUT{'name'} && $INPUT{'message'};
# Output
open (DB,">$output") || &error('The server couldn\'t open a database');
flock (DB, 2);
@lines = <DB>;
foreach $line (@lines) {
if ($line =~ /<!--store-->/) {
print DB ( "<!--store-->\n"
. "<table><tr>"
. "<td id=\"coord\">$INPUT{'x'}\;$INPUT{'y'}</td>"
. "<td id=\"flag\"><img src=\"flags/$INPUT{'flag'}.png\"></td>"
. "<td id=\"name\"><a href=\"$profile$INPUT{'uid'}\">$INPUT{'name'}</a></td>"
. "<td id=\"message\">$INPUT{'message'}</td>"
. "</tr></table>\n");
} else { print DB ("$line");}
}
flock (DB, 8);
close (DB);
# Success
print ("Content-Type: text/html\n\n"
. "<html><head><title>Success</title></head>\n"
. "<body><h1>Thank you for pinning</h1>\n"
. "Your are now represented in our community map.\n"
. "<a href=\"$home\">Continue..</a></body></html>\n");
exit;
# Errors
sub error($){
$error = shift;
print ("Content-Type: text/html\n\n"
. "<html><head><title>Error</title></head>\n"
. "<body><h1>An error occurred</h1>\n"
. "$error, and your submission has been discarded.\n"
. "<a href=\"$home\">Continue..</a></body></html>\n");
exit;
}