PHPIndex

This page lists files in the current directory. You can view content, get download/execute commands for Wget, Curl, or PowerShell, or filter the list using wildcards (e.g., `*.sh`).

inc
articles.php
wget 'https://sme10.lists2.roe3.org/guppy/mobile/articles.php'
View Content
<?php
/*******************************************************************************
 *   Articles for Mobile
 *******************************************************************************
 *   GuppY PHP Script - version 6.0
 *   CeCILL Copyright (C) 2004-2022 by Laurent Duveau
 *   Initiated by Laurent Duveau and Nicolas Alves
 *   Web site = https://www.freeguppy.org/
 *   e-mail   = guppy@freeguppy.org
 *   V6 developed by Lud Bienaimé
 *      with the participation of the GuppY Team
 *******************************************************************************
 *   Latest Changes :
 * v6.00.07 (February 24, 2022) : correction script
 ******************************************************************************/

header('Pragma: no-cache');
define('CHEMIN', '../');
include CHEMIN.'inc/includes.inc';

$section_index = 1;
$section_name = $web[169];
include 'inc/members.inc';
if ($section_access) {
	$isdoc = count(SelectDBFields(TYP_ART,'a', $pg)) == 1;
    if ($isdoc) {
        ReadDoc($pg);
        if (!isAccessGranted($fieldmod)) {
			header('HTTP/1.0 403 Forbidden');
        }
		$isdoc = isAuthorizedPublication($creadate);
		if ($isdoc) {
			$countit = 1;
			if ($lng == $lang[0]) {
				$txtart1 = $fieldb1;
				$txtart2 = PathToImage($fieldc1);
				$txtart3 = $fielda1;
			}
			else {
				$txtart1 = $fieldb2;
				$txtart2 = PathToImage($fieldc2);
				$txtart3 = $fielda2;
			}
			$txtart4 = FormatDate($moddate);
			$txtart5 = FormatDate($creadate);
		}
    }
	if (!$isdoc) {
        $countit = 0;
        $txtart1 = $web[35];
        $txtart2 = $web[36];
        $txtart3 = $web[37];
        $txtart4 = $web[37];
        $txtart5 = $web[37];
        header('HTTP/1.0 404 Not Found');
    }

    $topmess = $txtart1;
    include 'inc/hpalm.inc';
    echo '
<div style="text-align:center"><b>'.$txtart1.'</b></div>
<hr />
'.$txtart2.'
<hr />
'.$web[95].' '.$txtart5.'
<br>
'.$web[20].' '.$txtart4.'
<br>
'.$web[21].' '.$txtart3.'
<br>';
    if ($serviz[33] == "on" && $countit == 1) {
        $artcounter = UpdateDocCounter($pg);
        $txtcount = $artcounter <= 1 ? $web[188] : $web[189];
        echo '
'.$web[190].' '.$artcounter.' '.$txtcount.'
<br>';
    }
    if ($serviz[29] == 'on' && $countit == 1) {
        $dbreaction = ReadDBFields(DBREACT);
        foreach ($dbreaction as $dbr) {
            if ($dbr[1] == $pg) {
                $dbwork[] = $dbr[0];
            }
        }
        @rsort($dbwork);
        echo '
<hr />
<div style="text-align:center"><b>'.$web[184].'</b></div>
<hr />';
        if (empty($id)) {
            $id = 1;
        }
        if (!empty($dbwork)) {
            for ($i = $serviz[30]*($id-1); $i < Min($serviz[30]*$id, count($dbwork)); $i++) {
                ReadDoc($dbwork[$i]);
                echo '
<b>'.$web[185].$fielda1.'</b>&nbsp;
'.$web[6].' <b>'.$author.'</b> '.$web[7].' '.FormatDate($creadate).'
<br />
<br />
'. PathToImage($fieldc1).'
<br />';
                if ($i < Min($serviz[30]*$id, count($dbwork))-1) {
                    echo '
<hr />';
                }
            }
        }
        else {
            echo '
'.$web[186].'
<br />';
        }
        if (count($dbwork) > $serviz[30]) {
            echo '
<hr />
'.GetNavBar('articles.php?lng='.$lng.'&amp;pg='.$pg.'&amp;id=', count($dbwork), $id, $serviz[30]);
            $idp = $id-1;
        }
    }
    include 'inc/bpalm.inc';
}
?>
blog.php
wget 'https://sme10.lists2.roe3.org/guppy/mobile/blog.php'
View Content
<?php
/*******************************************************************************
 *   Blog for Mobile
 *******************************************************************************
 *   GuppY PHP Script - version 6.0
 *   CeCILL Copyright (C) 2004-2022 by Laurent Duveau
 *   Initiated by Laurent Duveau and Nicolas Alves
 *   Web site = https://www.freeguppy.org/
 *   e-mail   = guppy@freeguppy.org
 *   V6 developed by Lud Bienaimé
 *      with the participation of the GuppY Team
 *******************************************************************************
 *   Latest Changes :
 * v6.00.15 (November 29, 2023) : Correction illegal variable
 ******************************************************************************/

header('Pragma: no-cache');
define('CHEMIN', '../');
include CHEMIN.'inc/includes.inc';

if ($serviz[53] != 'on') {
    exit($web[143]);
}

