[slack-ru] Re: Про позвонить.

  • From: Dimytch <aspamkiller@xxxxxxxxx>
  • To: slack-ru@xxxxxxxxxxxxx
  • Date: Tue, 7 Sep 2004 15:34:10 +0300

Здравствуйте.

Во-первых yawmppp (у меня windowmaker), но можно прицепить и на gkrellm или  на 
горячие клавиши.

Во-вторых для запуска пишем команду (%cat  ~/.yawmppp2/start.0) координаты - 
для моего разрешения экрана 1024x768

xterm -ls -geom 15x1+915+705 -class Dzvon -e '/home/dimytch/bin/позвонить.pl 
35'; rm -f /tmp/звонилка.флаг &

В-третих %cat  ~/GNUstep/Defaults/WMWindowAttributes 
...
 xterm.Dzvon = {
    NoResizebar = Yes;
    NoBorder = Yes;
    Icon = "gnome-info.png";
    NoTitlebar = Yes;
  }
...
;
И наконец:
% cat ~/bin/позвонить.pl
#!/usr/bin/perl
exit if(-e '/tmp/звонилка.флаг');
`touch /tmp/звонилка.флаг`;
$count=shift; # количество звонков
unless($count){ print "позвонить <количество звонков> \n"; exit; }
@number=('7483131', '7773131','7483131','7313131','7313131','7773131','7313131',
'7483131');
$ph=0;
print $count " звонков \n";
for($i=0;$i<$count;$i++){
        exit unless(-e '/tmp/звонилка.флаг');
        $ph=$ph>($#number-1)?0:$ph+1;
        print "\r$number[$ph]:".$i."      ";
        `pppd ttyS0 115200 call ukr.net connect '/usr/sbin/chat -v -f 
/etc/ppp/chat-ukr.net -T $number[$ph]'`;
if(-e '/var/run/ppp-ppp0.pid'){
                `/home/dimytch/bin/updatedns`;
                `fetchmail -d 300 2>>/tmp/log`;
                `/usr/bin/aplay -D hw:1,1 /opt/kde/share/sounds/KDE_Notify.wav >
 /dev/null 2>&1`;
                $pip=0;
                while(-e '/var/run/ppp-ppp0.pid'){ sleep 60; print "$pip++\r"; }
        }
}

print "\n";
unlink '/tmp/звонилка.флаг';
`/usr/bin/aplay -D hw:1,1 /opt/kde/share/sounds/KDE/KDE_Error.wav > /dev/null 2>
&1`;
$SIG{INT} = sub
{       unlink '/tmp/звонилка.флаг';
        CORE::exit;
};

Подробности скрипта в man pppd.

Димыч

Other related posts: