znachi primerno iskam da si napravia edin admin panel za daden script.
toi shte se sustoi ot
login.pl - suotvetno za login
menu.pl - menuto
i da kajem ima oshte nikakvi si filove - niama znachenie.
vuprosat mi e svurzan s logvaneto v tozi admin panel

znachi da kajem ako beshe pod php 4 v nachaloto na fila login.pl moga da sloja edna funkcia session_start(); koiato startira nov session ili puk produljava star ako ima takuv. Po nadolu v tozi file suotvetno si se printva edna forma za login i usera si username-a i pass-a. Ako te sa verni togava moga da napravia taka:
$logged = 1;
session_register("logged");
tuk funkciata session_register() registrira promenlivata $logged i neinata stoinost kum tozi session kogoto startirahme v nachaloto na fila sus session_start().
i sega da kajem se poiaviava nadpis che logvaneto e uspeshno i t.n. i edin link kum menu.pl. Klikvam si az na linka i kakvo stava:
v nachaloto na menu.pl ima pak sushtata funkcia session_start(); tuk tazi funkcia vijda che ima startiran session ot login.pl i vmesto da startira nov tia resume-va staria zaedno sus stoinosta na onazi promenliva $logged;
i sega suotvetno moga da si napravia vuv fila
if($logged==1) {
print "ok";
} else {
print "Access Denied, please login";
exit;
}

a sega sled vsichko tova koeto izpisah... Kak po diavolite da napravia tova neshto v perl? ima li nachin? zashtoto ne iskam da polzvam cookies ili puk da izpolzvam razni promenlivi v url-a sus kriptirani passwords i t.n.

standartno niama (ili pone az ne se seshtam)
Selena Sol navremeto beshe pisala framework za tazi cel - ako mozhesh go nameri

gotovi moduli sa

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

hidden params sa mnogo insecure. vseki moje da gi vidi i da postne kam scripta. az sus sesii na perl ne sam rabotil i za celta polzvam coockies. mnogo sa si udobni. pravq si funkciq checkUser() koqto proverqva dali e validno coockito i vrushta imeto na usera. ostava samo da si q vikam na podhodqshtite mesta.
tova koeto ti pitash stava po sledniq na4in:

if (checkUser() ne 'guest'){print "please log in";exit(0);} #guest se vrashta pri nevaliden user
else {$logged=1;}
....

ostava da si napravish checkUser()

mi to kakto kazvash che vseki moje da postne na scripta hidden params - taka vseki moje da si napravi cookie i da pishe vatre kvoto triabva.

log-va se vednaj kato ivan, chete si cookie-to i do promenia na dragan. i ako ne doproverish nestata (da slojish session number ili niakakav unikalen kluch napr) - na teb ti e doshal dragan na gosti.

TANSTAAFL! There AiNt Such Thing As A Free Lunch