$section_index = 15;
$i = $lng == $lang[0] ? 0 : 1;
$nom_bl = getLabel($nom[$i+42]);
$section_name = $nom_bl;
include 'inc/members.inc';
if ($section_access) {
	$isdoc = count(SelectDBFields(TYP_BLOG,'a', $pg)) == 1;
    if ($isdoc) {
        ReadDoc($pg);
        if (!isAccessGranted($fieldmod)) {
			header('HTTP/1.0 403 Forbidden');
        }
		$isdoc = isAuthorizedPublication($creadate);
		if ($isdoc) {
        $countit = 1;
        if ($lng == $lang[0]) {
            $txtart1 = $fieldb1;
            $txtart2 = PathToImage($fieldc1);
            $txtart3 = $fielda1;
        }
        else {
            $txtart1 = $fieldb2;
            $txtart2 = PathToImage($fieldc2);
            $txtart3 = $fielda2;
        }
        $txtart4 = FormatDate($moddate);
        $txtart5 = FormatDate($creadate);
        $txtart6 = $author;
		}
    }
	if (!$isdoc) {
        $countit = 0;
        $txtart1 = $web[35];
        $txtart2 = $web[36];
        $txtart3 = $web[37];
        $txtart4 = $web[37];
        $txtart5 = $web[37];
        $txtart6 = $web[37];
        header('HTTP/1.0 404 Not Found');
    }
    $topmess = $txtart1;
    include 'inc/hpalm.inc';
    $doc = array();
	$docn = '';
	$docp = '';
    $dbblog = ReadDBFields(DBBLOG);
    if (count($dbblog) > 1) {
        for ($i = 0; $i < count($dbblog); $i++) {
            $doc[$i] = $dbblog[$i][4];
            if ($doc[$i] == $pg){
                $docp = $i > 0 ? $dbblog[$i-1][4] : '';
                $docn = $i < count($dbblog)-1 ? $dbblog[$i+1][4] : '';
            }
        }
		$f = '';
        echo '
<p style="align:center;">';
        if ($pg == $dbblog[count($dbblog)-1][4]) {
            $docn = $dbblog[count($dbblog)-1][4];
            $f = 'N';
        }
        echo '
  <a href="blog.php?lng='.$lng.'&amp;pg='.$doc[count($dbblog)-1].'" title="'.$web[339].'"><i class="fas fa-angle-double-left cur'.$f.' align-middle" title="'.$web[339].'"></i></a>
  <a href="blog.php?lng='.$lng.'&amp;pg='.$docn.'" title="'.$web[32].'"><i class="fas fa-angle-left cur'.$f.' align-middle" title="'.$web[32].'"></i></a>
  <b>'.$txtart1.'</b>';
		$d = '';
        if ($pg == $dbblog[0][4]) {
            $docp = $dbblog[0][4];
            $d = '_n';
        }
        echo '
  <a href="blog.php?lng='.$lng.'&amp;pg='.$docp.'" title="'.$web[34].'"><i class="fas fa-angle-right cur'.$f.' align-middle" title="'.$web[34].'"></i></a>
  <a href="blog.php?lng='.$lng.'&amp;pg='.$doc[0].'" title="'.$web[338].'"><i class="fas fa-angle-double-right cur'.$f.' align-middle" title="'.$web[338].'"></i></a>
</p>';
    }
    echo '
'.$web[393].' <b>'.$txtart3.'</b> - '.$web[6].' <b>'.$txtart6.'</b>
<br />
<hr />
'.$txtart2.'
<hr />
'.$web[95].' '.$txtart5.'
<br />';
    if ($serviz[33] == 'on' && $countit == 1) {
        $artcounter = UpdateDocCounter($pg);
        $txtcount = $artcounter <= 1 ? $web[188] : $web[189];
        echo '
'.$web[190].' '.$artcounter.' '.$txtcount.'
<br />';
    }
    if ($serviz[57] == 'on' && $countit == 1) {
        $dbreaction = ReadDBFields(DBREBLOG);
        foreach ($dbreaction as $dbr) {
            if ($dbr[1] == $pg) {
                $dbwork[] = $dbr[0];
            }
        }
        @rsort($dbwork);
        echo '
<hr />
<div style="text-align:center;"><b>'.$web[407].'</b></div>
<hr />';
        if (empty($id)) {
            $id = 1;
        }
        if (!empty($dbwork)) {
            for ($i = $serviz[30]*($id-1); $i < Min($serviz[30]*$id, count($dbwork)); $i++) {
                ReadDoc($dbwork[$i]);
                echo '
<b>'.$web[185].$fielda1.'</b>&nbsp;'.$web[6].'<b>'.$author.'</b> '.$web[7].' '.FormatDate($creadate).'
<br />
<br />
'.PathToImage($fieldc1).'
<br />';
                if ($i < Min($serviz[30]*$id, count($dbwork))-1) {
                    echo '
<hr />';
                }
            }
        }
        else {
            echo '
'.$web[186].'<br>';
        }
        if (count($dbwork) > $serviz[30]) {
            echo '
<hr />
'.GetNavBar('blog.php?lng='.$lng.'&amp;pg='.$pg.'&amp;id=', count($dbwork), $id, $serviz[30]);
        }
    }
    include 'inc/bpalm.inc';
}
?>
blogs.php
wget 'https://sme10.lists2.roe3.org/guppy/mobile/blogs.php'
View Content
<?php
/*******************************************************************************
 *   Blogs list for mobile
 *******************************************************************************
 *   GuppY PHP Script - version 6.0
 *   CeCILL Copyright (C) 2004-2022 by Laurent Duveau
 *   Initiated by Laurent Duveau and Nicolas Alves
 *   Web site = https://www.freeguppy.org/
 *   e-mail   = guppy@freeguppy.org
 *   V6 developed by Lud Bienaimé
 *      with the participation of the GuppY Team
 *******************************************************************************
 *   Latest Changes :
 * v6.00.07 (February 24, 2022) : correction script
 ******************************************************************************/

header('Pragma: no-cache');
define('CHEMIN', '../');
include CHEMIN.'inc/includes.inc';

if ($serviz[53] != 'on') {
    exit($web[143]);
}

$section_index = 15;
$i = $lng == $lang[0] ? 0 : 1;
$nom_bl = getLabel($nom[$i+42]);
$section_name = $nom_bl;
include 'inc/members.inc';

