El web dels Arenyautes està temporalment tancat per tasques de mantenimnet. Disculpeu les molèsties.

"; echo "

Mentre tant, si ho voleu podeu visitar el nou web dels arenyautes

"; exit; } */ /* $arenyauta = "arenyauta"; $Arenyauta = "Arenyauta"; $ARENYAUTA = "ARENYAUTA"; $arenyautes = "arenyautes"; $Arenyautes = "Arenyautes"; $ARENYAUTES = "ARENYAUTES"; $darenyautes = "d'arenyautes"; $dArenyautes = "d'Arenyautes"; $darenyauta = "d'arenyauta"; $dArenyauta = "d'Arenyauta"; $larenyauta = "l'arenyauta"; $lArenyauta = "l'Arenyauta"; $Larenyauta = "L'arenyauta"; $LArenyauta = "L'Arenyauta"; $delarenyauta = "de l'arenyauta"; $delArenyauta = "de l'Arenyauta"; $arenysorg = "arenys.org"; $Arenysorg = "Arenys.org"; $ARENYSORG = "ARENYS.ORG"; $arenysorgarenyautes = "arenys.org/arenyautes"; $ARENYAUTES_SESSIO = "ARENYAUTES_SESSIO"; */ $conectats = false; sql_connect(); inici_sesio($ARENYAUTES_SESSIO); if (! isset($MN['PORTADA_O_FORUM'])) { $MN['PORTADA_O_FORUM'] = 'PORTADA'; } include $include . 'usuari_class.php'; $US = new Usuari("$Arenysorg - $Arenyautes"); if(!isset($fer)){ if (isset($alias)) { $fer = 'FITXA'; }elseif (isset($forum)) { $fer = 'FORUM'; }else{ $fer = $MN['PORTADA_O_FORUM']; } }else{ $fer = strtoupper($fer); } $IMGS = './IMGS'; $self = 'a.php'; //substr(strrchr($PHP_SELF,'/'), 1); $nbsp = chr(160); define('nbsp', chr(160)); define('br', '
'); $htmlhead = false; $cercant = false; if (! isset($es_alta)) $es_alta = 0; $font_face = '"'. $font_face . '"'; $font_facesize = ""; $codivisites = array( 'POR' => 'Portada', 'CER' => 'Cercador', 'LIN' => 'Login', 'LCA' => 'Login-Cancel', 'LUT' => 'Logout', 'FOR' => 'Fòrum-Visita', 'VAF' => 'Fòrum-Alta?', 'MAF' => 'Fòrum-Alta', 'FIT' => 'Fitxa-Visita', 'VPW' => 'Passw-Visita', 'MPW' => 'Passw-Canvi', 'VAL' => 'Alta-Visita', 'MAL' => 'Alta-Alta', 'VBA' => 'Baixa-Visita', 'MBA' => 'Baixa-Baixa', 'DFO' => 'Foto-A-Mà', 'VFO' => 'Foto-Visita', 'MFO' => 'Foto-Canvi', 'VBF' => 'Foto-Borra-V', 'MBF' => 'Foto-Borra-C', 'SNC' => 'Color-si-no', 'VCO' => 'Color-Visita', 'MCO' => 'Color-Canvi', 'VED' => 'Edita-Visita', 'MED' => 'Edita-Canvi'); include $include . 'usuari_fer.php'; //include $include . 'forum.php'; $dataedatminima = (date('Y') - $edatminima) . date('-m-d'); while (true) { if ($fer == 'MD5_CLAUS') { $US->webmaster_o_clau(); echo "Ocultant passwords amb MD5...
"; $result = sql("select alias, id, password from nautes"); while ($obj = sql_obj($result)) { if (strlen($obj->password) == 32) { echo "Nauta $obj->alias: Ja estaba ocult
"; continue; } $nou = md5($obj->password); sql("update nautes set password='$nou' where id=$obj->id"); echo "Nauta $obj->alias: Modificat
"; } test_avis('Ocultats amb MD5 tots els passwords'); $fer = 'PORTADA'; continue; } if ($fer == 'LONG2IP2CHAR') { $US->webmaster_o_clau(); echo "Convertint IP's a caracters...
"; $result = sql("select * from visites"); while ($obj = sql_obj($result)) { $ip = long2ip($obj->ip); $ip = explode('.', $ip); $ip = quote(chr($ip[0]) . chr($ip[1]) . chr($ip[2]) . chr($ip[3])); sql("update visites set ipc=$ip where id=$obj->id"); echo "Visita $obj->id: Modificada
"; } test_avis('Convertides totes les IP'); $fer = 'PORTADA'; continue; } if ($fer == 'MOTS_TOTS') { $US->webmaster_o_clau(); $result = sql("select alias,id from nautes"); while ($obj = sql_obj($result)) { update_mots($obj->alias, false); $visites = sql_arr("select count(*) as c from visites where (fx=$obj->id) and (modi='FIT')"); // and ! eselnauta and ! webmaster $modis = sql_arr("select count(*) as c from visites where (fx=$obj->id) and (modi='MCO' or modi='MED' or modi='MFO')"); echo $obj->alias, $visites['c'], $modis['c'], '
'; sql("update nautes set visites=$visites[c] where id=$obj->id"); sql("update nautes set modis=$modis[c] where id=$obj->id"); } test_avis('Indexats els mots de totes les fitxes'); $fer = 'PORTADA'; continue; } ?>pot_o_clau('CORREU'); $correus = sql_sel("select email from nautes where rebreinfo"); header("Content-Type: text/plain; charset=ISO-8859-1"); header("Content-Disposition: Inline; filename=\"llistat.txt\""); while($row = sql_arr($correus)) { echo $row['email'] . "\n"; } exit; } if ($fer == 'CORREU') { // CORREU MASSIU ALS NAUTES $US->pot_o_clau('CORREU'); if (! isset($subject)) { $subject = ''; $body = ''; $remitent = $from_mail; $correus = array(); $originals = array(); $arr = sql_sel("select alias, rebreinfo from nautes order by nom, cognoms"); while ($nauta = sql_arr($arr)) { $correus[$nauta['alias']] = (int)$nauta['rebreinfo']; $originals[$nauta['alias']] = 0; } } $edit = new Edit; $edit->titol = "Correu informatiu a tots els $arenyautes"; $edit->text[] = 'Es poden fer servir les següents macros:'; $edit->camp[] = b('{nom} {cognoms} {alias}'); $edit->text[] = "Remitent"; $edit->camp[] = text('remitent', 40, 255); $edit->text[] = 'Títol del correu'; $edit->camp[] = text('subject', 40, 255); $edit->text[] = 'Text del correu'; $edit->camp[] = textarea('body', 10, 40); $arr = sql_sel("select alias, nom, cognoms, email, emailo, rebreinfo from nautes order by nom, cognoms"); while ($nauta = sql_arr($arr)) { $edit->text[] = "$nauta[email]"; if (isset($correus[$nauta['alias']]) and $correus[$nauta['alias']]) { $checked = ' checked'; }else{ $checked = ''; } if ($nauta['rebreinfo']) { $img = "\"Vol"; }else{ $img = "\"No"; } $edit->camp[] = "$img " . tips("$nauta[nom] $nauta[cognoms]"); if ($nauta['email'] != $nauta['emailo']) { $edit->text[] = "$nauta[emailo]"; if (isset($originals[$nauta['alias']]) and $originals[$nauta['alias']]) { $checked = ' checked'; }else{ $checked = ''; } $img = "\"L'adreça"; $edit->camp[] = "$img " . '' . tips("$nauta[nom] $nauta[cognoms]") . ''; } } $edit->boto[] = 'Acceptar'; $edit->boto[] = 'Cancel·lar'; $edit->hidd['fer'] = 'TCORREU'; // Test CORREU MASSIU $edit->display(); fi(); } ?>pot_o_clau('CORREU'); if (isset($submit) and $submit == 'Cancel·lar') { test_avis('Els correus NO han estat enviats'); $fer = 'INTRANET'; continue; } if (trim($subject) == '' or trim($body) == '' or trim($remitent) == '') { test_avis('Cap dels camps es pot deixar en blanc'); $fer = 'CORREU'; continue; } if (! ($remitent = email($remitent))) { test_avis("L'adreça del remitent no sembla vàlida!"); $fer = 'CORREU'; continue; } $US->menu(); $macros = array('nom', 'cognoms', 'alias'); $llista = array('correus' => 'email', 'originals' => 'emailo'); foreach($llista as $nom_arr => $nom_camp) { if (isset($GLOBALS[$nom_arr])) { $enviar = $GLOBALS[$nom_arr]; }else{ continue; } foreach($enviar as $alias) { $alias = quote($alias); $fitxa = sql_arr("select * from nautes where alias=$alias"); $email = $fitxa[$nom_camp]; $titol = $subject; $cos = $body; foreach($macros as $macro) $titol = str_replace('{'.$macro.'}', $fitxa[$macro], $titol); foreach($macros as $macro) $cos = str_replace('{'.$macro.'}', $fitxa[$macro], $cos); if ($mail2pantalla) { echo $mail2usuari ? "
L'e-mail enviat:
" : "
L'e-mail NO enviat:
"; echo "
";
               echo "       From: $remitent\n";
               echo "   Reply-To: $remitent\n";
               echo "  Errors-To: $remitent\n";
               echo "Return-Path: $remitent\n";
               echo "         To: $email\n\n"  ;
               echo "    Subject: $titol\n\n"  ;
               echo nl2br(htmlspecialchars($cos)) . '
