Auto-delete 1 week

LibreSens

I want a free space for my users where they will be able to discuss about any subject, where they are allowed to troll, laugh...
This will help create a community and friendship.
But of course the information will be of poor value (if not they should post elsewhere), therefore I want all the posts to be automatically deleted after oneweek.

(Of course if the first message started 6d23h59 before, and the last message is 2mn before, deleting the fist message should not delete the last one. But I think flarum does not delete all the messages if we delete the first one; I am not sure)

LibreSens

Chat GPT suggested the following actions, but I do not know if it should work:

Access your Flarum installation.
Locate the directory where your Flarum installation is stored on your server.
Find the "extensions" directory within the Flarum installation directory.
Create a new directory inside the "extensions" directory and name it "autodelete".
Inside the "autodelete" directory, create a new file named "extend.php".
Open the "extend.php" file with a code editor and add the following code:

<?php
use Flarum\Event\ConfigurePost;
use Flarum\Event\ConfigureModelDates;
use Illuminate\Contracts\Events\Dispatcher;

return function (Dispatcher $events) {
    $events->listen(ConfigurePost::class, function (ConfigurePost $event) {
        // Retrieve the first post of the discussion
        $discussion = $event->post->discussion;
        $firstPost = $discussion->firstPost;

        // Check if the post is the first post of the discussion
        if ($event->post->id === $firstPost->id) {
            // Set the deletion date for subsequent posts
            $event->post->bindEvent(ConfigureModelDates::class, function (ConfigureModelDates $event) {
                $event->attributes['delete_at'] = $event->time->copy()->addDays(7);
            });
        }
    });
};

Save the "extend.php" file.
Go back to your Flarum installation and refresh the page.

clarkwinkelmann

LibreSens ChatGPT seems to be only aware of an extremely old version of Flarum. That code would not work on Flarum stable.

The actual logic also seems flawed, it seems like many concepts were merged together and none of that would work. delete_at never was a thing, and nesting event listener declarations would result in some extremely odd behavior.

If you have a dedicated tag for those discussions, you could write a script in any language you want and use the Flarum REST API to access the list of (not) recent posts and delete them.

You could also create a Flarum extension, and have it scan the database on a scheduled command then delete posts using the PHP extension API or the internal REST API client.

LibreSens

Thanks!

I will try this:
To schedule a query that delete the posts in database according to their date-time "created_at"
May be I should also delete the discussion when it is empty

I will tell you if it works 🙂

LibreSens

I used this code, where 12,13,14 are the tag_id for which I want the autodelete.
I also added a discussion cleaning if no more posts are linked to it

<?php
// Chemin vers le fichier de log
$logFile = '/var/www/html/xxxx/forum/flarum/script/autodelete.log';

// Connexion à la base de données MySQL
$servername = "localhost";
$username = "xxxx";
$password = "xxxx";
$dbname = "xxxx";

$conn = new mysqli($servername, $username, $password, $dbname);

// Vérifier la connexion
if ($conn->connect_error) {
    error_log('Connexion échouée: ' . $conn->connect_error, 3, $logFile);
    die("Connexion échouée: " . $conn->connect_error);
}


// Supprimer les messages ont plus de 24 heures dans 12
$sqlA = "DELETE FROM Fl_posts WHERE discussion_id in (select discussion_id  from Fl_discussion_tag where tag_id=12) and created_at< DATE_SUB(NOW(), INTERVAL 24 HOUR);";
$resultA = $conn->query($sqlA);
if ($resultA === false) {
    error_log('Erreur lors de la suppression des posts 1j: ' . $conn->error, 3, $logFile);
}

// Supprimer les messages ont plus d'une semaine dans 13
$sqlB = "DELETE FROM Fl_posts WHERE discussion_id in (select discussion_id  from Fl_discussion_tag where tag_id=13) and created_at< DATE_SUB(NOW(), INTERVAL 1 WEEK);";
$resultB = $conn->query($sqlB);
if ($resultB === false) {
    error_log('Erreur lors de la suppression des posts 1s: ' . $conn->error, 3, $logFile);
}

// Supprimer les messages ont plus d'un mois dans 14
$sqlC = "DELETE FROM Fl_posts WHERE discussion_id in (select discussion_id  from Fl_discussion_tag where tag_id=14) and created_at< DATE_SUB(NOW(), INTERVAL 1 MONTH);";
$resultC = $conn->query($sqlC);
if ($resultC === false) {
    error_log('Erreur lors de la suppression des posts 1m: ' . $conn->error, 3, $logFile);
}

// Supprimer les discussions qui n'ont plus de posts
$sqlD = "DELETE FROM Fl_discussions WHERE id NOT IN (SELECT DISTINCT discussion_id FROM Fl_posts);";
$resultD = $conn->query($sqlD);
if ($resultD === false) {
    error_log('Erreur lors de la suppression des discussions sans posts: ' . $conn->error, 3, $logFile);
}


if ($resultA === true || $resultB === true || $resultC === true|| $resultD === true) {
    echo "Autodelete des posts réussi";
} else {
    echo "Erreur lors de la suppression des messages. Consultez le fichier de log pour plus de détails.";
}

// Fermer la connexion à la base de données
$conn->close();
?>

zufusion

@LibreSens this code works fine?