Подпрограмма чтения конфигурационного файла 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);
}


© 2008-2018 ОптимизацияВебСайтов.ру


Любое использование текстового и графического контента сайта без активной ссылки на источник не доскается.