Aporia me perl script

[gameboy]

Kalhspera

epeidh eimai asxetos me perl rotao to eksis

prospa8o na balo ena script alla se mia stigmh mou leei oti prepei na trekso ena perl arxeio apo telnet (apo www den trexei) gia na ftiakso to admin account

epeidh den exo access se telnet mporeite na mou peite poy prepei na balo to username kai to password sto scriptaki ?

-#!/usr/bin/perl

-#

-# You might want to edit these

 

-$nothing = "";

-use File::Copy;

-require "config.pl";

-print "Add admin user for BatchGrab-CGI\n\n";

 

-print "Enter Admin Password : ";

-$pass = <STDIN>; chomp($pass);

-print "Retype Admin Password : ";

-$pass2 = <STDIN>; chomp($pass2);-

 

-if ($pass ne $pass2) {

- die "Passwords much match\n";

-} else {

- print "Adding Admin User\n";

- $cryptpass = cryptpass($pass);

- open(LIST,"+>>users.dat") or

[zouzouni]

Auto to scriptaki den einai gia na treksei apo ton browser sou sigoura .Den exo pira apo telnet alla malon mono apo telnet trexei (an telnet exei teties dinatotites na trexei perl dildai)

 

-#!/usr/bin/perl

#Edw grafeis pou briskete i perl

-#

-# You might want to edit these

 

-$nothing = "";

#auto den sriazete ap'oti fenete malon xriazete

#parakato se eimio pou den fenete

-use File::Copy;

# Xrisi tou File::Copy module tis perl gia na diefkolinei ergasies me fakelous

-require "config.pl";

#To config.pl einai enas fakelos pou prepei na uparxei mazei me to script sou ,profanos exei kapies times pou xrisimopiei to script pou mporeis na tis allakseis an theleis

 

-print "Add admin user for BatchGrab-CGI\n\n";

 

-print "Enter Admin Password : ";

Edo sou leei na baleis tin password to <STDIN> einai gia tipou dos isodo timon

 

-$pass = <STDIN>; chomp($pass);

-print "Retype Admin Password : ";

# Ksanabazeis tin password

-$pass2 = <STDIN>; chomp($pass2);-

 

-if ($pass ne $pass2) {

- die "Passwords much match\n";

-} else {

- print "Adding Admin User\n";

- $cryptpass = cryptpass($pass);

- open(LIST,"+>>users.dat") or

 

#Edo tha xriazotan kati tetio

 

if (length($pass2)==8 && crypt($pass2) eq $realpassword) {

open(LIST,"+>>users.dat");

}

# diladi gia megaliteri asfalia enas ellenxos an h password einai 8 xaraktirwn (h oson theleis esi)

 

<small>[ 10-03-2002, 01:04: Το μήνυμα επεξεργάστηκε από: zouzouni ]</small>

[jonsof]

Giati epimeneis sthn Perl kai oxi sthn Php? Ti parapano exei dilaldi?