if ($section_access) {

    include 'inc/hpalm.inc';

    $j = $lng == $lang[0] ? 0 : 1;
    $tartg = $nom_bl;
    $tartd = getLabel($nom[44 + $j]);
    $dbw = ReadDBFields(DBBLOG);
    if (!empty($dbw)) {
        $k = 0;
        $arttbl = array();
        foreach ($dbw as $db) {
			if (!isAuthorizedPublication($db[5])) continue;
            if (empty($db[5])) {
                $arttbl[$k][0] = 'left';
            }
            else {
                $arttbl[$k][0] = $db[5];
            }
            $arttbl[$k][1] = $db[0+$j];
            $arttbl[$k][2] = $db[2+$j];
            $arttbl[$k][3] = $db[4];
            $k++;
        }
        @sort($arttbl);
        $artboxpos = '';
        $rubr = '';
        foreach ($arttbl as $art) {
            if ($artboxpos <> $art[0]) {
                $artboxpos = $art[0];
                if ($artboxpos == 'left') {
                    echo '<div style="text-align:center;"><b>'.$tartg.'</b></div><hr />';
                }
                else {
                    echo '<hr /><div style="text-align:center;"><b>'.$tartd.'</b></div><hr />';
                }
            }
            if ($rubr <> $art[1]) {
                $rubr = $art[1];
                if (trim($rubr) != '') {
                    echo '<b>'.$rubr.'</b><br>';
                }
            }
            if (trim($rubr) != '' ) {
                echo '&nbsp;&nbsp;'.$texte[3].' <a href="blog.php?lng='.$lng.'&amp;pg='.$art[3].'">'.$art[2].'</a><br>';
            }
        }
    }

    include 'inc/bpalm.inc';
}
?>
download.php
wget 'https://sme10.lists2.roe3.org/guppy/mobile/download.php'
View Content
<?php
/*******************************************************************************
 *   Download for Mobile
 *******************************************************************************
 *   GuppY PHP Script - version 6.0
 *   CeCILL Copyright (C) 2004-2022 by Laurent Duveau
 *   Initiated by Laurent Duveau and Nicolas Alves
 *   Web site = https://www.freeguppy.org/
 *   e-mail   = guppy@freeguppy.org
 *   V6 developed by Lud Bienaimé
 *      with the participation of the GuppY Team
 *******************************************************************************
 *   Latest Changes :
 * v6.00.07 (February 24, 2022) : correction script
 ******************************************************************************/

header('Pragma: no-cache');
define('CHEMIN', '../');
include CHEMIN.'inc/includes.inc';

if ($serviz[10] != 'on') {
    exit($web[143]);
}

$section_index = 7;
$i = $lng == $lang[0] ? 0 : 10;
$nom_dn = getLabel($nom[$i+1]);
$section_name = $nom_dn;
include 'inc/members.inc';
if ($section_access) {

    $dbwork = ReadDBFields(DBDNLOAD);
    @sort($dbwork);

    $topmess = $nom_dn;
    include 'inc/hpalm.inc';
    echo '
<div style="text-align:center"><b>'.$nom_dn.'</b></div>
<hr />'.$web[38];
    if (empty($id)) {
        $id = 1;
    }
    if (!empty($dbwork)) {
        echo '
<br />
<ul>';
        $rubr = '';
        for ($i = $serviz[4]*($id-1); $i < Min($serviz[4]*$id, count($dbwork)); $i++) {
            ReadDoc($dbwork[$i][4]);
			if (!isAccessGranted($fieldmod) || !isAuthorizedPublication($creadate)) continue;
            if ($lng == $lang[0]) {
                if ($rubr <> $fielda1) {
                    $rubr = $fielda1;
                    if (trim($rubr) != '') {
                        echo '
  <li><b>'.$rubr.'</b><br /><br />';
                    }
                }
                $txt1 = $fieldb1;
                $txt2 = $fieldd1;
                $txt3 = PathToImage($fieldc1);
            }
            else {
                if ($rubr <> $fielda2) {
                    $rubr = $fielda2;
                    if (trim($rubr) != '') {
                        echo '
  <li><b>'.$rubr.'</b><br /><br />';
                    }
                }
                $txt1 = $fieldb2;
                $txt2 = $fieldd2;
                $txt3 = PathToImage($fieldc2);
            }
            if (substr($txt2, 0, 5) == 'file/') {
                $txt2 = CHEMIN.$txt2;
            }
            $downcounter = -1;
            if ($serviz[35] == 'on') {
                if (!strstr($txt2, '.php') && !strstr($txt2, '.htm')) {
                    $downcounter  = ReadDocCounter($dbwork[$i][4]);
                    $txtcount = $downcounter <= 1 ? $web[188] : $web[189];
                }
            }
            if ($downcounter == -1) {
                echo '
    <i class="fas fa-download align-middle"></i>&nbsp;&nbsp;&nbsp;
    <b><a href="'.$txt2.'">'.$txt1.'</a></b><br />';
            }
            else {
                echo '
    <i class="fas fa-download align-middle"></i>&nbsp;&nbsp;&nbsp;
    <b><a href="dwnld.php?lng='.$lng.'&amp;pg='.$dbwork[$i][4].'&amp;id='.$id.'">'.$txt1.'</a></b>
    <br>'.$web[191].' '.$downcounter.' '.$txtcount.'<br />';
            }
            echo '
    '.$txt3.'<br /><br /></li>';
        }
        echo '
</ul>';
    }
    if (count($dbwork)>$serviz[4]) {
        echo '
<hr />'.GetNavBar('download.php?lng='.$lng.'&amp;id=', count($dbwork), $id, $serviz[4]);
    }
    include 'inc/bpalm.inc';
}
?>
dwnld.php
wget 'https://sme10.lists2.roe3.org/guppy/mobile/dwnld.php'
View Content
<?php
/*******************************************************************************
 *   Download (popup) for Mobile
 *******************************************************************************
 *   GuppY PHP Script - version 6.0
 *   CeCILL Copyright (C) 2004-2022 by Laurent Duveau
 *   Initiated by Laurent Duveau and Nicolas Alves
 *   Web site = https://www.freeguppy.org/
 *   e-mail   = guppy@freeguppy.org
 *   V6 developed by Lud Bienaimé
 *      with the participation of the GuppY Team
 *******************************************************************************
 *   Latest Changes :
 * v6.00.07 (February 24, 2022) : correction script
 ******************************************************************************/

header('Pragma: no-cache');
define('CHEMIN', '../');
include CHEMIN.'inc/includes.inc';

if ($serviz[35] != 'on') {
    exit($web[143]);
}

