use strict;
use vars qw(%conf);

$conf{log_dir}     = "$SYSTEM_CONF{'SITE-DIR'}/logs";
$conf{site_active} = $SYSTEM_CONF{'OPERATING-SYSTEM'} =~ /win|dos|nt/i ? "perl $SYSTEM_CONF{'CGI-DIR'}/site_active.pl" : "$SYSTEM_CONF{'CGI-DIR'}/site_active.pl";


sub new {
        my ($class, %params) = @_;
        my $self = \%params;
        bless $self, $class;
}

sub init {
        [
                {       'FUNCTION'      => 'data_news',
                        'MAX_RUNTIME'   => 120,
                        'EXEC_TIME'     => 0,
                        'PRIORITY'      => 25
                }
        ]
}
sub data_news {
        my ($self, $container, $log) = @_;
        return 1 unless ref $container->{msgs}; # no messages
        my @Jobs;
        for my $url (@{$container->{msgs}}) {
                $url =~ /^(\/.+)\/([^\/]+)$/i;
                my $directory = $1;
                my $filename = $2;
                my $country_code;
                if ($directory =~ m:/data/about/news/pr/([a-z]+)/article:) {
            $country_code = $1;
        } else {
            $country_code = 'special';
        }
                next unless ($directory =~ m:/data/about/news/pr/$country_code/article: || $directory =~ m:/special/about/news/pr/article:);

        my $job = "TEMPLATE=/siteactive/data/templates/template_data_news_snippet.htms:SAVEPAGE=/data/news/ssi/news_$country_code.ssi:country_code=$country_code";

                push(@Jobs,$job);
                        
        }

        for my $job (@Jobs) {
                $log->("$SYSTEM_CONF{'OPERATING-SYSTEM'} MODE: $conf{site_active} $job");
                system "$conf{site_active} $job >$conf{log_dir}/SiteActive.lastrun";
        }
        return 1;
}
1;