#!/usr/bin/perl
#------------------------------------------------------------------------------
#    mwForum - Web-based discussion forum
#    Copyright (c) 1999-2015 Markus Wichitill
#
#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 3 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#------------------------------------------------------------------------------

use strict;
use warnings;
no warnings qw(uninitialized once);

# Imports
use Getopt::Std ();
use TyfMain;

#------------------------------------------------------------------------------

# Get arguments
my %opts = ();
Getopt::Std::getopts( 'sf:', \%opts );
my $spawned = $opts{s};
my $forumId = $opts{f};

# Init
my ( $m, $cfg, $lng ) = TyfMain->newShell(
    forumId => $forumId,
    spawned => $spawned,
    upgrade => 1
);
my $output = "";
$| = 1;
output("tyForum long-running script test running...\n");

# Simulate work
output("Pretending to do work that takes 20 minutes...\n");
for my $minute ( 1 .. 20 ) {
    output("Sleeping $minute...\n");
    sleep 60;
}

# Still alive?
output("Nice, the script wasn't interrupted.\n");
output("tyForum long-running script test done.\n");

# Log action
$m->dbDo( "
	INSERT INTO log (level, entity, action, logTime, string) VALUES (1, ?, ?, ?)",
    'spawn', 'test', $m->{now} );

#------------------------------------------------------------------------------
# Print and collect output

sub output {
    my $text = shift();

    print $text;
    $output .= $text;
    $m->dbDo( "
		DELETE FROM variables WHERE name = ?", 'upgOutput' );
    $m->dbDo( "
		INSERT INTO variables (name, value) VALUES (?, ?)", 'upgOutput', $output );
}