'; } if ($mail2usuari) { if (! $mail2pantalla) { echo "Enviant a $email...
\n"; } mail_amb_froms($email, $titol, $cos, $remitent); } } } fi(); } ?>pot_o_clau('INTRANET'); $fitxa = nautaowm($alias); $clau1 = $clau2 = ''; $edit = new Edit; $edit->width= "95%"; $edit->bg_body = $bg_editar_b; $edit->bg_tit = $bg_editar_t; $edit->fg_tit = $bg_editar_f; $edit->bg_avis = $bg_editar_a; $edit->bg_box = $bg_editar_m; $edit->bg_cel = $bg_editar_e; $edit->bg_acc = $bg_editar_d; $edit->titol = "Modificació de la clau d'accès"; $edit->text[] = 'Usuari'; $edit->camp[] = b($alias); $edit->text[] = 'Nova clau d\'accès'; $edit->camp[] = password('clau1', 25, 25); $edit->focus = 'clau1'; $edit->focus = 'clau1'; $edit->text[] = 'Repeteix la nova clau'; $edit->camp[] = password('clau2', 25, 25); $edit->boto[] = 'Acceptar'; $edit->boto[] = 'Cancel·lar'; $edit->hidd['fer'] = 'TCLAU'; // Test Editar clau propia $edit->hidd['alias'] = $alias; // Test Editar clau propia $edit->display(); update_visites($fitxa, 'VPW'); // password-visita fi(); } ?>pot_o_clau('INTRANET'); $fitxa = nautaowm($alias); if (isset($submit) and $submit == 'Cancel·lar') { test_avis('La clau d\'usuari NO s\'ha modificat'); $fer = 'FITXA'; continue; } $clau1 = strtoupper(addslashes(stripslashes($clau1))); $clau2 = strtoupper(addslashes(stripslashes($clau2))); $fer = 'CLAU'; if (! $clau1 == $clau2) { test_avis('Les dues claus no són iguals'); continue; }elseif ($clau1 == '' or $fitxa['password'] == md5($clau1)) { test_avis('La clau d\'usuari NO s\'ha modificat'); $fer = 'FITXA'; continue; }elseif (strlen($clau1) < $clau_minim) { test_avis("La clau es massa petita (Mínim $clau_minim caràcters)"); continue; } $clau1 = quote(md5($clau1)); sql("update nautes set password=$clau1 where alias='$alias'"); test_avis("La clau $delarenyauta ha estat modificada!
Per poder accedir a qualsevol de les opcions restringides a l'usuari $alias cal tornar a autentificar-se amb la nova clau."); update_visites($fitxa, 'MPW'); // PASSWORD-CANVI $fer = 'FITXA'; continue; } ?>overlib = false; if ($US->webmaster) { // BANNERS $subs->text['baner'] = box('El webmaster no veu banners!!'); }else{ $subs->text['baner'] = include("baners/baner.php"); } if ($reco_actiu) { // RECOMENADA $reco = new Box(); $reco->bg = $reco_bg; $reco->marc = $reco_marc; $reco->width = $reco_ample; $reco->font = $font_facesize; if ($reco_actiu == 1) { $reco->text = 'Aquí hi haurà les recomenades
Fulanito recomana avui...'; }elseif ($reco_actiu == 2) { $reco->text = nl2br($reco_textT); } $subs->text['reco'] = $reco->codi(); } if ($aniv_actiu == 1) { $anivs = elsaniversaris(); }elseif ($aniv_actiu == 0) { $anivs = array(); }else{ // ($aniv_actiu == 2) { $anivs = array(nl2br($aniv_textT)); } $nautes = sql_arr("select count(*) as c from nautes"); /* if ($nautes['c']) { $visitesf = sql_arr("select sum(visites) as c from nautes"); $modisf = sql_arr("select sum(modis) as c from nautes"); }else{ $visitesf['c'] = $modisf['c'] = 0; } */ $nautes = "
$nautes[c]
$arenyautes"; /* $nvisitesp = visitesp(); $t5 = microtime(); // oju $visitesp = "
Les pàgines dels $arenyautes han estat visitades " . "$visitesf[c]". " vegades i modificades ". "$modisf[c]". " vegades.
". " Aquesta portada ha estat visitada ". "$nvisitesp". " vegades
"; */ $aniv = new Box(); $aniv->bg = $aniv_bg; $aniv->marc = $aniv_marc; $aniv->width = $aniv_ample; $aniv->font = $font_facesize; $aniv->text = $nautes; foreach ($anivs as $a) { $aniv->tr($a); } //$aniv->tr($visitesp); $subs->text['aniv'] = $aniv->codi(); if (isset($ordre_ll)) { $MN['ordre_ll'] = $ordre_ll; $MN['pag'] = 0; $MN['cercant'] = $cercant = 0; } if (@$MN['cercant']) { // ESTEM CERCANT $cercant = true; $CCtip = $MN['CCtip']; $CCtext = $MN['CCtext']; $cc = mots_tots(trim($CCtext),'',''); if (! $cc) { test_avis("Cercar qué?"); $cercant = false; }elseif ($CCtip == 'F') { // Frase exacta test_avis("Cercant la frase $cc"); $cercar = "select *, locate(' $cc', mots) as cc from nautes having cc order by cc"; }else { $ccs = explode(' ', $cc); if (($sizecc = sizeof($ccs)) == 1) { test_avis("Cercant la paraula $cc"); $cercar = "select *, locate(' $cc', mots) as cc from nautes having cc order by cc"; }elseif ($CCtip == 'T') { // Totes les paraules $avis = "Cercant les paraules "; $cercar = "select *, least("; $where = " where"; $coma = ''; $fi = ','; $and = ''; for ($n = 0; $n < $sizecc; $n++) { if ($n == $sizecc - 1) { $coma = ' i '; $fi = ') as cc'; } $avis .= "$coma$ccs[$n]"; $cercar .= " locate(' $ccs[$n]', mots)$fi"; $where .= "$and locate(' $ccs[$n]', mots)"; $and = ' and '; $coma = ', '; } $cercar .= ' from nautes ' . $where . " order by cc"; test_avis($avis); }elseif ($CCtip == 'A') { // Alguna de les paraules $avis = "Cercant les paraules "; $cercar = "select *, least("; $where = " where"; $coma = ''; $fi = ','; $or = ''; for ($n = 0; $n < $sizecc; $n++) { if ($n == $sizecc - 1) { $coma = ' o '; $fi = ') as cc'; } $avis .= "$coma$ccs[$n]"; $cercar .= " if(locate(' $ccs[$n]', mots), locate(' $ccs[$n]', mots), 99999)$fi"; $where .= "$or locate(' $ccs[$n]', mots)"; $or = ' or '; $coma = ', '; } $cercar .= " from nautes $where order by cc"; test_avis($avis); }else{ sql_notfound(); } } } if (isset($MNpag)) { $MN['pag'] = $MNpag; } if (! isset($MN['ordre_ll'])) { $MN['ordre_ll'] = 'rand'; } if (! isset($MN['pag'])) { $MN['pag'] = 0; } $ordre_ll = $MN['ordre_ll']; $MNpag = $MN['pag']; $ords = array(); $ases = array(); $att_td = array(); $ords['rand'] = 'rand()'; $att_td['modi'] = 'nowrap width=1%'; $ords['modi'] = 'modi desc'; $att_td['modi'] = 'nowrap width=1%'; $ords['alta'] = "alta desc"; $att_td['alta'] = 'nowrap width=1%'; $ords['modis'] = "modis desc"; $att_td['modis'] = 'nowrap width=1%'; /* $ords['visites'] = "visites desc"; $att_td['visites'] = 'nowrap width=1%'; $att_td['visites'] = 'nowrap width=1%'; */ if (hiha('professio')) { $wher['professio'] = "where professio!=''"; $ords['professio'] = "professio"; } if (hiha('escola')) { $wher['escola'] = "where escola!=''"; $ords['escola'] = "escola"; } if (hiha('nivell')) { $wher['nivell'] = "where nivell!=''"; $ords['nivell'] = "nivell"; $att_td['nivell'] = 'width=1%'; } $wher['titol'] = "where titol!=''"; $ords['titol'] = "titol"; $ords['alias'] = "alias"; $att_td['alias'] = 'nowrap width=1%'; $wher['nom'] = "where nom!=''"; $ords['nom'] = "nom, cognoms"; $wher['cognoms'] = "where cognoms!=''"; $ords['cognoms'] = "cognoms, nom"; $wher['email'] = "where emailok"; $ords['email'] = "email"; $att_td['email'] = 'nowrap width=1%'; $wher['aniversari'] = "where neix!='0000-00-00'"; $ases['aniversari'] = ',substring(neix,6,5) as aniversari'; $ords['aniversari'] = "aniversari"; $att_td['aniversari'] = 'nowrap width=1%'; $wher['edat'] = "where edatok and neix!='0000-00-00'"; $ords['edat'] = "neix desc"; $att_td['edat'] = 'nowrap width=1%'; if (hiha('direccio')) { $wher['direccio'] = "where direcciook and direccio!='' and neix < '$dataedatminima'"; $ords['direccio'] = "direccio"; } $wher['postal'] = "where postal!=''"; $ords['postal'] = "postal"; $att_td['postal'] = 'nowrap width=1%'; $wher['poblacio'] = "where poblacio!=''"; $ords['poblacio'] = "poblacio"; $wher['zona'] = "where zona!=''"; $ords['zona'] = "zona"; if (hiha('telefon')) { $wher['telefon'] = "where telefonok and telefon!='' and neix < '$dataedatminima'"; $ords['telefon'] = "telefon"; } $wher['foto'] = "where hihafoto and peufoto!=''"; $ords['foto'] = "peufoto"; $lnk_ultims = '
'; asort($vvars_ll); $barra = ''; $ll_ok = ' '; foreach ($vvars_ll as $tit => $text) { $tit = substr($tit, 3); if (! hiha($tit)) continue; $e_d = explode('|', $text); if (in($e_d[0], '*') and ! $US->webmaster) continue; if (in($e_d[0], '+') and ! ($US->webmaster or hihanauta()) ) continue; $ll_ok .= $tit . ' '; $text = str_replace(' ', $nbsp, $e_d[1]); $vvars_ll[$tit] = $text; $lnk_ultims .= "[$text] "; } $lnk_ultims .= '
'; $limit = $maxportada * $MNpag .",$maxportada"; if ($cercant) { $result = sql_sel("$cercar limit $limit"); $ordre_ll = ''; }else{ if (! in($ll_ok, " $ordre_ll ")) sql_notfound(); $as = isset($ases[$ordre_ll]) ? $ases[$ordre_ll] : ''; $wh = isset($wher[$ordre_ll]) ? $wher[$ordre_ll] : ''; $result = sql_sel("select * $as from nautes $wh order by $ords[$ordre_ll] limit $limit"); $tit = "Llista $dArenyautes - " . $vvars_ll[$ordre_ll]; test_avis("$tit"); } $trobats = sql_found(); $row_a = 0; $row_z = $trobats; $row_i = 1; $ant = "Anteriors..."; $seg = "Següents..."; if ($MNpag == 0) { $ant = ''; } if ($trobats < $maxportada and $MNpag >= 0) { $seg = ''; } $font = $font_facesize; $colspan = $cercant ? '': 'colspan=3'; if ($ant or $seg) { $ant_seg = "
$nbsp$ant $nbsp$seg
"; }else{ $ant_seg = ''; } if ($trobats == 0) { if ($MNpag == 0) { test_avis("No s'ha trobat cap $arenyauta"); }else{ test_avis("No s'han trobat més $arenyautes"); } } $colors = array($bg_llistats1, $bg_llistats2); $llistatt = "\n" ; if (test_avis()) { $llistatt .= ""; } //$llistatt .= $ant_seg; $ara = date('U'); $dies_new *= 86400; $dies_updated *= 86400; $att = isset($att_td[$ordre_ll]) ? ' ' . $att_td[$ordre_ll] : ''; for ($n = $row_a; $n != $row_z; $n += $row_i) { $row = sql_seek_obj($result, $n); $modinou = ''; $wi_he = ' width=24 height=12'; if ($row->modi != $row->alta) { if ($ara - $row->modi < $dies_updated) { $alt = 'Modificat (' . datacatala($row->modi) . ')'; $modinou .= " \"$alt\"$wi_he"; } }else{ $alt = 'En Blanc (' . datacatala($row->alta) . ')'; $modinou .= " \"$alt\"$wi_he"; } if ($ara - $row->alta < $dies_new) { $alt = "Nou $arenyauta (" . datacatala($row->alta) . ")"; $modinou .= " \"$alt\"$wi_he"; } //if ($row->hihafoto) { // $alt = "$Arenyauta amb foto"; // $modinou .= " \"$alt\"$wi_he"; //} $color = $colors[$n % 2]; $llistatt .= "\n"; $cspan = ''; if (! $cercant) { $llistatt .= "$font" . mesl($ordre_ll) . "$nbsp\n"; if ($ordre_ll != 'modi') $cspan = ' colspan=2'; } $llistatt .= "\n"; if (! $cercant and ($ordre_ll == 'modi')) { $llistatt .= "\n"; } $llistatt .= "\n"; } $llistatt .= $ant_seg; $llistatt .= "
" . $font . test_avis() . "
$fontalias target=_top>" . tips_2text($row->nom . ' ' . $row->cognoms) . " $modinou$font" . tips_2text($row->titol) ."$nbsp
\n"; $llistatt = new box($llistatt, $bg_llistats0); $llistatt->cellpadding = 0; $llistatt->marc = $bg_llistats_m; $llistat = $llistatt->codi(); $subs->text['llista'] = $llistat . $lnk_ultims; if (! isset($CCtip)) { $CCtip = 'A'; $CCtext = ''; } $cercar = new Box( "
" . "$font_facesize" . text('CCtext', 20, 100) . "". "
" . input_select('CCtip', array('Alguna de les paraules' => 'A', 'Totes les paraules' => 'T', 'La frase exacta' => 'F')) . "
". "". "
"); $cercar->bg = $cerca_bg; $cercar->marc = $cerca_marc; $cercar->align = 'center'; $cercar->valign = 'middle'; $cercar->cellpadding = 0; $subs->text['cerca'] = $cercar->codi(); $subs->codi(); exit; } ?>repetin) { $alias = ''; $nom = ''; $cognoms = ''; $email = ''; } $edit->width= "95%"; $edit->bg_body = $bg_editar_b; $edit->bg_tit = $bg_editar_t; $edit->fg_tit = $bg_editar_f; $edit->bg_avis = $bg_editar_a; $edit->bg_box = $bg_editar_m; $edit->bg_cel = $bg_editar_e; $edit->bg_acc = $bg_editar_d; $edit->titol = "Alta d'un nou $arenyauta"; $edit->text[] = "Tria't un àlias"; $edit->camp[] = text('alias', 45, 45); $edit->focus = 'alias'; $edit->text[] = $nbsp; $edit->camp[] = "

