Java+Perl syntax error 1

sulfericacid · Jun 25, 2003

The following code I'm playing with is:
qq(<SCRIPT LANGUAGE="JavaScript">),
Tr( td(),
td(submit),
td("document.write('<form><input type=button value=\"Refresh\" onC
+lick=\"history.go()\"></form>)" ),
),
end_form(),
hr(),
qq(</script>)
);

print "(<a href=\"log.pl\" target=\"new\">chat logs</a>)";

Essentially what I'm trying to do is at a java refresh button beside my SUBMIT button inside the table. Debugger shows nothing wrong but when loading in the browser it says there's an error on the page [

http://sulfericacid.perlmonk.org/chat/chat.pl

] and it doesn't load the JS button or my Submit button. Can anyone help me get the button to work?

"Age is nothing more than an inaccurate number bestowed upon each of us at birth as just another means for others to judge and classify us- sulfericacid

PaulTEG · Jun 25, 2003

Sulf,

You're mixing your html with JScript.

Build up your javascript code into a variable and then drop that into your cgi output at the relevant point.

$myvar="<script langauge="Javascript">
document.write('<form><input type=button value=\"Refresh\" onClick=\"history.go()\"></form>');</script></noscript>blah</noscript>";

Paul

It's important in life to always strike a happy medium, so if you see someone with a crystal ball, and a smile on their face ...

usige · Jun 25, 2003

The problem is your td's are inside the script tag. Try removing the 1st and second to last lines.

sulfericacid · Jun 25, 2003

PaulTEG, that's actually a great idea and it'll definately make that sequence of codes look cleaner using a variable instead of mixing everything into a glob. I tried your suggestion and it worked like a charm! I asked dozens of people the last two days and no one had any suggestions as to what's wrong with this and it's hard to believe that minutes after posting this on tek-tips someone like you already solved it.

The problem is solved and I don't wish to steal time away from everyone else that needs help but I was wondering why it would make a difference if I were using a variable or not (other than visual debugging purposes).

Thank you SO much for your help!

"Age is nothing more than an inaccurate number bestowed upon each of us at birth as just another means for others to judge and classify us- sulfericacid

PaulTEG · Jun 25, 2003

If you looked at your source as usige puts it, your tds are inside your script tags

<script language=javascript><td> <!-- see not valid javascript syntax

Besides it's just tidier that way using a variable, and not only for visual debugging, but for gathering the relevant script to package

Cheers
Paul

BTW - Whaddya mean someone like ME ...

It's important in life to always strike a happy medium, so if you see someone with a crystal ball, and a smile on their face ...

sulfericacid · Jun 25, 2003

I meant that I usually don't come here for perl help. I'm a member of

http://www.perlmonks.com

and usually someone there knows how to fix something I messed up. There are some people on that page who helped write the series of Learning Perl so I expected him to be able to help, but he wasn't able to. It wasn't to come off as mean, I was just saying I'm suprised how quickly someone could solve a problem that he couldn't.

Can I ask one more small question? Right now I have: td(submit('send'), $js), but my chat script (the url should be on this page somewhere) doesn't reload as I thought it would after you send a message. How can I make it so after clicking the submit button it refreshes the page?

"Age is nothing more than an inaccurate number bestowed upon each of us at birth as just another means for others to judge and classify us- sulfericacid

PaulTEG · Jun 25, 2003

Sulf,

Had a quick look,

history.go() doesn't that mean go back one??

There are a few hippics in your HTML code, that number of &NBSP;'s just ain't right, and something's interfering with your font tag, because its not closing, before the palign=right directive (mebbe <p align="right">??, p({align=>"right"}, "hello world&quot

....

Could you post your script to date?
When the page is submitted you should be generating based on all available data, which SHOULD deliver the desired result. I think maybe the javascript is causing the puppy to puke. If not there's bound to be a javascript function to reload the page, which can be made conditional based on a hidden field which is set depending on how the refresh or post is called

HTH
Paul

It's important in life to always strike a happy medium, so if you see someone with a crystal ball, and a smile on their face ...

usige · Jun 25, 2003

Ok, my guess is that the page is being cached. Since the URL doesn't change it appears to the browser that it is the same page. Try adding a no-cache pragma in the head:

Code:

<META HTTP-EQUIV=&quot;Pragma&quot; CONTENT=&quot;no-cache&quot;>

sulfericacid · Jun 25, 2003

#!/usr/bin/perl -w

