Wah thanks banget nih...:)
btw sekarang error messagenya udah ilang :)
oh ya yang "#line 66" tadi sebenarnya "#line 53" maksudnya :)
tau tadi lagi mikir apaan jadinya nulisnya line 66 lagi padahal 53 :)
oh ya, tapi tetep aja blum bisa masuk ke webmailnya :( apa ada hubungannya
dengan $sessionid = "$popname $poppass $currentlanguage $newpop @"; sama
elsif ($sessionid =~ /\@/)
soalnya kalo yang $popname =~ s/\@([^\@]+\.\w+)\$/\%\$1\$/g; diremark
lantas di input formnya dimasukin "webmaster%namadomain.dom" itu bisa
masuk ke webmailnya...tapi kalau pake "[EMAIL PROTECTED]" masih
blum bisa masuk :(
---- part of program ----
if ($sid eq "NONE")
{
srand (time|$$);
$sessionidfile = int(rand(100000));
$sessionidfile .= ".$$";
$sessionid = "$popname $poppass $currentlanguage $newpop @";
$cryptsess = pack("u*", $sessionid);
open(SESSID, "> $base_sid_directory$sessionidfile") || die "Cannot
open $base_sid_directory$sessionidfile";
$cryptsess =~ s/\n//g;
print SESSID "$cryptsess";
close(SESSID);
$sid = $sessionidfile;
$logstat = "LOGIN";
&logging;
#line
elsif ($sessionid =~ /\@/)
{
@pop = split (/ /, $sessionid);
$popname = $pop[0];
# $popname =~ s/\@/\%/g;
# $popname =~ s/\@([^@]+\.\w+)$/\%$1$/g;
# $popname =~ s/\@([^\@]+\.\w+)\$/\%\$1\$/g;
$poppass = $pop[1];
$currentlanguage = $pop[2];
$newpop = $pop[3];
open(SESSID, "< $base_sid_directory$sid") || die "Error opening db
$sessiondb";
$newsession = <SESSID>;
close(SESSID);
open(SESSID, "> $base_sid_directory$sid") || die "Cannot open
$base_sid_directory$sid";
print SESSID "$newsession";
close(SESSID);
}
>itu kalau di line 66 ada komentnya (#) maka errornya ada di
>baris 53 ...
>coba baris ke 53 dikasi
>coba baris ke 53 dikasih tanda \ pada tempat sebelum $, misalnya \$.
>maaf mungkin sudah tahu, tanda \ ini digunakan untuk menampilkan nilai
>karakter
>sesuai dengan huruf selanjutnya, jadi $a dan \$a akan dianggap lain
>yang pertama adalah variable dan yang ke dua bukan ...kalau diprint maka
>yang ke
>dua
>akan
>tertampilkan $a ...sedang yang pertama akan ditampilkan nilai $a.
>terus juga baris ke 66 itu, walau pun ada tanda komentnya , kalau
misalnya
mau>
dihilangin
>tanda komennya, maka penulisan yang benar adalah
> $popname =~ s/\@([^\@]+\.\w+)\$/\%\$1\$/g; #line 66
>semoga membantu ...
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
