https://slinkov.ru/openforum/vsluhforumID1/84478.html Всем привет. Есть ап скрипт. <br><br>#!/usr/bin/perl<br><br>use DBI;<br>$authname=$ARGV[5];<br>$dbh = DBI-&gt;connect("DBI:mysql:bill","user",'pass');<br>$sth=$dbh-&gt;prepare("SELECT * FROM users WHERE name='$authname'");<br>$sth-&gt;execute;<br>$p=$sth-&gt;fetchrow_hashref;<br>$ip=$p-&gt;{'ip'};<br>$ipp=$ARGV[4];<br>$state=$p-&gt;{'state'};<br>$balance=$p-&gt;{'balance'};<br>$paket=$p-&gt;{'paket'};<br><br>$sth2=$dbh-&gt;prepare("SELECT * FROM plans2 WHERE id='$paket'");<br>$sth2-&gt;execute;<br>if ( $p2=$sth2-&gt;fetchrow_hashref )<br>{<br> $price=$p2-&gt;{'price'};<br><br> if ( $balance &lt; 0 )<br> {<br> exit 1;<br> }<br><br> if ( $balance-$price &lt; 0 )<br> {<br> exit 1;<br> }<br><br> if ( $state eq 'off' )<br> {<br> exit 1;<br> }<br><br>system("/sbin/ipfw -q table 10 add $ipp");<br>system("/sbin/ipfw -q table 11 add $ipp 1");<br>system("/sbin/ipfw -q table 12 add $ipp 2");<br>}<br>exit 0;<br><br>Конфиг mpd5 <br>startup:<br> # configure mpd users<br> set user admin pppoe<br># set user foo1 bar1<br> https://slinkov.ru/openforum/vsluhforumID1/84478.html#1 Sat, 14 Mar 2009 11:32:25 GMT Если не добавил обработку ошибок и логирование(хотя бы для отладки), то ССЗБ.<br>