Pot ser el teu nom de pila o qualsevol altre mot.

Aquest àlias el faràs servir per accedir a les teves dades
i formarà part de l'adreça de la teva pàgina $darenyauta.

No el podràs modificar posteriorment.

Exemple : si tries l'àlias Maria
La teva pàgina $darenyauta serà
http://$arenysorgarenyautes/maria
$nbsp

"; $edit->text[] = "Digue'ns el teu nom real"; $edit->camp[] = text('nom', 45, 255); $edit->text[] = "I els teus cognoms"; $edit->camp[] = text('cognoms', 45, 255); $edit->text[] = $nbsp; $edit->camp[] = " Amb aquests nom i cognoms et veurem en el llistat $darenyautes.
$nbsp"; $edit->text[] = "La teva adreça d'e-mail"; $edit->camp[] = text('email', 45, 255); $edit->text[] = $nbsp; $edit->camp[] = "

Ha de ser una adreça de correu electrònic vàlida i vigent

En aquesta bústia de correu rebràs un e-mail en el que
t'indicarem la contrasenya i la resta d'instruccions necessaries
per poder accedir a modificar les teves dades $darenyauta.
$nbsp"; $edit->boto[] = 'Acceptar'; $edit->boto[] = 'Cancel·lar'; $edit->hidd['fer'] = 'TALTA'; $edit->display(); update_visites(0, 'VAL'); // ALTA-VISITA fi(); } ?>exists($alias) or file_exists("./$alias") or file_exists("./FOTOS/$alias/")) { test_avis("No es pot crear un $arenyauta amb aquest àlias"); $fer = 'ALTA'; continue; } $model = quote(strtolower($colors_defecte)); $cl = sql_arr("select * from nautes where alias=$model", false); if (! sql_found()) { $cl['cl_titol'] = $cl['cl_adreces'] = $cl['cl_webs'] = $cl['cl_foto'] = $cl['cl_afeccions'] = $cl['cl_comentari'] = $cl['cl_accions'] = $cl['cl_dins'] = $cl['cl_fora'] = '#FFFFFF'; } $alias = strtolower($alias); srand(time()); $str = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890123456789'; $password = ''; for ($n = 0; $n < 6; $n++) { $password .= $str[rand(0, 45)]; } $time = time(); $query = "insert into nautes set". ' alias=' . quote($alias) . ',nom=' . quote($nom) . ',cognoms=' . quote($cognoms) . ',email=' . quote($email) . ',emailo=' . quote($email) . ',password=' . quote(md5($password)) . ',cl_titol=' . quote($cl['cl_titol']) . ',cl_adreces=' . quote($cl['cl_adreces']) . ',cl_webs=' . quote($cl['cl_webs']) . ',cl_foto=' . quote($cl['cl_foto']) . ',cl_afeccions=' . quote($cl['cl_afeccions']) . ',cl_comentari=' . quote($cl['cl_comentari']) . ',cl_accions=' . quote($cl['cl_accions']) . ',cl_dins=' . quote($cl['cl_dins']) . ',cl_fora=' . quote($cl['cl_fora']) . ",emailok='1'" . ",edatok='1'" . ",direcciook='1'" . ",telefonok='1'" . ",rebreinfo='1'" . ",forum='0'" . ",modi=$time" . ",alta=$time"; $id = sql_ins($query); $fitxa = nautaowm($alias, false); update_visites($fitxa, 'MAL'); // ALTA-ALTA mkdir ("./FOTOS/$alias", 0777); $h = fopen("./$alias", 'w+'); fwrite($h, ""); fclose($h); $body = $alta_bodyT; $body = str_replace('{data}', date('d-m-Y'), $body); $body = str_replace('{alias}', $alias, $body); $body = str_replace('{nom}', $nom, $body); $body = str_replace('{cognoms}', $cognoms, $body); $body = str_replace('{clau}', $password, $body); if ($mail2pantalla) { echo $mail2usuari ? "L'e-mail enviat:

" : "L'e-mail NO enviat:
"; echo "From: $from_mail\n
"; echo "Reply-to: $from_mail\n
"; echo "To: $email\n
" ; echo "Subject: $alta_subject\n

" ; echo "

" . nl2br($body) . '
'; } if ($mail2usuari) { //ojo !!!!! posar \n al final o mirar en php.net/mail una nota sobre return-path oquelcom així mail_amb_froms($email, $alta_subject, $body, $from_mail); } test_avis($alta_gracies); $fer = 'PORTADA'; continue; } ?>webmaster) { $nautaowm = true; $cnwm2 = ""; }else{ $nautaowm = false; $cnwm2 = ""; } $caixes = array('titol','adreces','webs','foto','afeccions','comentari','accions','dins','fora'); $text = array(); $gris = array(); $cnwm1 = array(); $css = "\n\n"; update_visites($fitxa,'FIT'); //FITXA-VISITA if (! $fitxa['titol']) { $titol = ''; }else{ $titol = new Box(); $titol->fg = $text['titol']; $titol->mes("" . tips($fitxa['titol']) . ""); $titol->bg = $fitxa['cl_titol']; $titol->mes(editcolor('titol')); $titol = $titol->codi() . '
'; } $adreces = new Box(); $adreces->fg = $text['adreces']; $adreces->bg = $fitxa['cl_adreces']; $adreces->font = ""; $adreces->mes("" . tips("$fitxa[nom] $fitxa[cognoms]") . ""); if ($fitxa['emailok']) { $adreces->mes("
\n" . nospam_mailto($fitxa['email'], '', 'a_adreces')); } elseif ($nautaowm) { $adreces->mes("
\n$cnwm1[adreces]$fitxa[email]$cnwm2"); } if ($US->webmaster and ($fitxa['email'] != $fitxa['emailo'])) { $adreces->mes("
\n($cnwm1[adreces]$fitxa[emailo]$cnwm2)"); } $old_font_facesize = $font_facesize; $font_facesize = ""; $p = "\n

\n\n"; if ($fitxa['neix'] != '0000-00-00') { if ($fitxa['edatok']) { $adreces->mes($p . thd('Edat:', edat($fitxa['neix']))); $p = ''; }elseif ($nautaowm) { $adreces->mes($p . thd('Edat:', $cnwm1['adreces'] . edat($fitxa['neix'] . $cnwm2))); $p = ''; } $adreces->mes($p . thd('Aniversari:', aniversari($fitxa['neix'], $fitxa['alias']) . '
')); $p = ''; } if (hiha('professio')) { if ($fitxa['professio']){ $adreces->mes($p . thd('Professió:', tips($fitxa['professio']))); $p = ''; } } if (hiha('escola')) { if ($fitxa['escola']){ $adreces->mes($p . thd('Escola:', tips($fitxa['escola']))); $p = ''; } } if (hiha('nivell')) { if ($fitxa['nivell']){ $adreces->mes($p . thd('Nivell:', tips($fitxa['nivell']))); $p = ''; } } if (hiha('direccio')) { if ($fitxa['direccio']) { if ($fitxa['direcciook'] and $fitxa['neix'] < $dataedatminima) { $adreces->mes($p . thd('Adreça:', tips($fitxa['direccio']))); $p = ''; }elseif ($nautaowm) { $adreces->mes($p . thd('Adreça:', $cnwm1['adreces'] . tips($fitxa['direccio']) . $cnwm2)); $p = ''; } } } if (! $fitxa['postal'] == '') { $adreces->mes($p . thd('Codi Postal:', tips($fitxa['postal']))); $p = ''; } if (! $fitxa['poblacio'] == '') { $adreces->mes($p . thd('Població:', tips($fitxa['poblacio']))); $p = ''; } if (! $fitxa['zona'] == '') { $adreces->mes($p . thd('Comarca o País:', tips($fitxa['zona']))); $p = ''; } if (hiha('telefon')) { if ($fitxa['telefon']) { if ($fitxa['telefonok'] and $fitxa['neix'] < $dataedatminima) { $adreces->mes($p . thd('Telèfon:', tips($fitxa['telefon']))); $p = ''; }elseif ($nautaowm) { $adreces->mes($p . thd('Telèfon:', $cnwm1['adreces'] . tips($fitxa['telefon']) . $cnwm2)); $p = ''; } } } if (! $p) { $adreces->mes("\n