open( STDERR, ">>/home/sulfericacid/public_html/error.log" )
or die "Cannot open error log, weird...an error opening an error log: $!";

use strict;
use warnings;
use POSIX;
use CGI qw

standard start_table end_table);

use lib "";
use Tie::IxHash;

require SDBM_File;

my %chat;
my %chatorder;
my $chat = "list.dbm";
my $file = "iplog.txt";

tie %chat, "Tie::IxHash";
tie %chatorder, "Tie::IxHash";

tie %chat, 'SDBM_File', $chat, O_CREAT | O_RDWR, 0644;
if ( !tied %chat ) {
print "database unsuccessful $!.\n";
}

$| = 1; # maybe this will help page refreshing

my $js = "<script langauge=\"Javascript\">
document.write('<form><input type=button value=\"Refresh\" onClick=\"history.go()\"></form>');</script></noscript></noscript>";

print header, start_html;

#
# Time to keep accurate logs
#
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) =
localtime(time);
print "the local time is $hour:$min:$sec";

print start_table;
print Tr(
td(
{ -height => '5', width => '700', bgcolor => '#BBCCEE' },
"<font size=2><b>ChatterBox version 1.0</b></font>"
)
);
print Tr( td( { -height => '5', width => '700', bgcolor => '#BBCCEE' }, "" ) );

my $add;

foreach ( reverse keys(%chat) ) {
$add++;

if ( $add <= 10 ) {
$chatorder{$_} = $chat{$_};
}
}

foreach ( reverse keys(%chatorder) ) {
my ( $name, $message, $time ) = split /::/, $chatorder{$_};
print Tr(
td(
{ -width => '700' },
"<font color=blue>$name @ $time:</font> $message"
)
),
;
}
print Tr( td( { -height => '5', width => '700', bgcolor => '#BBCCEE' }, "" ) );
print Tr(
td(
{ -height => '5', width => '700', bgcolor => '#BBCCEE' },
"<font size=2 palign=right><b>                                                                                            

http://sulfericacid.perlmonk.org</b></font>"

)
);

