1;

#Процедуры для работы с пунктами меню "Подтверждение подписки" 
# и "Подтверждение отказа" в администраторской части
#Этот модуль позволяет вносить текст письма-подтверждения, которое будет посылаться
# клиенту после успешного завершения подписки, либо после отказа от подписки 

#Формат файла settings.db
#1-я строка - все настройки, разделенные \x01
#2-я строка - текст письма-подтверждения подписки 
#  (в форматах txt/html, тексты разделены \x01, перевод строки заменен на \x02 
#3-я строка - текст письма, посылаемого после отказа от подписки 
#  (в форматах txt/html, тексты разделены \x01, перевод строки заменен на \x02
#4-я строка - html-код формы для подписки/отписки
#5-я строка - html-код страницы для выдачи клиенту результатов подписки
 


#Чтение настроек (читаем 2-ю или 3-ю строки, в зависимости от параметра $lettertype)
#$lettertype=1 - подтверждение подписки, $lettertype=2 - подтверждение отказа от подписки
sub read_settings {
my $lettertype=shift;
open CONF, "<$setupfile"; my $line=<CONF>; $line=<CONF>; 
$line=<CONF> if ($lettertype==2);
close(CONF); chomp($line); 
$line=~ s/\x02/\n/g;
($txt, $html) = split (/\x01/, $line);
}

#Запись настроек
#$lettertype=1 - подтверждение подписки, $lettertype=2 - подтверждение отказа от подписки
sub save_settings {
 my $lettertype=shift;
open CONF, "<$setupfile"; my @allset=<CONF>; close(CONF); 
$in{'html'}=~ s/<meta([\w, \s, \", \=, \n]+)\>//ig;
my $line=join ("\x01", $in{'txt'}, $in{'html'});
$line=~ s/\n/\x02/g;
$allset[$lettertype]="$line\n";
open CONF, ">$setupfile"; flock CONF, LOCK_EX; 
print CONF @allset; 
close(CONF);
&put_message("Текст сохранен!");
}

# Вывод на экран настроек
sub put_settings {
my $lettertype=shift;
my $numbtn=201+100*$lettertype; #Это параметр для кнопки "Сохранить"
&read_settings($lettertype);

print qq(
<table width="600" border="0" cellspacing="0" cellpadding="0" bgcolor=black ><tr><td>
<table width="600" border="0" cellspacing="1" cellpadding="1">
<tr><th bgcolor=#FEF0CD align=center><font size="-1" face="Verdana, Arial"><b>Текст письма, которое получит клиент после 
);
print "отказа от " if ($lettertype==2); 
print qq(
подписки</b><br><font size=-2>Допускается вставка псевдотегов [email], [charset] и [mode]</font></font></th></tr>
<tr><td bgcolor=#F9F1D7 align=left><font size="-1" face="Verdana, Arial">Формат "ТЕКСТ"</td></tr>
<tr><td bgcolor=#FFFFFF align=left>
<textarea rows=8 cols=71 wrap=off name="txt" class=ta>$txt</textarea>
</td></tr>

<tr><td bgcolor=#F9F1D7 align=left><font size="-1" face="Verdana, Arial">Формат "HTML"</td></tr>
<tr><td bgcolor=#FFFFFF align=left>
<textarea rows=8 cols=71 wrap=off name="html" class=ta>$html</textarea>
</td></tr>

<tr><td  bgcolor=#F9F1D7 align=right>
<INPUT TYPE="button" VALUE="Сохранить >>" onClick="presubmit($numbtn)" $buttonstyle>
</td>

</table></td></tr></table>
);
}


1;