\n"); } $font_facesize = $old_font_facesize; if ($fitxa['alta'] == $fitxa['modi']) $adreces->mes($fitxaenobresT); $adreces->mes(editcolor('adreces')); $adreces = $adreces->codi(); $foto = $size = ''; if ($foto_actual = foto($alias, $size)) { if (! $fitxa['hihafoto']) { sql("update nautes set hihafoto='1' where alias='$alias'"); $fitxa['hihafoto'] = 1; update_visites($fitxa, 'DFO'); } $foto = new Box(); $foto->fg = $text['foto']; $foto->font = $font_facesize; $foto->bg = $fitxa['cl_foto']; $foto->cellpadding = 15; $alt = $foto_actual; $foto_text = "\"$alt\""; if ($eselnauta or $US->webmaster) { $foto->mes("\n$foto_text"); }else{ $foto->mes($foto_text); } $foto->align = 'center'; if ($fitxa['peufoto']) { $foto->text .= "
" . tips($fitxa['peufoto']); } $foto->mes(editcolor('foto')); $foto = $foto->codi(); }elseif ($fitxa['hihafoto']) { sql("update nautes set hihafoto='0' where alias='$alias'"); $fitxa['hihafoto'] = 0; update_visites($fitxa, 'DFO'); } if ($fitxa['afeccions'] == '') { $afeccions = ''; }else{ $afeccions = new Box("Aficions:

", $fitxa['cl_afeccions']); $afeccions->fg = $text['afeccions']; $afeccions->font = $font_facesize; $afeccions->mes(tips($fitxa['afeccions'])); $afeccions->mes(editcolor('afeccions')); $afeccions = $afeccions->codi() . '
'; } $webs = ''; $br = ''; if ($fitxa['webp']) { $webs .= "

La meva pàgina personal:

  • " . link_len($fitxa['webp'], 50, 'a_webs') . '
    ' . tips($fitxa['webptext']); $br = '

    '; } $ul = "$brUs vull recomanar una navegació fins:
    "; if ($fitxa['web1']) { $webs .= "$ul
  • " . link_len($fitxa['web1'], 50, 'a_webs') .'
    '. tips($fitxa['web1text']); $ul = ''; } if ($fitxa['web2']) { $webs .= "$ul
  • " . link_len($fitxa['web2'], 50, 'a_webs') .'
    '. tips($fitxa['web2text']); $ul = ''; } if ($fitxa['web3']) { $webs .= "$ul
  • " . link_len($fitxa['web3'], 50, 'a_webs') .'
    '. tips($fitxa['web3text']); $ul = ''; } if ($webs) { $webs = new Box($webs, $fitxa['cl_webs']); $webs->fg = $text['webs']; $webs->font = $font_facesize; $webs->mes(editcolor('webs')); $webs = $webs->codi(); } if ($fitxa['comentari'] == '') { $comentari = ''; }else{ $comentari = new Box("Us volia comentar...

    ", $fitxa['cl_comentari']); $comentari->fg = $text['comentari']; $comentari->font = $font_facesize; $comentari->mes(tips($fitxa['comentari'])); $comentari->mes("

    $fitxa[nom]
    "); $comentari->mes(editcolor('comentari')); $comentari = $comentari->codi(); } //$modis = $fitxa['modis'] == 1 ? '1 modificació' : "$fitxa[modis] modificacions"; //$visites = $fitxa['visites'] == 1 ? '1 visita' : "$fitxa[visites] visites"; $alta = datacatala($fitxa['alta'], true, 'd'); $copyright = "Última actualització: " . datacatala($fitxa['modi']) . // ". $visites i $modis des $alta
    " . "- Pàgina integrada a l'espai d'" . "$arenysorg    "; $wh = ' width=20 height=22 '; $accions = new Box("", $fitxa['cl_accions']); $accions->bg = $fitxa['cl_dins']; $accions->marc = $fitxa['cl_dins']; $accions->mes("$nbsp \"Tornar"); $accions->width = '1%'; $accions->align = 'center nowrap'; $accions->valign = 'center'; $accions->cellpadding = 2; $forum = "$nbsp \"Fòrum"; if ($fitxa['forum'] or $fitxa['missatges']) { $accions->mes($forum); } if ($eselnauta or $US->webmaster) { $alt_foto = $fitxa['hihafoto'] ? 'Canviar la foto' : 'Enviar una foto'; $alt_color = (@$MN['colors_sn'] ? 'No triar colors' : 'Triar colors'); $accions->mes("$nbsp\"$alias"); $accions->mes("$nbsp\"$alt_foto\""); $accions->mes("$nbsp\"Vull"); $accions->mes("$nbsp\"Modificar"); $accions->mes("$nbsp\"Desautentifiar-me"); $accions->mes("$nbsp\"$alt_color\""); } //$accions->mes(editcolor('accions')); $accions = $accions->codi(); $dins = new Box('', $fitxa['cl_dins']); $dins->align = 'center'; $dins->width = '85%'; $dins->font = ''; if (test_avis()) { $t_a = new box(test_avis(),'','center'); $t_a = $t_a->codi(); $t_a = "$nbsp
    $t_a
    $nbsp"; }else{ $t_a = ''; } $dins->text = " $t_a
    $titol $adreces $foto
    $afeccions $webs $comentari

    $copyright $accions
    "; $dins->mes(editcolor('dins')); htmlhead($fitxa['cl_fora'], $css); echo "\n
    " . $dins->codi(). editcolor('fora'). "\n

    "; fi(); } ?>pot_o_clau('INTRANET'); $fitxa = nautaowm($alias); update_visites($fitxa, 'SNC'); // COLOR-SI-NO if (@$MN['colors_sn']) { $MN['colors_sn'] = 0; }else{ $MN['colors_sn'] = 1; } $fer = 'FITXA'; continue; } if ($fer == 'COLOR') { $US->pot_o_clau('INTRANET'); $fitxa = nautaowm($alias); update_visites($fitxa, 'VCO'); // COLOR-VISITA $color = $fitxa["cl_$marc"]; htmlhead(); echo titol("Triar color ($marc)"); echo '
    '. colorp(substr(strtoupper($color), 1)) . ''. "". "". '
    '; fi(); } if ($fer == 'TCOLOR') { $US->pot_o_clau('INTRANET'); $fitxa = nautaowm($alias); $fer = 'FITXA'; if (isset($submit) and $submit == 'Cancel·lar') continue; $color = test_colorp('GET'); sql("update nautes set cl_$marc = '#$color' where alias='$alias'"); update_visites($fitxa, 'MCO'); // COLOR-CANVI continue; } ?>pot_o_clau('INTRANET'); $fitxa = nautaowm($alias); update_visites($fitxa, 'VED'); // EDITAR-VISITA $edit = new Edit; if (! $edit->repetin) { extract($fitxa); $dia = substr($neix, 8, 2); $mes = substr($neix, 5, 2); $any = substr($neix, 0, 4); } $edit->width= "95%"; $edit->bg_body = $bg_editar_b; $edit->bg_tit = $bg_editar_t; $edit->fg_tit = $bg_editar_f; $edit->bg_avis = $bg_editar_a; $edit->bg_box = $bg_editar_m; $edit->bg_cel = $bg_editar_e; $edit->bg_acc = $bg_editar_d; $edit->titol = "Les dades de $larenyauta $alias"; $edit->text[] = "Títol de la Pàgina"; $edit->camp[] = text('titol', 45, 255); $edit->focus = 'titol'; $edit->text[] = "Nom"; $edit->camp[] = text('nom', 45, 255); $edit->text[] = "Cognoms"; $edit->camp[] = text('cognoms', 45, 255); $edit->text[] = "Adreça d'e-mail"; $edit->camp[] = text('email', 45, 45) . "$nbsp${nbsp}pública$nbsp" . si_no_chkbox('emailok'); if ($emailo != $email and $US->webmaster) { $edit->text[] = "Email original"; $edit->camp[] = "$emailo"; } if (hiha('direccio')) { $edit->text[] = "Adreça (carrer, pis...)"; $edit->camp[] = text('direccio', 45, 255) . "$nbsp${nbsp}pública$nbsp" . si_no_chkbox('direcciook'); } $edit->text[] = "Codi postal"; $edit->camp[] = text('postal', 6, 255); $edit->text[] = "Població"; $edit->camp[] = text('poblacio', 45, 255); $edit->text[] = "Comarca o País"; $edit->camp[] = text('zona', 45, 255); if (hiha('telefon')) { $edit->text[] = "Telèfon"; $edit->camp[] = text('telefon', 45, 255) . "$nbsp${nbsp}públic$nbsp" . si_no_chkbox('telefonok'); } if (hiha('escola')) { $edit->text[] = "Escola"; $edit->camp[] = text('escola', 45, 255); } if (hiha('nivell')) { $edit->text[] = "Nivell"; $edit->camp[] = text('nivell', 45, 255); } if (hiha('professio')) { $edit->text[] = "Professió"; $edit->camp[] = text('professio', 45, 255); } $edit->text[] = "Dia naixement"; $edit->camp[] = text('dia', 2, 2) . " $nbsp mes " . text('mes', 2, 2) . " $nbsp any " . text('any', 4, 4) . "$nbsp${nbsp}públic$nbsp" . si_no_chkbox('edatok'); $edit->text[] = "Web personal"; $edit->camp[] = text('webp', 45, 255); $edit->text[] = "Explica de qué va"; $edit->camp[] = text('webptext', 45, 255); $edit->text[] = "1ª web recomenada"; $edit->camp[] = text('web1', 45, 255); $edit->text[] = "Explica de qué va"; $edit->camp[] = text('web1text', 45, 255); $edit->text[] = "2ª web recomenada"; $edit->camp[] = text('web2', 45, 255); $edit->text[] = "Explica de qué va"; $edit->camp[] = text('web2text', 45, 255); $edit->text[] = "3ª web recomenada"; $edit->camp[] = text('web3', 45, 255); $edit->text[] = "Explica de qué va"; $edit->camp[] = text('web3text', 45, 255); $edit->text[] = "Afeccions"; $edit->camp[] = textarea('afeccions', 8, 45); $edit->text[] = "Comentaris"; $edit->camp[] = textarea('comentari', 15, 45); if ($nautes_amb_forum) { $edit->text[] = "Vull tenir un fòrum propi on
    els altres $arenyautes puguin
    escriure i respondre missatges"; $edit->camp[] = si_no_chkbox('forum'); }else{ $edit->hidd['forum'] = $forum; } $edit->text[] = "Vull rebre informació quan
    canvïi la funcionalitat de
    les pàgines $darenyautes"; $edit->camp[] = si_no_chkbox('rebreinfo'); $edit->boto[] = 'Acceptar'; $edit->boto[] = 'Cancel·lar'; $edit->hidd['fer'] = 'TEDAR'; // Test Editar NAUTA $edit->hidd['alias'] = $alias; $edit->display(); fi(); } ?>pot_o_clau('INTRANET'); $fitxa = nautaowm($alias); if (isset($submit) and $submit == 'Cancel·lar') { $fer = 'FITXA'; continue; } if ($nom == '' and $cognoms == '') { test_avis('El nom i cognoms no es poden deixar en blanc'); } if ($email == '') { test_avis("L'adreça d'e-mail no es pot deixar en blanc"); } elseif (! ($email = email($email))) { test_avis("L'adreça d'e-mail no sembla tenir un format vàlid!"); } $dia = intval($dia); $mes = intval($mes); $any = intval($any); if ($dia == 0 or $mes == 0 or $any == 0) { $neix = '0000-00-00'; }elseif (! checkdate($mes, $dia, $any)) { test_avis("La data de naixement no sembla tenir un format vàlid!"); }elseif ($any < 1000) { test_avis("L'any de la data de naixement ha de tenir quatre xifres"); }else{ $neix = substr("0000$any-", -5) . substr("00$mes-", -3) . substr("00$dia", -2); } if ($lena = strlen($afeccions) > 30000) { test_avis("El text entrat en les afeccions ($lena caràcters) és massa llarg (màxim 30000)"); } if ($lenc = strlen($comentari) > 30000) { test_avis("El text entrat en el comentari ($lenc caràcters) és massa llarg (màxim 30000)"); } if (test_avis()) { $fer = 'EDITAR'; continue; } $emailok = (isset($emailok) and $emailok) ? '1' : '0'; $edatok = (isset($edatok ) and $edatok ) ? '1' : '0'; $direcciook = (isset($direcciook) and $direcciook) ? '1' : '0'; $telefonok = (isset($telefonok) and $telefonok) ? '1' : '0'; $rebreinfo = (isset($rebreinfo) and $rebreinfo) ? '1' : '0'; $forum = (isset($forum) and $forum) ? '1' : '0'; quote($titol); quote($nom); quote($cognoms); quote($email); quote($postal); quote($poblacio); quote($zona); if (hiha('direccio')) quote($direccio); if (hiha('telefon')) quote($telefon); if (hiha('professio')) quote($professio); if (hiha('escola')) quote($escola); if (hiha('nivell')) quote($nivell); quote($webp); quote($web1); quote($web2); quote($web3); quote($webptext); quote($web1text); quote($web2text); quote($web3text); quote($neix); quote($afeccions); quote($comentari); $sql = "update nautes set titol=$titol, nom=$nom, cognoms=$cognoms, email=$email, postal=$postal, poblacio=$poblacio, zona=$zona,"; if (hiha('direccio')) $sql .= "direccio=$direccio,"; if (hiha('telefon')) $sql .= "telefon=$telefon,"; if (hiha('professio')) $sql .= "professio=$professio,"; if (hiha('escola')) $sql .= "escola=$escola,"; if (hiha('nivell')) $sql .= "nivell=$nivell,"; $sql .= " webp=$webp, web1=$web1, web2=$web2, web3=$web3, webptext=$webptext, web1text=$web1text, web2text=$web2text, web3text=$web3text, afeccions=$afeccions, comentari=$comentari, neix=$neix, rebreinfo='$rebreinfo', forum='$forum', edatok='$edatok', emailok='$emailok', direcciook='$direcciook', telefonok='$telefonok' where alias='$alias'"; sql($sql); update_visites($fitxa, 'MED'); // EDITAR-CANVI $fer = 'FITXA'; continue; } ?>pot_o_clau('INTRANET'); $fitxa = nautaowm($alias); update_visites($fitxa, 'VFO'); // FOTO-VISITA $edit = new Edit(); $edit->width= "95%"; $edit->bg_body = $bg_editar_b; $edit->bg_tit = $bg_editar_t; $edit->fg_tit = $bg_editar_f; $edit->bg_avis = $bg_editar_a; $edit->bg_box = $bg_editar_m; $edit->bg_cel = $bg_editar_e; $edit->bg_acc = $bg_editar_d; $edit->titol = "Foto de la pàgina de $larenyauta $alias"; if ($foto_actual = foto($alias, $size)) { $edit->hidd['multipart'] = 0; $edit->text[] = "Foto actual
    ($foto_actual)"; $edit->camp[] = ""; $edit->boto[] = 'Esborrar-la'; }else{ $edit->hidd['multipart'] = 1; $edit->multipart = true; $edit->text[] = " Selecciona una foto del teu ordinador per enviar-nos-la
    (Tamany màxim $max_foto_bytes bytes)
    (Amplada màxima $max_foto_ample píxels)
    Atenció: enviar una foto pot ser un procés lent. Després de clicar el botó Acceptar tingueu paciència fins que aparegui una nova pantalla"; $edit->camp[] = ""; } $peufoto = $fitxa['peufoto']; $edit->text[] = "Peu de foto"; $edit->camp[] = text('peufoto', 45, 255); $edit->focus = 'peufoto'; $edit->boto[] = 'Acceptar'; $edit->boto[] = 'Cancel·lar'; $edit->hidd['fer'] = 'TFOTO'; // Test foto $edit->hidd['alias'] = $alias; $edit->display(); fi(); } ?>pot_o_clau('INTRANET'); $fitxa = nautaowm($alias); if (isset($submit)) { if ($submit == 'Cancel·lar') { $fer = 'FITXA'; continue; }elseif ($submit == 'Esborrar-la') { $fer = 'BORRARFOTO'; continue; } } if ($multipart) { $foto_name = fitxer_net($foto_name); if ($foto_size > $max_foto_bytes) { test_avis("Tamany de la foto: $foto_size bytes.
    ". "Tamany permès: $max_foto_bytes bytes."); }elseif ($foto == 'none') { if ($foto_name != '') { test_avis("Foto inexistent: $foto_name"); } }elseif (! isset($foto_type)) { test_avis("S'ha rebut el fitxer $foto_name, però és de tipus desconegut");; }elseif (!stristr($foto_type, 'image/')) { test_avis("S'ha rebut el fitxer $foto_name, però no es reconeix com una imatge"); }elseif ($foto_size == 0) { test_avis("Error indeterminat al enviar la foto"); } if (test_avis()) { $fer = 'FOTO'; continue; }elseif ($foto_name) { $foto_name = str_replace(' ', chr(160), $foto_name); copy($foto, "./FOTOS/$alias/$foto_name") or fi(); $mides = getimagesize("./FOTOS/$alias/$foto_name"); if (! $mides) { test_avis("S'ha rebut el fitxer $foto_name, però no es reconeix com una imatge"); }elseif ($mides[0] > $max_foto_ample) { test_avis("Amplada de la foto: $mides[0] pixels.
    ". "Amplada permessa: $max_foto_ample pixels."); } if (test_avis()) { unlink("./FOTOS/$alias/$foto_name"); $fer = 'FOTO'; continue; } } } quote($peufoto); sql("update nautes set peufoto=$peufoto where alias='$alias'"); update_visites($fitxa, 'MFO'); // FOTO-CANVI $fer = 'FITXA'; continue; } ?>pot_o_clau('INTRANET'); $fitxa = nautaowm($alias); update_visites($fitxa, 'VBA'); // BAIXA-VISITA $baixa = new Baixa; $baixa->width= "95%"; $baixa->bg_body = $bg_editar_b; $baixa->bg_tit = $bg_editar_t; $baixa->fg_tit = $bg_editar_f; $baixa->bg_avis = $bg_editar_a; $baixa->bg_box = $bg_editar_m; $baixa->bg_cel = $bg_editar_e; $baixa->bg_acc = $bg_editar_d; $baixa->titol = "Esborrant les dades de $larenyauta"; $baixa->pass = true; test_avis("Aquest procès eliminarà les dades de $larenyauta per sempre."); $baixa->text[] = "Alias $darenyauta:"; $baixa->camp[] = $alias; $baixa->text[] = "Nom i cognoms:"; $baixa->camp[] = $fitxa['nom'] . ' ' . $fitxa['cognoms']; $baixa->text[] = "Data d'alta:"; $baixa->camp[] = date('d-m-Y', $fitxa['alta']); $baixa->text[] = "Darrera modificació:"; $baixa->camp[] = date('d-m-Y', $fitxa['modi']); $baixa->hidd['fer'] = 'TBAIXA'; $baixa->hidd['alias'] = $alias; $baixa->display(); fi(); } ?>pot_o_clau('INTRANET'); $fitxa = nautaowm($alias); $foto_actual = foto($alias); $fer = 'FITXA'; if (isset($submit) and $submit == 'Cancel·lar') { continue; } $baixa = false; if ($US->webmaster) { $claubaixa = md5(strtolower(addslashes(stripslashes($claubaixa)))); if ($claubaixa === $US->clau) { $baixa = true; } }else{ $claubaixa = md5(strtoupper(addslashes(stripslashes($claubaixa)))); if ($claubaixa === $fitxa['password']) { $baixa = true; $MN['logout'] = true; } } if (! $baixa) { test_avis("La clau d'usuari entrada no és correcta.
    Les dades $darenyauta NO han estat eliminades!"); $fer = 'FITXA'; continue; } $d = opendir("./FOTOS/$alias/"); while ($foto = readdir($d)) { if ($foto == '.' or $foto == '..'){ continue; } unlink("./FOTOS/$alias/$foto"); } closedir($d); rmdir("./FOTOS/$alias/"); unlink("./$alias"); update_visites($fitxa, 'MBA'); // BAIXA-BAIXA $baixa = time(); $nom = quote($fitxa['nom']); $cognoms = quote($fitxa['cognoms']); sql("insert into baixes set id='$fitxa[id]', alias='$fitxa[alias]', email='$fitxa[email]', emailo='$fitxa[emailo]', alta='$fitxa[alta]', baixa='$baixa', nom=$nom, cognoms=$cognoms"); sql("delete from forums where forum='$fitxa[alias]'"); sql("delete from nautes where alias='$alias'"); test_avis("Les dades de $larenyauta $alias han estat eliminades!"); include_once('index.php'); $fer = 'PORTADA'; continue; } ?>pot_o_clau('INTRANET'); $fitxa = nautaowm($alias); update_visites($fitxa, 'VBF'); // BORRAR-FOTO-VISITA $foto_actual = foto($alias); $baixa = new Baixa; $baixa->width= "95%"; $baixa->bg_body = $bg_editar_b; $baixa->bg_tit = $bg_editar_t; $baixa->fg_tit = $bg_editar_f; $baixa->bg_avis = $bg_editar_a; $baixa->bg_box = $bg_editar_m; $baixa->bg_cel = $bg_editar_e; $baixa->bg_acc = $bg_editar_d; $baixa->titol = "Esborrant la foto"; $baixa->conf = true; test_avis("Aquest procès eliminarà la foto $foto_actual per sempre."); $baixa->text[] = "
    $foto_actual
    "; $baixa->camp[] = ''; $baixa->hidd['fer'] = 'TBORRARFOTO'; $baixa->hidd['alias'] = $alias; $baixa->display(); fi(); } ?>pot_o_clau('INTRANET'); $fitxa = nautaowm($alias); $foto_actual = foto($alias); $fer = 'FITXA'; if (isset($submit) and $submit == 'Cancel·lar') { continue; } if (strtoupper($confirmat) == 'SI') { unlink("./FOTOS/$alias/$foto_actual") or fi(); test_avis("La foto $foto_actual ha estat eliminada!"); update_visites($fitxa, 'MBF'); // BORRAR-FOTO-BORRAR }else{ test_avis("La foto $foto_actual NO ha estat eliminada"); } continue; } ?>pot_o_clau('INTRANET'); $US->menu(); display_test_avis(); fi(); } ?>pot_o_clau('MNAR'); $US->menu(); $br = new browse; $br->taula = 'AR'; $br->taula_real = 'nautes'; $br->taula_catala = "$Arenyautes"; $br->ordre('modi', 'dtu', 'Data Modificació', true); $br->ordre('id', 'int', 'identificatiu'); $br->ordre('alias', 'str', 'alias'); $br->ordre('nom', 'str', 'Nom'); $br->calc_pagina(); $mnt = new Mnt('AR'); $mnt->titol = "$Arenyautes"; $mnt->seg = $br->seg ? "?fer=$fer&$br->seg" : ''; $mnt->ult = $br->ult ? "?fer=$fer&$br->ult" : ''; $mnt->ant = $br->ant ? "?fer=$fer&$br->ant" : ''; $mnt->pri = $br->pri ? "?fer=$fer&$br->pri" : ''; $mnt->alta = $br->posicionar; $mnt->cabs[] = "Modificat"; $mnt->atcl[] = "align=left width=1%"; $mnt->cord[] = 'modi'; $mnt->cabs[] = "Id"; $mnt->atcl[] = "align=right width=1%"; $mnt->cord[] = 'id'; $mnt->cabs[] = "Alias"; $mnt->atcl[] = "align=left width=1% nowrap"; $mnt->cord[] = 'alias'; $mnt->cabs[] = "Nom i cognoms"; $mnt->atcl[] = "align=left"; $mnt->cord[] = 'nom'; $mnt->cabs[] = "WP"; $mnt->atcl[] = "align=left whidth=1% nowrap"; $mnt->cabs[] = "W1"; $mnt->atcl[] = "align=left whidth=1% nowrap"; $mnt->cabs[] = "W2"; $mnt->atcl[] = "align=left whidth=1% nowrap"; $mnt->cabs[] = "W3"; $mnt->atcl[] = "align=left whidth=1% nowrap"; $mnt->accs["PGAR"] = "Pàg"; $mnt->cap(); while ($row = $br->linia_arr()) { if ($br->nanchor == $row['id']) $mnt->bg = "#ffffff"; foreach (array('p',1,2,3) as $n) { if ($link = link_val($row['web' . $n])) { $w[$n] = ""; if ($row['web' . $n .'vis']) { $w[$n] .= "Invalidar"; }else{ $w[$n] .= "Validar"; } $w[$n] .= $nbsp; $w[$n] .= '' . $row['web' . $n . 'text'] . ''; }else{ $w[$n] = $nbsp; } } $mnt->cels(array( date('d-m-y', $row['modi']), $row['id'], $row['alias'], $row['nom'] . ' ' . $row['cognoms'], $w['p'], $w[1], $w[2], $w[3]), $row['id'], "&alias=$row[alias]"); } $mnt->cua(); fi(); } ?>pot_o_clau('VAWR'); $id = (int)$id; $arr = sql_arr("select * from nautes where id='$id'"); $sn = $arr[$webr = 'web' . $opc . 'vis'] ? 0 : 1; sql("update nautes set $webr='$sn' where id='$id'"); $id = 0; $fer = 'MNAR'; continue; } ?>pot_o_clau('MNBA'); $US->menu(); $br = new browse; $br->taula = 'BA'; $br->taula_real = 'baixes'; $br->taula_catala = 'baixes'; $br->ordre('id', 'int', 'identificatiu'); $br->ordre('alias', 'int', 'àlias'); $br->ordre('nom', 'str', 'nom i cognoms'); $br->ordre('alta', 'dtu', 'alta'); $br->ordre('baixa', 'dtu', 'baixa'); $br->ordre('email', 'str', 'email act'); $br->ordre('emailo', 'str', 'email ori'); $br->calc_pagina(); $mnt = new Mnt('BA'); $mnt->titol = "Baixes"; $mnt->seg = $br->seg ? "?fer=$fer&$br->seg" : ''; $mnt->ult = $br->ult ? "?fer=$fer&$br->ult" : ''; $mnt->ant = $br->ant ? "?fer=$fer&$br->ant" : ''; $mnt->pri = $br->pri ? "?fer=$fer&$br->pri" : ''; $mnt->alta = $br->posicionar; $mnt->cabs[] = "Id"; $mnt->atcl[] = "align=right width=1%"; $mnt->cord[] = 'id'; $mnt->cabs[] = "Àlias"; $mnt->atcl[] = "align=left width=1% nowrap"; $mnt->cord[] = 'alias'; $mnt->cabs[] = "Nom i cognoms"; $mnt->atcl[] = "align=center width=30%"; $mnt->cord[] = 'nom'; $mnt->cabs[] = "Alta"; $mnt->atcl[] = "align=center width=1% nowrap"; $mnt->cord[] = 'alta'; $mnt->cabs[] = "Baixa"; $mnt->atcl[] = "align=center width=1% nowrap"; $mnt->cord[] = 'baixa'; $mnt->cabs[] = "Email act"; $mnt->atcl[] = "align=left width=30%"; $mnt->cord[] = 'email'; $mnt->cabs[] = "Email ori"; $mnt->atcl[] = "align=left width=30%"; $mnt->cord[] = 'emailo'; $mnt->cap(); while ($row = $br->linia_obj()) { if ($br->nanchor == $row->id) $mnt->bg = "#ffffff"; $mnt->cels(array( $row->id, $row->alias, tips("$row->nom $row->cognoms"), date('d-m-y H:i:s', $row->alta), date('d-m-y H:i:s', $row->baixa), $row->email, $row->emailo), $row->id); } $mnt->cua(); fi(); } if ($fer == 'MNBRW') { // Manteniment BROWSERS $US->pot_o_clau('MNBRW'); $US->menu(); $br = new browse; $br->taula = 'BROWSERS'; $br->taula_real = 'browsers'; $br->taula_catala = 'Browsers'; $br->ordre('id', 'int', 'identificatiu'); $br->ordre('text', 'str', 'Browser'); $br->calc_pagina(); $mnt = new Mnt('BRW'); $mnt->titol = "Browsers"; $mnt->seg = $br->seg ? "?fer=$fer&$br->seg" : ''; $mnt->ult = $br->ult ? "?fer=$fer&$br->ult" : ''; $mnt->ant = $br->ant ? "?fer=$fer&$br->ant" : ''; $mnt->pri = $br->pri ? "?fer=$fer&$br->pri" : ''; $mnt->alta = $br->posicionar; $mnt->cabs[] = "Id"; $mnt->atcl[] = "align=right width=1%"; $mnt->cord[] = 'id'; $mnt->cabs[] = "HTTP_USER_AGENT"; $mnt->atcl[] = "align=left width=80% nowrap"; $mnt->cord[] = 'text'; $mnt->cabs[] = "OS"; $mnt->atcl[] = "align=CENTER whidth=1%"; $mnt->cabs[] = "Browser"; $mnt->atcl[] = "align=CENTER whidth=1%"; $mnt->cap(); while ($row = $br->linia_obj()) { if ($br->nanchor == $row->id) $mnt->bg = "#ffffff"; $browser = $row->text; if (windows($browser)) { $os = 'Windows'; }elseif (linux($browser)) { $os = 'Linux'; }elseif (mac($browser)) { $os = 'Mac'; }else{ $os = '???'; } if (msie(0, $browser)) { $nav = 'MSIE'; }elseif (opera(0, $browser)) { $nav = 'Opera'; }elseif (mozilla(5, $browser)) { $nav = 'Mozilla'; }elseif (mozilla(2, $browser)) { $nav = 'Netscape'; }else{ $nav = '???'; } $mnt->cels(array( $row->id, $browser, $os, $nav), $row->id); } $mnt->cua(); fi(); } ?>pot_o_clau('MNVI'); $US->menu(); $br = new browse; $br->taula = 'BR_VI'; $br->taula_real = 'visites'; $br->taula_catala = 'visites'; $br->ordre('data', 'dtu', 'data', true); $br->ordre('id', 'int', 'identificatiu', true); $br->ordre('fx', 'int', 'fitxa'); $br->ordre('ipc', 'ipc', 'IP'); $br->ordre('browser','int', 'browser'); $br->ordre('modi', 'str', 'acció'); $br->ordre('nauta', 'int', "$arenyauta"); $br->calc_pagina(); $mnt = new Mnt('VI'); $mnt->titol = "Visites"; $mnt->seg = $br->seg ? "?fer=$fer&$br->seg" : ''; $mnt->ult = $br->ult ? "?fer=$fer&$br->ult" : ''; $mnt->ant = $br->ant ? "?fer=$fer&$br->ant" : ''; $mnt->pri = $br->pri ? "?fer=$fer&$br->pri" : ''; $mnt->alta = $br->posicionar; $mnt->cabs[] = "Data"; $mnt->atcl[] = "align=center width=1% nowrap"; $mnt->cord[] = 'data'; $mnt->cabs[] = "Id"; $mnt->atcl[] = "align=right width=1%"; $mnt->cord[] = 'id'; $mnt->cabs[] = "Fitxa"; $mnt->atcl[] = "align=left width=1% nowrap"; $mnt->cord[] = 'fx'; $mnt->cabs[] = "IP"; $mnt->atcl[] = "align=center width=1%"; $mnt->cord[] = 'ipc'; $mnt->cabs[] = "Browser"; $mnt->atcl[] = "align=left width=90%"; $mnt->cord[] = 'browser'; $mnt->cabs[] = "Nauta"; $mnt->atcl[] = "align=left whidth=1% nowrap"; $mnt->cord[] = 'nauta'; $mnt->cabs[] = "E"; $mnt->atcl[] = "align=left whidth=1%"; $mnt->cord[] = 'eselnauta'; $mnt->cabs[] = "W"; $mnt->atcl[] = "align=left whidth=1%"; $mnt->cord[] = 'webmaster'; $mnt->cabs[] = "Acció"; $mnt->atcl[] = "align=left whidth=1% nowrap"; $mnt->cord[] = 'modi'; $mnt->accs["EDVI"] = "E"; $mnt->cap(); while ($row = $br->linia_obj()) { if ($br->nanchor == $row->id) $mnt->bg = "#ffffff"; $mnt->cels(array( date('d-m-y H:i:s', $row->data), $row->id, alias($row->fx), chars2ip($row->ipc), nautes_browser($row->browser), alias($row->nauta), $row->eselnauta, $row->webmaster, $row->modi . ' ' . $codivisites[$row->modi]), $row->id); } $mnt->cua(); fi(); } ?>alias"); } return $estatic[$n] = "$n BAIXA"; } function nautes_browser($n) { static $estatic; if (isset($estatic[$n])) { return $estatic[$n]; } if ($n == 0) { return ($estatic[0] = '0'); } $sql = sql_obj("select text from browsers where id=$n", false); if (sql_found()) { return ($estatic[$n] = "$n $sql->text"); } return $estatic[$n] = "$n BAIXA"; } ?>webmaster) { return date('d-m-y H:i', $row->modi); }else{ return date('d-m-y', $row->modi); } }elseif ($ordre_ll == 'alta' or $ordre_ll == 'rand') { if ($US->webmaster) { return date('d-m-y H:i', $row->alta); }else{ return date('d-m-y', $row->alta); } }elseif ($ordre_ll == 'nom') { return $row->nom; }elseif ($ordre_ll == 'cognoms') { return $row->cognoms; }elseif ($ordre_ll == 'professio') { return tips_2text($row->professio); }elseif ($ordre_ll == 'titol') { return tips_2text($row->titol); }elseif ($ordre_ll == 'alias') { return $row->alias; }elseif ($ordre_ll == 'email') { return nospam_mailto($row->email); //return "email>$row->email"; }elseif ($ordre_ll == 'aniversari') { return aniversari($row->neix, $row->alias); }elseif ($ordre_ll == 'edat') { return edat($row->neix); }elseif ($ordre_ll == 'direccio') { return $row->direccio; }elseif ($ordre_ll == 'postal') { return $row->postal; }elseif ($ordre_ll == 'poblacio') { return $row->poblacio; }elseif ($ordre_ll == 'zona') { return $row->zona; }elseif ($ordre_ll == 'telefon') { return $row->telefon; }elseif ($ordre_ll == 'foto') { return $row->peufoto; }elseif ($ordre_ll == 'modis') { return $row->modis; // }elseif ($ordre_ll == 'visites') { // return $row->visites; }else{ return ''; } } ?> $avui, 'Demà' => $dema); $n = 0; $mes = 0; foreach($avuidema as $nomdia => $mesdia) { $result = sql_sel("select * from nautes where substring(neix,6)='$mesdia'"); if ($trobats = sql_found()) { $ret[$n] = '
    ' . $nomdia . ($trobats == 1 ? ' fa' : ' fan').' anys...
    '; $br = ''; while ($arr = sql_arr($result)) { $ret[$n] .= "$br$arr[nom] $arr[cognoms]"; if ($arr['edatok']) { $ret[$n] .= "$nbsp(" . (edat($arr['neix'], false) + $mes) . ')'; } //if ($arr['emailok']) { //$ret[$n] .= " Per${nbsp}molts${nbsp}Anys!"; //$ret[$n] .= " Per${nbsp}molts${nbsp}Anys!"; //} $br = '
    '; } $ret[$n] .= "
    "; } $n++; $mes++; } return $ret; } ?>webmaster) return ''; if (! @$MN['colors_sn']) return ''; return "
    Triar color ($marc)
    "; } ?>webmaster) { $fitxa = sql_arr("select * from nautes where alias='$alias'"); $eselnauta = false; }elseif ($fitxa = eselnauta($alias)) { $eselnauta = true; }elseif ($entrar_clau) { $US->entrar_clau(); }else{ $fitxa = sql_arr("select * from nautes where alias='$alias'", true); } return $fitxa; } ?>webmaster ? 1 : 0) ; if ($fitxa === 0) { $eselnauta = 0; $nauta = 0; $fx = 0; }elseif (eselnauta($fitxa['alias'])) { $eselnauta = 1; $nauta = $fx = $fitxa['id']; }else{ $eselnauta = 0; $nauta = 0; $fx = $fitxa['id']; } if((! $eselnauta) and isset($MN['auth_user'])) { if ($nauta = eselnauta($MN['auth_user'], false)) { $nauta = $nauta['id']; }else{ $nauta = 0; } } $agent = quote($HTTP_USER_AGENT); $result = sql_obj("select * from browsers where text=$agent", false); if (sql_found()) { $browser = $result->id; }else{ $browser = sql_ins("insert into browsers set text=$agent"); } $data = date('U'); $ipc = quote(ip2chars(realip())); sql("insert into visites set fx=$fx, data=$data, ipc=$ipc, browser=$browser, nauta=$nauta, webmaster='$webmaster', eselnauta='$eselnauta', modi='$modi'"); if (in(' MFO MED MAL ', $modi)) { // Foto, Editar, alta update_mots($fitxa['alias']) ; }elseif (in(' MCO ', $modi)) { // Color $data = date('U'); sql("update nautes set modi=$data where alias='$fitxa[alias]'"); } if (in(' FIT ', $modi)) { // and ! $eselnauta and ! $webmaster) { sql("update nautes set visites=visites+1 where alias='$fitxa[alias]'"); }elseif (in(' MCO MED MFO ', $modi)) { // color Editar, foto sql("update nautes set modis=modis+1 where alias='$fitxa[alias]'"); } return ''; } function update_mots($alias, $updatemodi = true) { $o = sql_obj("select * from nautes where alias='$alias'"); $arr = array( $o->alias, $o->nom, $o->cognoms, $o->titol, ($o->emailok ? $o->email : ''), ($o->edatok ? edat($o->neix) : ''), aniversari($o->neix, $o->alias), $o->escola, $o->nivell, $o->professio, $o->poblacio, $o->zona, ($o->direcciook ? $o->direccio : ''), $o->postal, ($o->telefonok ? $o->telefon : ''), $o->afeccions, $o->webp, $o->web1, $o->web2, $o->web3, $o->peufoto, $o->webptext, $o->web1text, $o->web2text, $o->web3text, $o->comentari); $mots = mots_tots(ereg_replace('\{..?}','', (implode(' · ', $arr)))); if ($updatemodi) { $modi = date('U'); sql("update nautes set modi=$modi, mots = '$mots' where alias='$alias'"); } return; } ?>