$section_index = 7;
$i = $lng == $lang[0] ? 0 : 10;
$nom_dn = getLabel($nom[$i+1]);
$section_name = $nom_dn;
include 'inc/members.inc';
if ($section_access) {

    if (!empty($pg)) {
        ReadDoc($pg);
        if (!isAccessGranted($fieldmod)) {
			header('HTTP/1.0 403 Forbidden');
        }
		if (isAuthorizedPublication($creadate)) {
			if ($lng == $lang[0]) {
				$nomdw = $fieldb1;
				$fdw   = explode(CONNECTOR, $fieldd1);
				$urldw = $fdw[0];
				$chk   = !empty($fdw[1])? $fdw[1]: '';
			}
			else {
				$nomdw = $fieldb2;
				$fdw   = explode(CONNECTOR, $fieldd2);
				$urldw = $fdw[0];
				$chk   = !empty($fdw[1])? $fdw[1]: '';
			}
			if (substr($urldw, 0, 5) == 'file/') {
				$urldw = CHEMIN.$urldw;
			}
			$nomfl = basename ($urldw);
			$sizefl = FileSizeInKb($urldw);
			if ($sizefl === FALSE) {
				$sizefl = $web[37];
			}
			else {
				$sizefl .= ' '.$web[28];
			}
			$modfl = @filemtime($urldw);
			if ($modfl === FALSE) {
				$modfl = $web[37];
			}
			else {
				$modfl = FormatDateStamp($modfl);
			}
			$dnldfl = @filemtime(DBBASE.$pg.DBEXT);
			if ($dnldfl === FALSE) {
				$dnldfl = $web[37];
			}
			else {
				$dnldfl = FormatDateStamp($dnldfl);
			}
			$dnldcounter = UpdateDocCounter($pg);
			$txtcount = $dnldcounter.' '.($dnldcounter <= 1 ? $web[188] : $web[189]);
			include 'inc/hpalm.inc';
			echo '
<div style="text-align:center">
  <b><a href="download.php?lng='.$lng.'&amp;id='.$id.'">'.$nom_dn.'</a> - '.$nomdw.'</b>
</div>
<hr />
'.$web[218].'&nbsp;<b>'.$nomdw.'</b><br />
'.$web[194].'&nbsp;<b><a href="'.$urldw.'">'.$nomfl.'</a></b><br />
'.$web[263].'&nbsp;'.$modfl.'<br />
'.$web[199].'&nbsp;'.$txtcount.'<br />
'.$web[197].'&nbsp;'.$dnldfl.'<br />
'.$web[195].'&nbsp;'.$sizefl.'<br />';
			include 'inc/bpalm.inc';
		}
    }
}
?>
faq.php
wget 'https://sme10.lists2.roe3.org/guppy/mobile/faq.php'
View Content
<?php
/*******************************************************************************
 *   FAQ for mobile
 *******************************************************************************
 *   GuppY PHP Script - version 6.0
 *   CeCILL Copyright (C) 2004-2022 by Laurent Duveau
 *   Initiated by Laurent Duveau and Nicolas Alves
 *   Web site = https://www.freeguppy.org/
 *   e-mail   = guppy@freeguppy.org
 *   V6 developed by Lud Bienaimé
 *      with the participation of the GuppY Team
 *******************************************************************************
 *   Latest Changes :
 * v6.00.07 (February 24, 2022) : correction script
 ******************************************************************************/

header('Pragma: no-cache');
define('CHEMIN', '../');
include CHEMIN.'inc/includes.inc';

if ($serviz[14] != 'on') {
    exit($web[143]);
}

$section_index = 4;
$i = $lng == $lang[0] ? 0 : 1;
$nom_fa = getLabel($nom[$i+24]);
$section_name = $nom_fa;
include 'inc/members.inc';
if ($section_access) {

    $dbwork = ReadDBFields(DBFAQ);
    @sort($dbwork);

    $topmess = $nom_fa;
    include 'inc/hpalm.inc';
    echo '
<div style="text-align:center;"><b>'.$nom_fa.'</b></div><hr />';
    if (empty($id)) {
        $id = 1;
    }
    if (!empty($dbwork)) {
        echo '
<br>';
		$rubr = '';
        for ($i = $serviz[6]*($id-1); $i < Min($serviz[6]*$id, count($dbwork)); $i++) {
            ReadDoc($dbwork[$i][4]);
			if (!isAccessGranted($fieldmod) || !isAuthorizedPublication($creadate)) continue;
            if ($lng == $lang[0]) {
                if ($rubr <> $fielda1) {
                    $rubr = $fielda1;
                    if (trim($rubr) != '') {
						echo '
<ul><li><b>'.$rubr.'</b><br><br></li></ul>';
                    }
                }
                $txt1 = $fieldb1;
                $txt2 = PathToImage($fieldc1);
            }
            else {
                if ($rubr <> $fielda2) {
                    $rubr = $fielda2;
                    if (trim($rubr) != '') {
                        echo '
<ul><li><b>'.$rubr.'</b><br><br></li></ul>';
                    }
                }
                $txt1 = $fieldb2;
                $txt2 = PathToImage($fieldc2);
            }
            echo '
    <i class="far fa-question-circle align-middle"></i>&nbsp;&nbsp;'.$txt1.'
    <br><br>'.$txt2.'<br><br>';
            if ($i < Min($serviz[6]*$id, count($dbwork))-1) {
                echo '<hr />';
            }
        }
    }
    if (count($dbwork)>$serviz[6]) {
        echo '<hr />'.GetNavBar('faq.php?lng='.$lng.'&amp;id=', count($dbwork), $id, $serviz[6]);
    }
    include 'inc/bpalm.inc';
}
?>
fortopic.php
wget 'https://sme10.lists2.roe3.org/guppy/mobile/fortopic.php'
View Content
<?php
/*******************************************************************************
 *   Forum Topics for Mobile
 *******************************************************************************
 *   GuppY PHP Script - version 6.0
 *   CeCILL Copyright (C) 2004-2023 by Laurent Duveau
 *   Initiated by Laurent Duveau and Nicolas Alves
 *   Web site = https://www.freeguppy.org/
 *   e-mail   = guppy@freeguppy.org
 *   V6 developed by Lud Bienaimé
 *      with the participation of the GuppY Team
 *******************************************************************************
 *   Latest Changes :
 * v6.00.11 (March 09, 2023) : correction $dbcat
 ******************************************************************************/

