Подпрограмма чтения конфигурационного файла readconf — дополнение библиотеки _stdlib.pl
sub readconf
{
my $inline;
if(-e 'vote.conf')
{
open(CONF, 'vote.conf');
while($inline = <CONF>)
{
chomp($inline);
if($inline =~ /qst=/)
{
$inline =~ s/qst=//g;
$question = $inline;
}
if($inline =~ /var=/)
{
$inline =~ s/var=//g;
push(@vars, $inline)
}
if($inline =~ /maxlen=/)
{
$inline =~ s/maxlen=//g;
$maxlen = $inline;
}
}
close(CONF);
}
else
{
print "<p><span style=\"color: #f00; font-weight:
? bold\">Ошибка!</span> Не найден файл конфигурации.</p>\n";
&stop;
}
if($question eq '')
{
print "<p><span style=\"color: #f00; font-weight:
? bold\">Ошибка!</span> Не задан вопрос для голосования.</p>\n";
&stop;
}
$varqty = scalar(@vars);
if($varqty < 2)
{
print "<p><span style=\"color: #f00; font-weight:
? bold\">Ошибка!</span> Слишком мало вариантов ответа.</p>\n";
&stop;
}
$maxlen = 200 if($maxlen < 200);
$maxlen = 500 if($maxlen > 500);
}