UBB.Developers Forums Community Development Programming PHP and Server-side Scripting A little help with some code

sub RunUser {
$FormattedUser = shift;
$FormattedUser2 =~ s/ /_/g; #convert spaces

@foundprofile = &OpenFile("$DataPath/$FormattedUser");

if (-e "$DataPath/members.cgi") {
$Count = 0;
foreach $thisone(@foundprofile) {
chomp($foundprofile[$Count]);
$Count++;
}
return(@founduser);
} else {

@profileinfo = split (/|/, $founduser[9]);

return (@datainfo);
}
} # end RunUser


It works, it runs slowly though.

------------------
UBBDEV Moderator
OCCUPATION: Programmer, webmaster.

Hack Developer of the Ultimate Bulletin Board. I am not an employee of Infopop

Due to time limitation, I do not offer support Via. E-mail. Please post on the forums.

Sincerely,
MasterMind

You can just replace that with:
chomp(@foundprofile);

could you give me that openfile sub so i can use it with my programs?

------------------
Wartortle

I'm supposed to put somthin here?


This message has been edited by Wartortle on November 10, 2000 at 07:08 PM

Thanks.
You can modify that one if you wish. All my basic routines are opensource unless otherwise noted.

------------------
UBBDEV Moderator
OCCUPATION: Programmer, webmaster.

Hack Developer of the Ultimate Bulletin Board. I am not an employee of Infopop

Due to time limitation, I do not offer support Via. E-mail. Please post on the forums.

Sincerely,
MasterMind

Mind telling us what you are trying to do

Of course it will run slowly, you are KILLING the server there. Storing the entire contents of the members.cgi file, whcih can be HUGE in an array, then using foreach -- ouch!

------------------
Da Wannabe Cannuck

:: Who is Andy?

My bad, guess your not reading members.cgi into the array, still don't know what you are doing.

------------------
Da Wannabe Cannuck

:: Who is Andy?

atom -
I know it runs slowly. Thats why i asked for some help in making in run faster.

------------------
UBBDEV Moderator
OCCUPATION: Programmer, webmaster.

Hack Developer of the Ultimate Bulletin Board. I am not an employee of Infopop

Due to time limitation, I do not offer support Via. E-mail. Please post on the forums.

Sincerely,
MasterMind

And, atom, i'm NOT putting it into an array.

------------------
UBBDEV Moderator
OCCUPATION: Programmer, webmaster.

Hack Developer of the Ultimate Bulletin Board. I am not an employee of Infopop

Due to time limitation, I do not offer support Via. E-mail. Please post on the forums.

Sincerely,
MasterMind

sub RunUser {
$FormattedUser = shift;
$FormattedUser2 =~ s/ /_/g; #convert spaces

@foundprofile = &OpenFile("$DataPath/$FormattedUser");

if (-e "$DataPath/members.cgi") {
$Count = @foundprofile;
return(@founduser);
} else {
@profileinfo = split (/|/, $founduser[9]);
return (@datainfo);
} # end if
} # end sub RunUser

Yeah, you still haven't answered Atom911 question. We need to know what your tring to do

Ok, I was just doing some assuming but I played with it. Not sure where some of the variables/arrays come from. But I'll leave those up to you.

------------------
Powered by ZCom Bulletin Boards

Could you show me the sub OpenFile routine?

------------------
Wartortle

I'm supposed to put somthin here?