header('Pragma: no-cache');
define('CHEMIN', '../');
include CHEMIN.'inc/includes.inc';

$dbcat = array();
if ($serviz[13] == 'on')
 $dbcat = ReadDBFields(DBFORUMCAT);
$okfr  = false;
if (!empty($dbcat)) 
{
	foreach ($dbcat as $cat) 
	{
		if (!isset($cat[5])) $cat[5] = '';
		if ($cat[5] == 'on') 
		{ 
			$okfr = true; break;
		}
	}
}
if ($serviz[13] != 'on' || !$okfr) {
    exit($web[143]);
}


$section_index = 5;
$i = $lng == $lang[0] ? 0 : 1;
$nom_fr = getLabel($nom[$i+22]);
$section_name = $nom_fr;
include 'inc/members.inc';
if ($section_access) {

       $dbw           = ReadDBFields(DBFORUMCAT);
        $dbwork        = array();
        foreach ($dbw as $db) if (isForumAccessGranted($db[0]) && 'on' == $db[5]) $dbwork[] = $db;
        $dbworkcat = ReadDBFields(DBFORUM);
        for ($i = 0; $i < count($dbwork); $i++) {
            $prcat = explode(',', $dbwork[$i][0]);
            $dbwork[$i][0] = $prcat[0];
            $dbcat0 = $dbwork[$i][3];
            $dbcat1 = $dbwork[$i][4];
            $dbwork[$i][3] = 0;
            $dbwork[$i][4] = 0;
            $dbwork[$i] = array_pad($dbwork[$i] , 15, '');
            $dbwork[$i][14] = $dbcat0;
            $dbwork[$i][15] = $dbcat1;
            for ($j = 0; $j < count($dbworkcat); $j++) {
                $frcat = explode(',', $dbworkcat[$j][12]);
                $cat   = $frcat[0];
                $grp   = isset($frcat[1]) ? $frcat[1] : '';
                if ($cat == $dbwork[$i][0] && isForumAccessGranted($cat)) {
                    $dbwork[$i][3]++;
                    $dbwork[$i][4] = $dbwork[$i][4] + $dbworkcat[$j][7] + 1;
                    if (empty($dbwork[$i][6])) { 
                        if (!empty($dbworkcat[$j][8])) {
                            $dbwork[$i][6] = $dbworkcat[$j][8]; 
                            if ($dbworkcat[$j][11] != 'on') 
                                $dbwork[$i][7] = $dbworkcat[$j][9]; 
                            else 
                                $dbwork[$i][7] = ''; 
                            $dbwork[$i][8] = $dbworkcat[$j][0]; 
                        } 
                        else {
                            $dbwork[$i][6] = $dbworkcat[$j][3]; 
                            if ($dbworkcat[$j][10] != 'on') 
                                $dbwork[$i][7] = $dbworkcat[$j][4]; 
                            else 
                                $dbwork[$i][7] = ''; 
                            $dbwork[$i][8] = $dbworkcat[$j][0]; 
                        }
                        $dbwork[$i][9]  = $dbworkcat[$j][1]; 
                        $dbwork[$i][10] = $dbworkcat[$j][7]; 
                        $dbwork[$i][11] = ceil($dbworkcat[$j][7] / $serviz[20]); 
                        $dbwork[$i][12] = $dbworkcat[$j][2]; 
                        $dbwork[$i][13] = $dbworkcat[$j][12];
                    }
                }
            }
        }
        unset($dbworkcat);
        $dbwork    = array_values($dbwork);

    $topmess = $nom_fr;
    include 'inc/hpalm.inc';
    echo '
<div style="text-align:center"><b>'.$nom_fr.'</b></div>
<hr />';
    if (!empty($dbwork)) {
		foreach ($dbwork as $dbw) {
			if (!isForumAccessGranted($dbw[0])) continue;
			echo '
<a href="forum.php?lng='.$lng.'&amp;cat='.getForumcatId($dbw[0]).'"><b>'.$dbw[1].'</b></a>
<br />&nbsp;&nbsp;'.$web[131].' : '.$dbw[3].'
<br />&nbsp;&nbsp;'.$web[132].' : '.$dbw[4].'
<br />&nbsp;&nbsp;'.$web[133].' : ';
			if (!empty($dbw[5])) {
				echo '
'.$web[6].' <b>'.$dbw[6].'</b> ';
			}

			if (!empty($dbw[8])) {
				echo '
'.$web[7].' '.FormatDate($dbw[8]);
			}
			echo '
<br />';
        }
    }

    include 'inc/bpalm.inc';
}
?>
forum.php
wget 'https://sme10.lists2.roe3.org/guppy/mobile/forum.php'
View Content
<?php
/*******************************************************************************
 *   Forum for Mobile
 *******************************************************************************
 *   GuppY PHP Script - version 6.0
 *   CeCILL Copyright (C) 2004-2023 by Laurent Duveau
 *   Initiated by Laurent Duveau and Nicolas Alves
 *   Web site = https://www.freeguppy.org/
 *   e-mail   = guppy@freeguppy.org
 *   V6 developed by Lud Bienaimé
 *      with the participation of the GuppY Team
 *******************************************************************************
 *   Latest Changes :
 * v6.00.11 (March 09, 2023) : correction $dbcat
 ******************************************************************************/

header('Pragma: no-cache');
define('CHEMIN', '../');
include CHEMIN.'inc/includes.inc';
if ($serviz[13] != 'on') {
    exit($web[143]);
}
$dbcat = ReadDBFields(DBFORUMCAT);
$okfr  = false;
if (!empty($dbcat)) 
{
	foreach ($dbcat as $cat) 
	{
		if (!isset($cat[5])) $cat[5] = '';
		if ($cat[5] == 'on') 
		{ 
			$okfr = true; break;
		}
	}
}
if (!$okfr) {
    exit($web[143]);
}

