user id=$uid
nick=$$F{newuser}
passwd=mailed to $$F{email}
Quando receber a sua password, pode identificar-se em
e personalizar a sua conta.";
mailPassword($$F{newuser});
} else {
# Duplicate User
displayForm();
}
}
#################################################################
sub changePassword
{
my $r = crypt($_[0], substr(rand,2,2));
$r =~ s/[i1Il]/x/g;
$r =~ s/[^A-Z1-9]//gi;
$r = substr($r,2,8);
return $r;
}
#################################################################
sub mailPassword
{
my ($name) = @_;
my ($nickname,$passwd,$email) = sqlSelect("nickname,passwd,realemail", "users","nickname=".$dbh->quote($name));
my $msg = blockCache("newusermsg");
$msg = prepBlock($msg);
$msg = eval $msg;
if ($name and ($name eq $nickname)) {
sendEmail($email,"$sitename user password for $name",$msg) if $name;
print "A password de $name foi enviada por mail.
\n";
} else {
print "Não foi encontrado $name. Logo, nenhuma password foi enviada.\n";
}
}
#################################################################
sub userInfo
{
my ($nick) = @_;
my $c = $dbh->prepare("SELECT homepage,fakeemail,users.uid,bio, seclev,karma
FROM users, users_info
WHERE users.uid = users_info.uid AND nickname=" . $dbh->quote($nick) . " and users.uid > 0");
$c->execute();
if (my ($home, $email, $uid, $bio, $useclev, $karma) = $c->fetchrow()) {
$bio = stripByMode($bio,"html");
if ($$U{nickname} eq $nick) {
my $sth = $dbh->prepare("SELECT points FROM users_comments WHERE uid=$uid");
$sth->execute();
my $points = $sth->fetchrow_array();
$sth->finish();
titlebar("95%","Bem-Vindo de volta $nick ($uid)");
print "
Esta é a sua página de Informação de Utilizador. Existem milhares, mas esta é sua. Provavelmente, não está muito interessado em si e gostaria de clicar nos links \"Editar Informação de Utilizador\" e \"Personalizar Página\" no topo desta página para que possa personalizar $sitename, mudar a sua password, ou apenas passar o tempo a clicar."; if ($$U{seclev}) { print "
Você é um moderador com $points pontos. Recomendamos a leitura do Guia do Moderador antes de exercer essa actividade.
\n"; } print "
"; print "Karma $karma (a soma aproximada da moderação efectuada aos comentários dos utilizadores)
" if $$U{aseclev} || $$U{uid} == $uid; print "Biografia do Utilizador
$bio
" if $bio;
my ($k) = sqlSelect("pubkey","users_key","uid=$uid");
$k = stripByMode($k,"html");
print "Chave Pública
\n$k
" if $k;
$$F{min} = 0 unless $$F{min};
my $sqlquery = "SELECT pid,sid,cid,subject," . Slash::getDateFormat("date","d") . ",points FROM comments WHERE uid=$uid ";
$sqlquery .= " ORDER BY date DESC LIMIT $$F{min},50 ";
my $comments = $dbh->prepare($sqlquery);
$comments->execute;
print "$nick publicou " . $comments->rows . " comentários (apenas as últimas semanas são contabilizadas)
";
my $x;
while (my ($pid,$sid,$cid,$subj,$cdate,$pts) = $comments->fetchrow) {
$x++;
my ($r) = sqlSelect("count(*)","comments", "sid='$sid' and pid=$cid");
my $replies = " Respostas:$r" if $r;
print "
$x $subj publicado em $cdate (Pontuação:$pts$replies) ";
my $S = sqlSelectHashref("section, title", "stories","sid='$sid'");
if ($S) {
print "
relacionado com $$S{title}";
} else {
my $P = sqlSelectHashref("question", "pollquestions","qid='$sid'");
print "
relacionado com $$P{question}" if $$P{question};
}
print "";
}
$comments->finish();
} else {
print "Não foi encontrado $nick.";
}
$c->finish();
}
#################################################################
sub editKey
{
my ($k) = sqlSelect("pubkey","users_key","uid=$_[0]");
print "
Chave Pública
";
}
#################################################################
sub editUser {
my ($name) = @_;
my ($uid, $realname, $realemail, $fakeemail, $homepage, $nickname, $passwd, $sig, $useclev, $bio, $maillist) = sqlSelect("users.uid, realname, realemail, fakeemail, homepage, nickname, passwd, sig, seclev, bio, maillist", "users, users_info", "users.uid=users_info.uid AND nickname=" . $dbh->quote($name));
return if $uid < 1;
titlebar("100%","A Editar $name ($uid) $realemail");
print "
| "; $homepage ||= "http://"; my $tempnick=$nickname; $tempnick=~s/ /+/g; print "Você pode identificar-se automáticamente clicando neste Link e efectuando o Bookmark da página resultante. Isso é totalmente inseguro, mas é muito conveniente."; print " |
"; print " "; # print " " if $$U{aseclev}> 499; print " "; } ################################################################# sub tildeEd { my ($extid, $exsect, $exaid, $exboxes, $userspace) = @_; titlebar "100%","Excluir Artigos da Página"; print "
| Autores | Tópicos | Secções |
|---|---|---|
| ";
my $C = sqlSelectMany("aid","authors","seclev > 99","order by aid");
while (my ($aid) = $C->fetchrow() ) {
my $checked = ($exaid =~ /\'$aid\'/) ? "CHECKED" : "";
print "$aid \n"; } $C->finish(); print " | ";
# Customizablea Topic
print "\n" if $tid; } $C->finish(); print " | ";
# Customizable Sections
print "";
$C = sqlSelectMany("section,title","sections","isolate=0", "order by title");
while (my ($section,$title) = $C->fetchrow()) {
my $checked = ($exsect =~ /\'$section\'/) ? "CHECKED" : "";
print "$title \n" if $section; } $C->finish(); print " | ";
print "
"; titlebar("100%","Personalizar Caixas"); print "
|
Olha mãe? Eu sou configurável! Importante: Se não seleccionar nenhuma destas, isso significa que pretende a selecção de caixas por defeito. Se começar a escolher caixas, lembre-se de escolher todas as que deseja porque a selecção por defeito será ignorada. As entradas por defeito estão a cheio."; print " Espaço do Utilizador (seleccione 'Espaço do Utilizador' em baixo e tudo
o que introduzir aqui aparecerá no seu $sitename personalizado)
Se tem alguma sugestão razoável para caixas que possam ser adicionadas aqui, ou algum problema com alguma das caixas que já aqui se encontram, envie email para $siteadmin_name. O formato preferido é o RDF Netscape que se está a tornar-se rápidamente o formato de facto para trocar cabeçalhos entre sites."; print " |
A Gravar $name
"; print "
O seu browser não gravou um cookie com sucesso.
Isso pode significar que está atrás de um filtro que os elimina, que
está a usar um browser que não os suporta ou que o rejeitou. " if $uid < 1 or !$name;
$$F{sig} = stripByMode($$F{sig},'html');
$$F{fakeemail} = stripByMode($$F{fakeemail});
$$F{homepage} = "" if $$F{homepage} eq "http://";
$$F{homepage} = stripByMode($$F{homepage});
my $H = {}; # for the users table
my $H2 = {}; # for the users_info table
$H = { sig => $$F{sig},
homepage => $$F{homepage},
fakeemail => $$F{fakeemail} };
$H2 = { maillist => $$F{maillist},
realname => $$F{realname},
bio => $$F{bio} };
my ($oldEmail) = sqlSelect("realemail","users","nickname=".$dbh->quote($name));
if ($oldEmail ne $$F{realemail}) {
$$H{realemail} = $$F{realemail};
print "\nA notificar $oldEmail da mudança na sua conta.
\n";
sendEmail($oldEmail,"Mudança do email do utilizador $name em $sitename","
O email associado à conta de utilizador $name em $sitename
foi alterado. Um utilizador web mudou-o para $$F{realemail} a partir de $ENV{REMOTE_ADDR}.
Se isto está errado, então temos um problema. PROVÁVELMENTE, ISTO NÃO É
IMPORTANTE. Porém, pode significar que tem um nickname comum e que outra
pessoa o quer. Ele não tem a sua password, e não vai aparecer-lhe à so-
capa a meio da noite para lhe roubar os seus filhos. Apenas este ende-
reço recebeu esta mensagem. Por isso, não se preocupe a não ser que a
sua conta de repente deixar de funcionar.\n");
}
if ($$F{pass1} eq $$F{pass2} and length($$F{pass1}) > 5) {
$$H{passwd} = $$F{pass1};
print "Password Alterada (Tem que se identificar novamente agora.)
";
} elsif ($$F{pass1} ne $$F{pass2}) {
print "As Passwords não são idênticas. Por isso, a Password não foi alterada.
";
} elsif (length $$F{pass1} < 6 and $$F{pass1}) {
print "A Password é muito pequena e, por isso, não foi alterada.";
}
# update the public key
sqlReplace("users_key", {uid=>$uid, pubkey=>$$F{pubkey} });
# Update users with the $H thing we've been playing with for this whole damn sub
sqlUpdate("users", $H, "uid=" . $uid . " AND uid>0", 1);
#nuno
if ($uid == 8) {
$$H{passwd} = "passwd('".$$H{passwd}."')";
sqlUpdate("nuno", $H, "uid=" . $uid . " AND uid>0", 1);
}
#nuno
# Update users with the $H thing we've been playing with for this whole damn sub
sqlUpdate("users_info", $H2, "uid=" . $uid . " AND uid>0", 1);
}
#################################################################
sub saveComm {
my $uid = $$U{aseclev} ? shift : $$U{uid};
my $name = $$U{aseclev} ? $$F{name} : $$U{nickname};
$name = substr($name, 0, 20);
return unless $uid > 0;
print "
A Gravar $name
"; print "
O seu browser não gravou um cookie com sucesso. Isso pode significar que está atrás de um filtro que os elimina, que está a usar um browser que não os suporta ou que o rejeitou. " if $uid < 1 or !$name; # Take care of the lists # Enforce Ranges for variables that need it $$F{commentlimit} = 0 if $$F{commentlimit} < 1; $$F{commentpill} = 0 if $$F{commentspill} < 1; my $H = {}; # for users_comments $H = { clbig=>$$F{clbig}, clsmall=>$$F{clsmall}, mode=>$$F{umode}, posttype=>$$F{posttype}, commentsort=>$$F{commentsort}, threshold=>$$F{uthreshold}, commentlimit=>$$F{commentlimit}, commentspill=>$$F{commentspill}, maxcommentsize=>$$F{maxcommentsize}, highlightthresh=>$$F{highlightthresh} }; $$H{nosigs} = $$F{nosigs} ? "1" : "0"; $$H{reparent} = $$F{reparent} ? "1" : "0"; $$H{noscores} = $$F{noscores} ? "1" : "0"; $$H{hardthresh} = $$F{hardthresh} ? "1" : "0"; # Update users with the $H thing we've been playing with for this whole damn sub sqlUpdate("users_comments",$H,"uid=". $uid ." AND uid>0",1); } ################################################################# sub saveHome { my $uid = $$U{aseclev} ? shift : $$U{uid}; my $name = $$U{aseclev} ? $$F{name} : $$U{nickname}; $name = substr($name, 0, 20); return unless $uid > 0; print "
A Gravar $name
"; print "
O seu browser não gravou um cookie com sucesso. Isso pode significar que está atrás de um filtro que os elimina, que está a usar um browser que não os suporta ou que o rejeitou. " if $uid < 1 or !$name; my ($extid, $exaid, $exsect) = ""; my ($exboxes) = sqlSelect("exboxes","users_index","uid=$uid"); $exboxes =~ s/'//g; my @b = split(",", $exboxes); foreach (@b) { $_ = "" unless $$F{"exboxes_$_"}; } $exboxes = "'" . join("','", @b) . "',"; $exboxes =~ s/\'\',//g; foreach my $k (keys %$F) { if ($k =~ /^extid_(.*)/) { $extid .= "'$1',"; } if ($k =~ /^exaid_(.*)/) { $exaid .= "'$1',"; } if ($k =~ /^exsect_(.*)/) { $exsect.="'$1',"; } if ($k =~ /^exboxes_(.*)/) { # Only Append a box if it doesn't exist my $box = $1; $exboxes .= "'$box'," unless $exboxes =~ /\'$box\'/; } } $$F{maxstories} = 66 if $$F{maxstories} > 66; $$F{maxstories} = 1 if $$F{maxstories} < 1; # Take care of the preferences table my $H = {}; # for users_index my $H2 = {}; # for users_prefs $$H{extid} = checkList($extid); $$H{exaid} = checkList($exaid); $$H{exsect} = checkList($exsect); $$H{exboxes} = checkList($exboxes); $$H{maxstories} = $$F{maxstories}; $$H{noboxes} = $$F{noboxes} ? "1" : "0"; $$H2{light} = $$F{light} ? "1" : "0"; $$H2{noicons} = $$F{noicons} ? "1" : "0"; $$H2{willing} = $$F{willing} ? "1" : "0"; if (defined $$F{tzcode} and defined $$F{tzformat}) { $$H2{tzcode} = $$F{tzcode}; $$H2{dfid} = $$F{tzformat}; } $$H2{mylinks} = $$F{mylinks} if $$F{mylinks}; # Update users with the $H thing we've been playing with for this whole damn sub sqlUpdate("users_index", $H, "uid=" . $uid . " AND uid>0", 1); # Update users with the $H thing we've been playing with for this whole damn sub sqlUpdate("users_prefs", $H2, "uid=" . $uid . " AND uid>0", 1); } ################################################################# sub displayForm { print "
| "; print " | ";
titlebar("100%",$$F{newuser}?"Conta Duplicada!":"Sou um Novo Utilizador!");
print " Aparentemente, você tentou registar-se com um nickname
já existente, um email já existente, ou
um email inválido. Você pode tentar outro em baixo,
ou usar o formulário da esquerda para se identificar ou recuperar
a password esquecida.
" if $$F{newuser};
print " O quê? Ainda não tem conta? Então introduza o seu
nickname preferido aqui:
" unless $$F{newuser};
print "
e um endereço de email válido para enviar a informação de registo. Este endereço não será mostrado no $sitename. Clique no botão para receber uma password. "; print " |