print start_form(), table(
Tr(
td("Name: &quot

,
td(
textfield(
-name => 'name',
-size => 40
)
)
),
Tr(
td("Message: &quot

,
td(
textfield(
-name => 'message',
-size => 100,
-force => 1,
)
)
),

Tr( td(), td( submit('send'), $js ), ),
end_form(),
hr(),
);

print "(<a href=\"log.pl\" target=\"new\">chat logs</a>)";

my $name = param('name');
my $message = param('message');
my $cnt;

if (param) {
if ($name) {
if ($message) {

open( LOG, "$file" );
$cnt = <LOG>;
close(LOG);

$cnt++;
open( LOG, "> $file" );
print LOG $cnt;
close(LOG);

my $keeptime = join ( ':', $hour, $min, $sec );
my $info = join ( '::', $name, $message, $keeptime );

$chat{$cnt} = $info;
}
else {
print "Message was missing, data not sent.<br>";
}
}
else {
print "Name was missing, data not sent.<br>";
}
}

"Age is nothing more than an inaccurate number bestowed upon each of us at birth as just another means for others to judge and classify us- sulfericacid

sulfericacid · Jun 25, 2003

I noticed that the refresh button isn't doing as it's supposed to but I was told that's the way to refresh the page. I tried adding the meta line but it still won't refresh after you click SUBMIT.

"Age is nothing more than an inaccurate number bestowed upon each of us at birth as just another means for others to judge and classify us- sulfericacid

PaulTEG · Jun 25, 2003

"<font size=2 palign=right><b>

should read as <font size="2"><p align="right"><b>

But that's not relevant to the refresh issue.

Aha, it looks like its not a refresh issue.

Write to the DBM file before generating the output.

HTH
--Paul

It's important in life to always strike a happy medium, so if you see someone with a crystal ball, and a smile on their face ...

usige · Jun 25, 2003

Ok for the reload try changing your onclick to the following:

Code:

 onclick=&quot;window.location.reload()&quot;

I'm not seeing the meta tag in the document head. You can also try:

Code:

print header(-expires => '-1d'), start_html;

PaulTEG · Jun 25, 2003

Sulf,

Did that sort it out?

Paul

It's important in life to always strike a happy medium, so if you see someone with a crystal ball, and a smile on their face ...

sulfericacid · Jun 26, 2003

Sorry about the wait, I've been away most of the evening. Changes I have made: I redid the p align tag which meant I didnt' have to use a block of 100 & nbsp; codes. I used the suggestion as the new OnClick event for the refresh button but that still doesn't seem to work. But for the suggestion on the time code, I think that'll be left the same since that's one of the few things that actually work right now.

Paul, I tried your last suggestion (which makes a lot of sense) but the same problem arises. My current code is below incase the idea is right and I'm just doing something silly.

Thanks guys!

#!/usr/bin/perl -w

open( STDERR, ">>/home/sulfericacid/public_html/error.log" )
or die "Cannot open error log, weird...an error opening an error log: $!";

use strict;
use warnings;
use POSIX;
use CGI qw

standard start_table end_table);

use lib "";
use Tie::IxHash;

require SDBM_File;

my %chat;
my %chatorder;
my $chat = "list.dbm";
my $file = "iplog.txt";

tie %chat, "Tie::IxHash";
tie %chatorder, "Tie::IxHash";

tie %chat, 'SDBM_File', $chat, O_CREAT | O_RDWR, 0644;
if ( !tied %chat ) {
print "database unsuccessful $!.\n";
}

$|=1; # maybe this will help page refreshing

my $js="<script langauge=\"Javascript\">
document.write('<form><input type=button value=\"Refresh\" onClick=\"window.location.reload()\"></form>');</script></noscript></noscript>";

# Time to keep accurate logs
#
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime(time);

print header, start_html;

my $name = param('name');
my $message = param('message');
my $cnt;

if (param) {
if ($name) {
if ($message) {

open( LOG, "$file" );
$cnt = <LOG>;
close(LOG);

$cnt++;
open( LOG, "> $file" );
print LOG $cnt;
close(LOG);

my $keeptime = join (':', $hour, $min, $sec);
my $info = join ( '::', $name, $message, $keeptime );

$chat{$cnt} = $info;
}
else {
print "Message was missing, data not sent.<br>";
}
}
else {
print "Name was missing, data not sent.<br>";
}
}

print "(<a href=\"log.pl\" target=\"new\">chat logs</a>)";

print "the local time is $hour:$min:$sec";

print start_table;
print Tr(td({-height=>'5', width=>'700', bgcolor=>'#BBCCEE'},"<font size=2><b>ChatterBox version 1.0</b></font>" ));
print Tr(td({-height=>'5', width=>'700', bgcolor=>'#BBCCEE'},"&quot

);

my $add;

foreach (reverse keys (%chat)) {
$add++;

if ($add <= 10) {
$chatorder{$_} = $chat{$_};
}
}

foreach (reverse keys (%chatorder)) {
my ( $name, $message, $time ) = split /::/, $chatorder{$_};
print Tr(td({-width=>'700'},"<font color=blue>$name @ $time:</font> $message&quot

),
}
print Tr(td({-height=>'5', width=>'700', bgcolor=>'#BBCCEE'},"&quot

);
print Tr(td({-height=>'5', width=>'700', bgcolor=>'#BBCCEE'},"<font size=2><p align=right><b>

http://sulfericacid.perlmonk.org</b></font>"

));

print start_form(), table(
Tr(
td("Name: &quot

,
td(
textfield(
-name => 'name',
-size => 40
)
)
),
Tr(
td("Message: &quot

,
td(
textfield(
-name => 'message',
-size => 100,
-force=>1,
)
)
),

Tr( td(),
td(submit('send'), $js),
),
end_form(),
hr(),
);

"Age is nothing more than an inaccurate number bestowed upon each of us at birth as just another means for others to judge and classify us- sulfericacid

sulfericacid · Jun 26, 2003

Actually the problem is solved now

Someone suggested that I add an $action attribute to the form like this start_form(-action=>$url), ($url is the chat page). With the action attribute it appears it actually reloads the entire page and it displays what was just updated. [

http://sulfericacid.perlmonk.org/chat/chat.pl

]. Thanks so much for your help everyone!

sulfericacid

"Age is nothing more than an inaccurate number bestowed upon each of us at birth as just another means for others to judge and classify us- sulfericacid

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Java+Perl syntax error 1

sulfericacid

Programmer

PaulTEG

Technical User

usige

Technical User

sulfericacid

Programmer

PaulTEG

Technical User

sulfericacid

Programmer

PaulTEG

Technical User

usige

Technical User

sulfericacid

Programmer

sulfericacid

Programmer

PaulTEG

Technical User

usige

Technical User

PaulTEG

Technical User

sulfericacid

Programmer

sulfericacid

Programmer

Similar threads

Part and Inventory Search

Sponsor