$section_index = 5;
$i = $lng == $lang[0] ? 0 : 1;
$nom_fr = getLabel($nom[$i+22]);
$section_name = $nom_fr;
include 'inc/members.inc';
if ($section_access) {

    $cat = import('cat');
	$catsauv = import('cat');

    if (!empty($pg)) {
        if (count(SelectDBForumByID(ReadDBFields(DBFORUM),$pg)) != 0) {
            $dbwork = SelectDBForumByID(ReadDBFields(DBFORUM),$pg);
        }
        else {
            $dbwork = array();
        }
    }
    elseif (!empty($cat)) {
        $dbwork = SelectDBForumByCat(ReadDBFields(DBFORUM),$cat);
    }
    else {
        $dbwork = ReadDBFields(DBFORUM);
    }

    if (!empty($cat)) {
        $dbworkcat = ReadDBFields(DBFORUMCAT);
        foreach ($dbworkcat as $dbw) {
            if ($dbw[0] == $cat) {
                if ($lng == $lang[0]) {
                    $topmess = getLabel($nom[22]);
                    if (!empty($dbw[1])) {
                        $topmess .= ' - '.$dbw[1];
                    }
                } else {
                    $topmess = getLabel($nom[23]);
                    if (!empty($dbw[2])) {
                        $topmess .= ' - '.$dbw[2];
                    }
                }
                break;
            }
        }
    }
    include 'inc/hpalm.inc';
    if (!empty($catxt)) {
        echo '
<div style="text-align:center"><b><a href="fortopic.php?lng='.$lng.'">'.$nom_fr.'</a> - '.$catxt.'</b></div>
<hr />';
    }
    else {
        echo '
<div style="text-align:center"><b><a href="fortopic.php?lng='.$lng.'">'.$nom_fr.'</a></b></div>
<hr />';
    }
    if (empty($id)) {
        $id = 1;
    }
    if (!empty($dbwork)) {
        for ($i = $serviz[17]*($id-1); $i < Min($serviz[17]*$id, count($dbwork)); $i++) {
            if ($serviz[34] == 'on') {
                $threadcounter = ReadDocCounter($dbwork[$i][2]);
            }
			if (!empty($cat))
			{
				ReadDoc($dbwork[$i][2]);
				$url = 'thread.php?lng='.$lng.'&amp;pg='.$dbwork[$i][2].'&amp;cat='.getForumcatId($catsauv).'&amp;fid='.$id;
			}
			else
				$url = 'thread.php?lng='.$lng.'&amp;pg='.$dbwork[$i][2].'&amp;fid='.$id;
            echo '
<a href="'.$url.'">'.$web[63].$dbwork[$i][1].'&nbsp;-&nbsp;<b>'.$dbwork[$i][5].'</b></a>
<br />
&nbsp;&nbsp;&nbsp;&nbsp;-&nbsp;'.$web[6].' <b>'.$dbwork[$i][3].'</b> '.$web[7].' '.FormatDate($creadate);
            if ($dbwork[$i][7] != 0) {
                $formail = '<b>'.$dbwork[$i][8].'</b>';
                if ($dbwork[$i][7] == 1) {
                    echo '
<br />
&nbsp;&nbsp;&nbsp;&nbsp;-&nbsp;'.$web[93].' '.$formail.' '.$web[94].' '.FormatDate($dbwork[$i][0]).')';
                }
                else {
                    echo '
<br />
&nbsp;&nbsp;&nbsp;&nbsp;-&nbsp;'.$dbwork[$i][7].' '.$web[66].' '.$formail.' '.$web[94].' '.FormatDate($dbwork[$i][0]).')';
                }
            }
            else {
                echo '
<br />
&nbsp;&nbsp;&nbsp;&nbsp;-&nbsp;'.$web[67];
            }
            if ($serviz[34] == "on") {
                if ($threadcounter <= 1) {
                    $txtcount = $web[188];
                }
                else {
                    $txtcount = $web[189];
                }
                echo '
<br />
&nbsp;&nbsp;&nbsp;&nbsp;-&nbsp;'.$web[217].' '.$threadcounter.' '.$txtcount;
            }
            echo '
<br />';
            if ($i < Min($serviz[17]*$id, count($dbwork))-1) {
                echo '
<hr />';
            }
        }
    }
    if (count($dbwork)>$serviz[17]) {
        echo '
<hr />';
        if (count($dbwork)>$serviz[17]) {
            echo '
<hr />'.GetNavBar(($site['URLR'] == 'on'? $lng.'-'.$urlrw[5].'-21-': 'forum.php?lng='.$lng.'&amp;id='), count($dbwork), $id, $serviz[17]);
            }
        echo '
<div style="text-align:center">
  <a href="fortopic.php?lng='.$lng.'">'.$web[134].'</a>
</div>';
    }
    include 'inc/bpalm.inc';
}
?>
guestbk.php
wget 'https://sme10.lists2.roe3.org/guppy/mobile/guestbk.php'
View Content
<?php
/*******************************************************************************
 *   Guestbook for Mobile
 *******************************************************************************
 *   GuppY PHP Script - version 6.0
 *   CeCILL Copyright (C) 2004-2022 by Laurent Duveau
 *   Initiated by Laurent Duveau and Nicolas Alves
 *   Web site = https://www.freeguppy.org/
 *   e-mail   = guppy@freeguppy.org
 *   V6 developed by Lud Bienaimé
 *      with the participation of the GuppY Team
 *******************************************************************************
 *   Latest Changes :
 * v6.00.07 (February 24, 2022) : correction script
 ******************************************************************************/

header('Pragma: no-cache');
define('CHEMIN', '../');
include CHEMIN.'inc/includes.inc';

if ($serviz[12] != 'on') {
    exit($web[143]);
}

