littlest — Tue, 07 May 2002 10:18:00 +0000

I dont understand why nobody suggested using Server Side Includes (SSI)?

You have created the same script without fowarding the user anywhere. All you would have to include this in your files:

On your index or any page you wanted to record users. You may or may not have to change your files to .shtml files.

This would probally be better for the users depending on the speed of their connection. When using fowarding in perl it takes a sec to foward it, it isn't instant. If you use the server side includes, it will be recording the data while the user is viewing the page.

I would also recommed putting all the keys on one line, espcially if you start to get lots of visitors. I use a small script like that for one of my gallery sites and even tho it is all on one line, it is still crazy to read it in text db form.

Have fun learning to script, you can only get better!

Suzanne — Mon, 06 May 2002 17:11:45 +0000

For the future, $! is a variable in perl. In the case of the "or die $!", it returns the error for viewing if the function fails (dies).

Wil — Mon, 06 May 2002 09:23:34 +0000

Hm. I didn't forget anything - scroll up to my original code posting, you just decided to do some editing

No need to delete the thread - this could be useful for other community members. Glad you got it working in the end!

brady.k — Mon, 06 May 2002 02:24:14 +0000

i finally got it...you guys forgot a ; after open (DB,">>$db") or die $!;
and i took out the or die part...thanks guys!(you can delete this thread now)

Mark Hensler — Sun, 05 May 2002 19:18:02 +0000

Yes, it will. Wont it Wil?

brady.k — Sun, 05 May 2002 19:02:17 +0000

will that make a difference?

Wil — Sun, 05 May 2002 12:42:54 +0000

OK. Look at the code you posted. Now look at the code I posted above? Spotted the error yet?

You have:

open (DB,">>$db")$!;

I had:

open (DB,">>$db") or die $!;

brady.k — Sat, 04 May 2002 22:38:57 +0000

ok...i did that and i got these errors in the log:
No such file or directory at /home//index.cgi line 12.
syntax error at /home/cgi-bin/login.pl line 20, near "):"
syntax error at /home/cgi-bin/login.pl line 27, near "}"
Execution of /home/cgi-bin/login.pl aborted due to compilation errors.
locate: not found
locate: not found
Scalar found where operator expected at /home//index.cgi line 12, near ")$!"
(Missing operator before $!?)
syntax error at /home//index.cgi line 12, near ")$!"
Execution of /home//index.cgi aborted due to compilation errors

and the code is

#!/usr/local/bin/perl

	use CGI;
	my $query = CGI->new();

	# where is our database?

	my $db = "/home/restricted/memberdata.txt";

	# loop through env. variables and print them into database.

	open (DB,">>$db")$!;
	foreach $key (sort keys(%ENV)) { 
		print DB ("$key = $ENV{$key}\n"); 
	} 
	print DB ("\n");
	close DB;

	# we've done snooping, let's redirect to another page.

	my $url = "http://1eyefilms.hypermart.net/home.html";

	print $query->redirect("$url");

Wil — Fri, 03 May 2002 10:06:17 +0000

It says what at line 12? For some reason it can't open your database file. Make sure

a) the file exisits.
b) your path is correct.
c) you've CHMOD the file to 777 (for testing purposes, anyway).

Suzanne — Fri, 03 May 2002 01:46:15 +0000

Weird, that response should have been with your other thread. !!

Or not -- did you delete a post? Ack! I'm going crazy! lol...