#!/usr/bin/perl
##use strict;

##use HSPC::Application;
##use HSPC::Localization;
##use HSPC::MT::Core::Installer;
##use HSPC::MT::EV::Installer;
##use HSPC::WebDB;
##use HSPC::WebErrors;

##new HSPC::Application;

##my $mode = $ARGV[0];
##my $lang = $ARGV[1];


##unless (
##	($lang =~ /^[a-z]{2,2}$/ &&  $mode eq 'remove') || $mode eq 'install'
##) {
##	print "Usage: hspc-config-i18n-core [ install | remove ] lang\n\n";
##	exit 1;
##}


##if ( $mode eq 'install' ) {
##	HSPC::Localization::load_all_languages();
##	HSPC::MT::Core::Installer->install(echo=>1);
##	HSPC::MT::EV::Installer->install(echo=>1);
##} elsif ( $mode eq 'remove' ) {
##	my @pdirs = glob("/var/opt/hspc-event-manager/*");
##	foreach my $pdir ( @pdirs ) {
##		my @tmpls = glob("$pdir/*.tmpl");
##		foreach my $tmpl ( @tmpls ) {
##			local $/;
##			open(F,"$tmpl");
##			my $body = <F>;
##			close F;
##			open(F,">$tmpl");
##			$body =~ s/<lang_$lang>.*<\/lang_$lang>\n?//gs;
##			print F $body;
##			close F;
##		}
##	}
##	my $r = select_rows(
##		"SELECT action_setup_id,subject FROM ev_action_setup_sendmessage"
##	);
##	foreach my $rec ( @{$r} ) {
##		my $subject = $rec->[1];
##		my $id = $rec->[0];
##		$subject =~ s/<lang_$lang>.*<\/lang_$lang>\n?//gs;
##		select_run(
##			"UPDATE ev_action_setup_sendmessage SET subject = ? WHERE ".
##			"action_setup_id = ?",$subject,$id
##		);
##	}
##	HSPC::WebErrors->delete_error_documents($lang);
##}

exit 0;