$section_index = 12;
$i = $lng == $lang[0] ? 0 : 10;
$nom_gb = getLabel($nom[$i+3]);
$section_name = $nom_gb;
include 'inc/members.inc';
if ($section_access) {

    $dbwork = SelectDBFields(TYP_GUESTBK,'a','');
    @rsort($dbwork);

    $topmess = $nom_gb;
    include 'inc/hpalm.inc';
    echo '
<div style="text-align:center;"><b>'.$nom_gb.'</b></div>
<hr />';
    if (empty($id)) {
    $id = 1;
    }
    if (!empty($dbwork)) {
        for ($i = $serviz[7]*($id-1); $i < Min($serviz[7]*$id, count($dbwork)); $i++) {
            ReadDoc($dbwork[$i][1]);
            echo '
<b>'.$web[39].$fielda1.'</b>&nbsp;'.$web[6].'
<b>'.$author.'</b>'.$web[7].' '.FormatDate($creadate).'
<br />&nbsp;&nbsp;&nbsp;&nbsp;
<i class="fas fa-globe-europe align-middle"></i>&nbsp;&nbsp;
<a href="'.$fieldb1.'" target="_blank" title="">'.$fieldb1.'</a>
<br /><br />
'.PathToImage($fieldc1).'<br />';
            if ($i < Min($serviz[7]*$id, count($dbwork))-1) {
                echo '
<hr />';
            }
        }
    }
    if (count($dbwork) > $serviz[7]) {
        echo '
<hr />
'.GetNavBar('guestbk.php?lng='.$lng.'&amp;id=', count($dbwork), $id, $serviz[7]);
    }
    include 'inc/bpalm.inc';
}
?>
links.php
wget 'https://sme10.lists2.roe3.org/guppy/mobile/links.php'
View Content
<?php
/*******************************************************************************
 *   Links for Mobile
 *******************************************************************************
 *   GuppY PHP Script - version 6.0
 *   CeCILL Copyright (C) 2004-2022 by Laurent Duveau
 *   Initiated by Laurent Duveau and Nicolas Alves
 *   Web site = https://www.freeguppy.org/
 *   e-mail   = guppy@freeguppy.org
 *   V6 developed by Lud Bienaimé
 *      with the participation of the GuppY Team
 *******************************************************************************
 *   Latest Changes :
 * v6.00.07 (February 24, 2022) : correction script
 ******************************************************************************/

header('Pragma: no-cache');
define('CHEMIN', '../');
include CHEMIN.'inc/includes.inc';

if ($serviz[11] != 'on') {
    exit($web[143]);
}

$section_index = 3;
$i = $lng == $lang[0] ? 0 : 10;
$nom_ln = getLabel($nom[$i+3]);
$section_name = $nom_ln;
include 'inc/members.inc';
if ($section_access) {

    $dbwork = ReadDBFields(DBLINKS);
    @sort($dbwork);
    $topmess = $nom_ln;
    include 'inc/hpalm.inc';
    echo '
<div style="text-align:center"><b>'.$nom_ln.'</b></div>
<hr />
'.$web[38];
    if (empty($id)) {
      $id = 1;
    }
    if (!empty($dbwork)) {
        echo '
<br />
<ul>';
        $rubr = '';
        for ($i = $serviz[5]*($id-1); $i < Min($serviz[5]*$id, count($dbwork)); $i++) {
            ReadDoc($dbwork[$i][4]);
			if (!isAccessGranted($fieldmod) || !isAuthorizedPublication($creadate)) continue;
            if ($lng == $lang[0]) {
                if ($rubr <> $fielda1) {
                    $rubr = $fielda1;
                    if (trim($rubr) != '') {
                        echo '
  <li><b>'.$rubr.'</b><br /><br />';
                    }
                }
                $txt1 = $fieldb1;
                $txt2 = $fieldd1;
                $txt3 = PathToImage($fieldc1);
            }
            else {
            if ($rubr <> $fielda2) {
                $rubr = $fielda2;
                if (trim($rubr) != '') {
                    echo '
  <li><b>'.$rubr.'</b><br /><br />';
                }
            }
            $txt1 = $fieldb2;
            $txt2 = $fieldd2;
            $txt3 = PathToImage($fieldc2);
            }
            echo '
    <i class="fas fa-external-link-alt align-middle"></i>&nbsp;&nbsp;&nbsp;
    <b><a href="'.$txt2.'" target="_blank">'.$txt1.'</a></b><br />
    '.$txt3.'<br /><br />';
        }
        echo '
</ul>';
    }
    if (count($dbwork)>$serviz[5]) {
        echo '
<hr />
'.GetNavBar('links.php?lng='.$lng.'&amp;id=', count($dbwork), $id, $serviz[5]);
    }
    include 'inc/bpalm.inc';
}
?>
news.php
wget 'https://sme10.lists2.roe3.org/guppy/mobile/news.php'
View Content
<?php
/*******************************************************************************
 *   News for mobile
 *******************************************************************************
 *   GuppY PHP Script - version 6.0
 *   CeCILL Copyright (C) 2004-2022 by Laurent Duveau
 *   Initiated by Laurent Duveau and Nicolas Alves
 *   Web site = https://www.freeguppy.org/
 *   e-mail   = guppy@freeguppy.org
 *   V6 developed by Lud Bienaimé
 *      with the participation of the GuppY Team
 *******************************************************************************
 *   Latest Changes :
 * v6.00.07 (February 24, 2022) : correction script
 ******************************************************************************/

header('Pragma: no-cache');
define('CHEMIN', '../');
include CHEMIN.'inc/includes.inc';

if ($serviz[8] != 'on') {
  exit($web[143]);
}

