Pokouším se odeslat ten soubor. Minule mi to nešlo. A opět neprojde. Okopíruju to tedy:
<?php
######################################################################
# phpRS Plug-in modul: Pridaj Článok 2.0.0-A addarticle.php
######################################################################
// Copyright (c) 2001-2004 by Jiri Lukas ([email]jirilukas@supersvet.cz[/email])
// [
http://www.supersvet.cz/phprs/]
// Created by: MSTEVE - ([email]msteve@zoznam.sk[/email])
// [
http://www.webinfo.sk/]
// This program is free software. - Toto je bezplatny a svobodny software.
// vyuzivane tabulky: rs_clanky
define('IN_CODE',true); // inic. ochranne konstanty
include_once("config.php");
//include_once("specfce.php");
include_once("myweb.php");
//include_once("sl.php");
//$rs_main_sablona="download";
//include_once("trlayout.php");
//include_once($adrlayoutu);
$jazykaddarticle="lang/user/".$vybranyjazyk."/user_sl_addarticle_".$vybranyjazyk.".php";
include_once($jazykaddarticle);
$AddClanokVersion="2.0.0-A"; // verzia pridania clanku
$DateVydania="26.06.2005"; // datum Vydania
$phprsversion="phpRS 2.6.5"; // phpRS version
$ip_adresa=$_SERVER["REMOTE_ADDR"]; // ip adresa citatela
$aktdatum=Date("Y-m-d H:i:s"); // aktualný datum
function VratSEOLink($retezec = '')
{
$pole_co= array('ě','š','č','ř','ž','ý','á','í','é','ú','ů','ť','Ě','Š','Č','Ř','Ž','Ý','Á','Í','É','Ú','Ů','Ť','-','.');
$pole_cim=array('e','s','c','r','z','y','a','i','e','u','u','t','E','S','C','R','Z','Y','A','I','E','U','U','T',' ',' ');
$retezec=str_replace($pole_co,$pole_cim,$retezec); // odstraneni diakritiky + uprava nekterych spec. znaku
$retezec=strtolower($retezec); // zmena na male pismo
$retezec=ereg_replace("[[:punct:]]+","",$retezec); // odstraneni interpunkcnich znaku
$retezec=ereg_replace("[[:space:]]+","-",trim($retezec)); // nahrada mezer za pomlcku + odstraneni mezer na zacatku a konci
return $retezec;
}
function ZoznamRubrik($pocatecnihodnota = 0)
{
/*********** nacitani promennych ***********/
$_POST["fuser"] = ($_GET["fuser"] <> '' ? $_GET["fuser"] : $_POST["fuser"] );
if (!$_POST["fuser"]=="" && $_POST["seltab"]=="") $_POST["seltab"] = 'tabbodyfilter';
// generuje a tridi pole hierarchicky na sobe zavislych rubrik; vystup obsahuje uplnou cestu k jednotlivym rubrikam
$dotazsez=mysql_query("select idt,nazev,id_predka from ".$GLOBALS["rspredpona"]."topic order by level,nazev",$GLOBALS["dbspojeni"]);
$pocetsez=mysql_num_rows($dotazsez);
for ($pom=0;$pom<$pocetsez;$pom++):
$pole_data = mysql_fetch_assoc($dotazsez);
// pole informaci
$vstdata[$pom][0]=$pole_data["idt"]; // id
$vstdata[$pom][1]=$pole_data["nazev"]; // nazev polozky
$vstdata[$pom][2]=$pole_data["id_predka"]; // id rodice
$vstdata[$pom][3]=0; // prepinace pouzito pole
endfor;
if ($pocetsez>0): $trideni=1; else: $trideni=0; endif;
$polehist[0]=$pocatecnihodnota; // historie prohledavani
$polecesta[0]="";
$polex=0; // poloha v poly historie prohledavani
$vysledekcislo=0; // akt. volna posledni pozice ve vysledkovem poli
while ($trideni==1):
$nasel=0; // 0 = prvek nenalezen, 1 = prvek nalezen
for ($pom=0;$pom<$pocetsez;$pom++):
if ($vstdata[$pom][3]==0): // kdyz nebylo akt. radek jeste pouzit
if ($vstdata[$pom][2]==$polehist[$polex]): // kdyz nalezi hledanemu predku
// ulozeni vysledku
$vysledek[$vysledekcislo][0]=$vstdata[$pom][0]; // id prvku
$vysledek[$vysledekcislo][1]=$polecesta[$polex].$vstdata[$pom][1]; // nazev prvku
$vysledek[$vysledekcislo][2]=$polex; // uroven vnoreni prvku
// nastaveni dalsich promennych
$vysledekcislo++; // prechod na dalsi radek ve vysledkovem poli
$vstdata[$pom][3]=1; // nastaveni prepinace na pouzito
$polex++; // prechod na vyssi uroven v historii
$polehist[$polex]=$vstdata[$pom][0];
$polecesta[$polex]=$polecesta[$polex-1].$vstdata[$pom][1]." - ";
$nasel=1;
break;
endif;
endif;
endfor;
if ($nasel==0): // kdyz nebyl v celem poli nalezen zadny odpovidajici prvek
if ($polehist[$polex]==$pocatecnihodnota):
// vysledek hledani na zakladni urovni, ktera byla stanovena na zacatku, je prazdny -> neexistuje zadna dalsi vetev
$trideni=0;
else:
$polex--; // prechod na nizsi uroven v historii
endif;
endif;
endwhile;
/*
$vysledek[X][0] - id prkvu
[1] - nazev prvku
[2] - cislo urovne
*/
if ($pocetsez>0):
return $vysledek;
else:
return 0;
endif;
}
function KorekciaNadpisu($str)
{
// tento riadok nahrazuje uvodzovky za - "
return str_replace('"','"',$str);
}
// ----------------------------- PRIDANIE CLANKU ----------------------------_//
// Pridanie clanku
function AddArticle()
{
//* POUZE REGISTROVANY CTENAR
if ($GLOBALS["prmyctenar"]->ctenarstav==1):
//* POUZE REGISTROVANY CTENAR
echo "<form action=\"addarticle.php\" method=\"post\">
<table border=\"0\" cellspacing=\"5\" cellpadding=\"0\" align=\"center\">
<tr class=\"z\"><td align=\"left\"><b>".RS_CLA_NADPIS_CLANKU.":</b></td>
<td align=\"left\"><input type=\"text\" name=\"aetitulek\" size=\"40\" class=\"textpole\" /> <b class=\"redtext\">*</b></td></tr>
<tr class=\"z\"><td align=\"left\" colspan=\"2\"><b>".RS_CLA_FORM_UVOD."</b> <b class=\"redtext\">*</b><br />
<textarea name=\"aeuvod\" rows=\"6\" cols=\"100%\" class=\"textbox\">".RS_CLA_FORM_UVOD_INFO."</textarea></td></tr>
<tr class=\"z\"><td align=\"left\" colspan=\"2\"><b>".RS_CLA_FORM_HLA_TEXT."</b> <b class=\"redtext\">*</b><br />
<textarea name=\"aetext\" rows=\"10\" cols=\"100%\" class=\"textbox\">".RS_CLA_FORM_HLA_TEXT_INFO."</textarea></td></tr>
<tr class=\"z\"><td align=\"left\"><b>".RS_CLA_FORM_TEMA.":</b></td>
<td align=\"left\">";
$poletopic=ZoznamRubrik();
if (!is_array($poletopic)):
echo RS_CLA_ZIADNA_RUBRIKA; // chyba; neexistuje rubrika
else:
echo "<select name=\"aetema\" size=\"1\" class=\"textbox\">";
$pocettopic=count($poletopic);
for ($pom=0;$pom<$pocettopic;$pom++):
echo "<option value=\"".$poletopic[$pom][0]."\">".$poletopic[$pom][1]."</option>\n";
endfor;
echo "</select>";
endif;
echo "</td></tr>
<tr class=\"z\"><td align=\"left\"><b>".RS_CLA_CTENARE.":</b></td>
<td align=\"left\" ><input class=\"pokecinput\" type=\"Text\" name=\"aezdroj\" value=\"".( $GLOBALS["prmyctenar"]->ctenarstav ? $GLOBALS["prmyctenar"]->ctenardata["prezdivka"] : stripslashes($_POST["rjmeno"]))."\" style=\"width:120;\" ".( $GLOBALS["prmyctenar"]->ctenarstav ? "readonly" : "")."></td></tr>
</table>
<input type=\"hidden\" name=\"akce\" value=\"AddSaveArticle\" /><input type=\"hidden\" name=\"modul\" value=\"clanky\" />
<p align=\"center\"><input type=\"submit\" value=\" ".RS_TL_PRIDAT_CLANOK." \" class=\"tl\" /></p>
</form>\n";
echo "<p align=\"center\" class=\"z\"><i><b>*</b> ".RS_CLA_POVINNE_POLIA."</i></p>\n";
// navrat
//* POUZE REGISTROVANY CTENAR
else:
echo"<p align=\"center\" class=\"clanadpis\">".RS_CLA_NIE_SI_REGISTROVANY."</p>\n";
echo"<p align=\"center\" class=\"clanadpis\">".RS_CLA_POTREBNA_REGISTERED."</p>\n";
echo"<p align=\"center\" class=\"txt\"><a class=\"\" href=\"readers.php?akce=new\" title=\"".RS_CLA_NEW_USER_REG."\">".RS_CLA_NEW_USER_REG."</a></p>\n";
endif;
//* POUZE REGISTROVANY CTENAR
echo "<p align=\"center\" class=\"txt\"><a href=\"index.php\">".RS_CLA_NASPAT."</a></p>\n";
}
function AddSaveArticle()
{
// bezpecnostni korekce
$GLOBALS["aetitulek"]=KorekciaNadpisu($GLOBALS["aetitulek"]); // korekce titulku na uvozovky
$GLOBALS["aetitulek"]=mysql_escape_string($GLOBALS["aetitulek"]);
$GLOBALS["aeuvod"]=mysql_escape_string($GLOBALS["aeuvod"]);
$GLOBALS["aetext"]=mysql_escape_string($GLOBALS["aetext"]);
$GLOBALS["aezdroj"]=mysql_escape_string($GLOBALS["aezdroj"]);
$GLOBALS["prezdivka"]=mysql_escape_string($GLOBALS["prezdivka"]);
$aedatum="".Date("Y-m-d H:i:s").""; // dnesný datum
// vytvoreni "linku" z "$aedatum"
list($jen_datum,$jen_cas)=explode(" ",$aedatum);
list($jen_rok,$jen_mes,$jen_den)=explode("-",$jen_datum);
$link_start=date("Ym",mktime(0,0,0,$jen_mes,$jen_den,$jen_rok))."0001";
$link_konec=date("Ym",mktime(0,0,0,$jen_mes,$jen_den,$jen_rok))."9999";
$dotazzjisti=phprs_sql_query("select link from ".$GLOBALS["rspredpona"]."clanky where link>='".$link_start."' and link<'".$link_konec."' order by link desc",$GLOBALS["dbspojeni"]);
if ($dotazzjisti!=0&&phprs_sql_num_rows($dotazzjisti)>0):
$pole_data=phprs_sql_fetch_assoc($dotazzjisti);
$link_start=$pole_data['link'];
$link_start++;
endif;
$GLOBALS["aelink"]=$link_start;
$nast_kom=0;
$nast_visit=0;
$nast_hod=0;
$nast_mn_hod=0;
$aeautor="1"; // nastavenie autora default admin
$aepriorita="1"; // priorita clanku default 1
$aedatum="".Date("Y-m-d H:i:s").""; // dnesný datum
$aedatumpl="".Date("Y-m-d H:i:s",(Time()+864000))."";
$aetypcla=1; // typ clanku default 1
$aesablona=4; // typ sablony default 2
$nast_level=1; // LEVEL default 1
$nast_index=1;
$aeanketa=0;
$nast_seo_link=VratSEOLink($GLOBALS["aetitulek"]);
// test na pritomnost vsetkych povinnych poli
if ($GLOBALS["aetitulek"]==''||$GLOBALS["aeuvod"]==''||$GLOBALS["aetext"]==''):
echo"<p align=\"center\" class=\"clanadpis\">".RS_CLA_NIECO_POVINYCH_POLI_PRAZDNE."</p>\n";
echo"<p align=\"center\" class=\"txt\">".RS_CLA_VTRATIT_SPAT."</p>\n";
echo"<p align=\"center\" class=\"txt\"><a class=\"\" href=\"javascript:history.go(-1);\" title=\"".RS_CLA_BACK."\">".RS_CLA_BACK."</a></p>\n";
else:
// pridanie clanku
$dotaz="insert into ".$GLOBALS["rspredpona"]."clanky ";
$dotaz.="values(null,'".$GLOBALS["aelink"]."','".$nast_seo_link."','".$GLOBALS["aetitulek"]."','".$GLOBALS["aeuvod"]."','".$GLOBALS["aetext"]."','".$GLOBALS["aetema"]."',";
$dotaz.="'".$aedatum."','".$aeautor."',".$nast_kom.",".$nast_visit.",'".$GLOBALS["aeslova"]."','".$nast_visible."','".$GLOBALS["aezdroj"]."',";
$dotaz.="'".$aepriorita."','".$aedatumpl."','".$GLOBALS["aeskupina"]."',".$nast_hod.",'".$nast_mn_hod."','".$GLOBALS["aeznacky"]."',";
$dotaz.="'".$aetypcla."','".$aesablona."','".$nast_level."','".$nast_index."','".$aeanketa."')";
@$error=mysql_query($dotaz,$GLOBALS["dbspojeni"]);
$pridc=mysql_insert_id($GLOBALS["dbspojeni"]); // zjisteni id clanku
if (!$error):
echo "<p align=\"center\" class=\"txt\"><b>Error:</b> ".RS_CLA_ERR_DB_SQL_DOTAZ."</p>\n"; // chyba
else:
$newclanok=RS_CLA_HELO_ADMIN." ".$GLOBALS["aezdroj"]." ".RS_CLA_HELO_ADMIN1." ".$GLOBALS["wwwname"]."\n".$GLOBALS["baseadr"]."\n".RS_CLA_IP_CITATELA." ".$GLOBALS["ip_adresa"]."\n".RS_CLA_DATUM_VLOZENIA." ".$GLOBALS["aktdatum"]."";
$newclanok=Base64_Encode($newclanok);
$newclanokhlavicka .="From: ".$GLOBALS["redakceadr"]."\n".
"MIME-Version: 1.0\n".
"Content-Type: text/plain; charset=\"windows-1250\"\n".
"Content-Transfer-Encoding: base64";
$newclanokpredmet=RS_CLA_NEW_PREDMET." ".$GLOBALS["wwwname"];
@Mail($GLOBALS["redakceadr"],$newclanokpredmet,$newclanok,$newclanokhlavicka);
echo "<p align=\"center\" class=\"clanadpis\">".RS_CLA_DAKUJEME."</p>\n";
echo "<p align=\"center\" class=\"txt\">".RS_CLA_OK_ADD_NEW_CLA."<br /><br />".RS_CLA_VOLACI_LINK." ".$GLOBALS["aelink"]."</p>\n";
echo "<p align=\"center\" class=\"txt\"><a href=\"addarticle.php\">".RS_CLA_PRIDAJ_NEW."</a></p>\n";
endif;
endif;
// navrat
echo "<p align=\"center\" class=\"txt\"><a href=\"index.php\">".RS_CLA_NASPAT."</a></p>\n";
}
function VerziaAddArticle ()
{
echo "<div align=\"center\">Verzia pridania článku: ".$GLOBALS["AddClanokVersion"]."<br />Dátum Vydania: ".$GLOBALS["DateVydania"]."<br />Koordinátor a vedúci vydania: <b>MSteve Makker Štefan</b><br>Home page: <b><a class=\"\" href=\"http://www.webinfo.sk\" target=\"blank\">[
http://www.webinfo.sk</a></b><br] />Určené pre: ".$GLOBALS["phprsversion"]."</div>\n";
}
// Tvorba stranky
$vzhledwebu->Generuj();
ObrTabulka(); // Vlozenie layoutu prvku
echo "<p class=\"nadpis\">".RS_PRIDAJ_CLANOK_NADPIS."</p>\n"; // nadpis
switch ($GLOBALS['akce']):
case 'verzia': VerziaAddArticle(); break; // Verzia addarticle
case 'AddSaveArticle': AddSaveArticle(); break; // save članok
default: AddArticle(); break; // pridaj članok
endswitch;
KonecObrTabulka(); // Vlozenie layout prvku
$vzhledwebu->Generuj();
?>