#!/usr/local/bin/perl
# Version: 0.5

use strict;
use CGI;
use DBI;
use URI::Escape;
use Kagora::Util;
use Kagora::Site;
use Kagora::Skin;
use Kagora::Messages;

my $dbh = &Kagora::Util::connectdb() or &Kagora::Util::db_error();
my $q = new CGI;
my $skin = $q->param('skin')
  or &Kagora::Util::error($Kagora::Messages::no_skin);
my $select = $dbh->prepare( qq/SELECT id,topic FROM Forums WHERE skin=?/ );
$select->execute($skin) or &Kagora::Util::db_error();
my $there_are = 0;
while (my $row = $select->fetch()) {
  $there_are = 1;
  &Kagora::Skin::copy_templates(
    $row->[0], $skin, &Kagora::Util::quote_text($row->[1],0)
  );
}
my $ok_message = $there_are
  ? $Kagora::Messages::skinfiles_regenerated
  : $Kagora::Messages::no_forum_for_skin;
$ok_message =~ s/#/$skin/;
print $q->redirect(
  'http://'.$ENV{'HTTP_HOST'}.$Kagora::Site::KagoraAdminURL.
  '/listforums.cgi?message='.&uri_escape($ok_message,'^a-zA-Z0-9_')
);

END { $dbh->disconnect() if $dbh; }