Skip to content
Snippets Groups Projects
impressum.php 1.27 KiB
Newer Older
<?php
/**
 * @project Impressum-Edit
 * @author Joel Kuder j.kuder@swissnwx.ch
 * @copyright 2017 SwissNetWorX
 * @license SwissNetWorX AGB https://www.swissnwx.ch/agb
 */

// Variabeln
$filename = '../lib/texte/impressum.txt';
if (!isset($_POST['updaten'])) $_POST['updaten'] = '';
if (!isset($_POST['text'])) $_POST['text'] = '';

// Datei schreiben
if ($_POST['updaten'] == 'Updaten !') {
$_POST['text'] = str_replace('\\', '', $_POST['text']);
$fp = fopen ($filename, "w");
fwrite ($fp, $_POST['text']);
fclose ($fp);
}

// Datei auslesen
$fp = fopen ($filename, "r");
$inhalt = @fread ($fp, filesize ($filename));
fclose ($fp);
$inhalt = str_replace('\\', '', $inhalt);

head("Impressum bearbeiten (html erlaubt!)");?>
<div align="center">
<form action="" method="post">
<textarea name="text" style="width:500px; height:300px;"><?php echo $inhalt;?></textarea><br>
<input type="Submit" name="updaten" value="Updaten !">
</form>
</div>
<br>
    <div align="center">
        <!-- Dies ist der Copyright hinweis von https://www.swissnwx.ch er darf weder Unsichtbar gemacht werden noch darf er entfernt werden. -->
        <a href="https://www.swissnwx.ch" target="_blank" name="SwissNetWorX." title="SwissNetWorX" style="font-size: 10px;"> &copy; by SwissNetWorX </a>
    </div>
<?php foot();?>