$section_index = 13;
$i = $lng == $lang[0] ? 0 : 10;
$nom_ne = getLabel($nom[$i+7]);
$section_name = $nom_ne;
include 'inc/members.inc';
if ($section_access) {

    include 'inc/hpalm.inc';

    $dbw = SelectDBFields(TYP_NEWS, 'a', '');
    @rsort($dbw);
    if (empty($id)) {
      $id = 1;
    }
    $minnews = $serviz[2];
    $maxnews = Min($serviz[2]*$id,count($dbw));
    echo '
<div style="text-align:center"><b>'.$nom_ne.'</b></div>
<hr />';
    if (!empty($dbw)) {
        for ($i = $minnews*($id-1); $i < $maxnews; $i++) {
            ReadDoc($dbw[$i][1]);
			if (!isAccessGranted($fieldmod) || !isAuthorizedPublication($creadate)) continue;
            $hr = '
<hr />';
            if ($i == $maxnews-1) {
                $hr = '';
            }
            if ($lng == $lang[0]) {
                $txt1 = $fieldb1;
                $txt2 = PathToImage($fieldc1);
            }
            else {
                $txt1 = $fieldb2;
                $txt2 = PathToImage($fieldc2);
            }
            echo '
<b>'.$txt1.'</b> - '.$web[6].' <b>'.$author.'</b> '.$web[7].' '.FormatDate($creadate).'
<br />
<br />
    '.$txt2.$hr;
        }
    }
    if (count($dbw) > $minnews) {
        echo '
<hr />
'.GetNavBar('news.php?lng='.$lng.'&amp;id=', count($dbw), $id, $minnews);
    }
    include 'inc/bpalm.inc';
}
?>
thread.php
wget 'https://sme10.lists2.roe3.org/guppy/mobile/thread.php'
View Content
<?php
/*******************************************************************************
 *   Forum Thread for Mobile
 *******************************************************************************
 *   GuppY PHP Script - version 6.0
 *   CeCILL Copyright (C) 2004-2023 by Laurent Duveau
 *   Initiated by Laurent Duveau and Nicolas Alves
 *   Web site = https://www.freeguppy.org/
 *   e-mail   = guppy@freeguppy.org
 *   V6 developed by Lud Bienaimé
 *      with the participation of the GuppY Team
 *******************************************************************************
 *   Latest Changes :
 * v6.00.15 (November 29, 2023) : Correction illegal variable
 ******************************************************************************/

header('Pragma: no-cache');
define('CHEMIN', '../');
include CHEMIN.'inc/includes.inc';
if ($serviz[13] != 'on') {
    exit($web[143]);
}
$topmess = '';
$dbcat = ReadDBFields(DBFORUMCAT);
$okfr  = false;
    if (!empty($dbcat)) 
	{
		foreach ($dbcat as $cat) 
		{
			if (!isset($cat[5])) $cat[5] = '';
			if ($cat[5] == 'on') 
			{ 
				$okfr = true; break;
			}
		}
	}
if (!$okfr) {
    exit($web[143]);
}

$section_index = 5;
$i = $lng == $lang[0] ? 0 : 1;
$nom_frth = getLabel($nom[$i+22]);
$section_name = $nom_frth;
include 'inc/members.inc';
if ($section_access) {
    $thrd = import('thrd');
    $cat  = import('cat');
	$catsauv  = import('cat');
    $fid  = import('fid');

    $thread = 0;
    if (!empty($pg)) {
        $dbwork = SelectDBForumByID(ReadDBFields(DBFORUM),$pg);
        if (count($dbwork) != 0) {
            $thread = $dbwork[0][1];
        }
    }
    elseif (!empty($thrd)) {
        $dbwork = ReadDBFields(DBTHREAD);
        foreach ($dbwork as $dbw) {
            if ($dbw[1] == $thrd && $dbw[2] == '0') {
                $thread = $thrd;
                $pg = $dbw[3];
            }
        }
    }
    if ($serviz[34] == 'on') {
        $threadcounter = UpdateDocCounter($pg);
    }
    $dbthrd = SelectDBThreadByThread(ReadDBFields(DBTHREAD),$thread);
    @sort($dbthrd);

    if (!empty($cat)) {
        $catxt = getForumCatName($cat);
        $topmess = '<a href="fortopic.php?lng='.$lng.'">'.$nom_frth.'</a> - 
		<a href="forum.php?lng='.$lng.'&amp;id='.$fid.'&amp;cat='.getForumcatId($cat).'">'.$catxt.'</a> - ';
    }
    ReadDoc($pg);
    $topmess .= $web[63].$fielda1;
    include 'inc/hpalm.inc';
    if (!empty($catxt)) {
        echo '
<div style="text-align:center">
  <b><a href="fortopic.php?lng='.$lng.'">'.$nom_frth.'</a> - 
  <a href="forum.php?lng='.$lng.'&amp;cat='.getForumcatId($catsauv).'&amp;id='.$fid.'">'.$catxt.'</a> - '.$web[63].$fielda1.'</b>
</div>
<hr />';
    } else {
        echo '
<div style="text-align:center">
  <b><a href="fortopic.php?lng='.$lng.'">'.$nom_frth.'</a> - '.$web[63].$fielda1.'</b>
</div>
<hr />';
    }
    echo '
<b>'.$web[63].$fielda1.' </b> -&nbsp;
<b>'.$fieldb1.'</b>
<br />&nbsp; &nbsp; -&nbsp;'.$web[6].' <b>'.$author.'</b> '.$web[7].' '.FormatDate($creadate).'
<br />
<br />'.PathToImage($fieldc1).'
<br />
<hr />';
    if (empty($id)) {
        $id = 1;
    }
    if (!empty($dbthrd)) {
        for ($i = $serviz[20]*($id-1); $i < Min($serviz[20]*$id, count($dbthrd)); $i++) {
            ReadDoc($dbthrd[$i][3]);
            echo '
'.$web[68].$fielda2.'
<br />&nbsp; &nbsp; -&nbsp;'.$web[6].' <b>'.$author.'</b> '.$web[7].' '.FormatDate($creadate).'
<br />
<br />'.PathToImage($fieldc1).'
<br />
<hr />';
        }
    }
    if (count($dbthrd)>$serviz[20]) {
        echo '
'.GetNavBar(($site['URLR'] == 'on'? $lng.'-'.$urlrw[5].'-502'.getForumcatId($catsauv).$pg.'-': 'thread.php?lng='.$lng.'&amp;cat='.getForumcatId($catsauv).'&amp;pg='.$pg.'&amp;id='), count($dbthrd), $id, $serviz[20]);
    }
    echo '
<div style="text-align:center">';
	if (!empty($catsauv))
		echo '
  <a href="forum.php?lng='.$lng.'&amp;cat='.getForumcatId($catsauv).'&amp;id='.$fid.'">'.$web[70].'</a>';
	else
		echo '
  <a href="forum.php?lng='.$lng.'&amp;id='.$fid.'">'.$web[70].'</a>';
	echo '
</div>';
    include 'inc/bpalm.inc';
}
?>