Help with "Password protection" script adaptation (Anonymous Monk)

Help with "Password protection" script adaptation

Anonymous Monk

created: 2004-07-01 13:05:01

perlmonks

node
author

prlmnks

node
author

Hello,

I'm rephrasing a question written 3 days ago:

I am a new user of < a href="http://baseportal.com">http://baseportal.com
It's a free database portal, and it has no support.

I want to have password protection to my database: for users to be able to modify and/or delete only their own entries, and only to read, search, and sort the other entries.

My problem is that I have no Perl knowledge, and I can not implement the solution given there (in the "Library" section at "baseportal.com") for the "Password protection".
The problem is when I want to adapt it... because for that I assume you must know Perl...

Here is the address of my trial database:
http://baseportal.com/cgi-bin/baseportal.pl?htx=/wnct/main
(Search can be done after 6 variables, and sorting can be done after 6 variables too)

Here is the script I used for my trial database (I constructed it upon a template given in baseportal.com):
------------------------------------------------

--------------------------------------------------
Here is how looks the example given at "baseportal", what I want to adapt:
< a href="http://baseportal.com/baseportal/baseportal/lib/password2/phone_numbers">http://baseportal.com/baseportal/baseportal/lib/password2/phone_numbers

And here is the script given for it:
--------------------------------------



put if %_put;

if($Id ne "")
{
  get "Id==$Id";

  if($xName)
  {
    if($Password eq $xPassword)
    {
      mod "Id==$Id", ["Name",$xName,"Phone number",$xPhone];
      out "Entry modified...";
    } else
    {
      out "Wrong password!";
    }
  } else
  {

    out <Modify Entry








Name: 

Phone number: 

Password: 

 


EOF

  }

  out "New entry";

} else
{
  out "
New entry";
  out "You can modify your entry with the chosen password later on.";

  init; get;
  list "add";
}

get;

out "List of all entries";

out "";
while(get_next)
{
  out "";
}
out "Name Phone number
$Name $_loop{'Phone number'}";

-------------------------------------
What I have to change in this example script to adapt it, and what I have to change in my original code to keep all the initial output and all the previous functions intact (the searchability and sortability)?
-----------------------------------------------

Thanks for any possible help monks :)!!!

Alex,
Email: altordai@yahoo.com

Â•Re: Help with "Password protection" script adaptation

merlyn

created: 2004-07-01 13:12:55

perlmonks

prlmnks

It's a free database portal, and it has no support.
...
My problem is that I have no Perl knowledge,
...
The problem is when I want to adapt it... because for that I assume you must know Perl...

Well, the Monastery is for Perl Programmers to help other Perl Programmers, not a replacement or supplement for the lack of help-desk end-user support. If you want to hire one of us, post a contract at jobs.perl.org. Or, learn some Perl, and come back when you have a Perl question other than "do this for me".

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

update: And you were told this already. Nothing changed, so don't keep asking the same question repeatedly.

Re: Help with "Password protection" script adaptation

tinita

created: 2004-07-01 17:14:22

perlmonks

prlmnks

have you tried the baseportal message board? the site doesn't have official support, but i think the message board (or forum) can be very helpful.
i know baseportal.com, because i have an account and played around with some small databases, but it's long ago, so i can't provide much help. the way baseportal is implemented is too specific probably to get help here - that's also the reason i stopped working on my test databases there: it's a great tool to make simple databases without much programming knowledge, but once you want to have more complicated functionality you quickly reach the limits of baseportal.

Re^2: Help with "Password protection" script adaptation

Anonymous Monk

created: 2004-07-02 11:21:05

perlmonks

prlmnks

They have launched a new version of the baseportal.com about 3 months ago.
They say (the folks that are using the service) that it's greately improved now- at least that's what I understud from the many happy posts in the "Forum".
As about the Forum- sure, I first posted my question there, after I looked through every question related to password protection...
The guy who usually answers questions, some "Cristoph" never ever goes in detail: he just points out: "adapt example 1" or "adapt example", etc.
So many baseportal users are in my situation- I'm very sure about this...

Anyway, I got another reply here, who says that the example password script is a "crapware" (best described), because anybody can insert for ex. porn pictures too
He's done it, to show me (check out his reply, you'll se the link).
But I still think baseportal can be great, because in FAQ-s they say you can implement any kind of perl code in your database script.
And, the limit for a database is...4 GB!!! (even if it's free)

Can you give me a suggestion about a nother password protection script I could use there?

Thanks...
Alex

Re: Help with "Password protection" script adaptation

Anonymous Monk

created: 2004-07-02 01:34:09

perlmonks

prlmnks

This widget is really best described as crapware, it will let you insert porn images as phone numbers for crying out loud! See Hello World