rm index.html
rm /root/scripty/akcie/kurs.txt
sleep 5
wget www.akcie.cz
sleep 5
echo C >> /root/scripty/akcie/kurs.txt grep -o ‘<ČEZ……td……………………..’ index.html | grep -o ‘[0-9]….,..’ >> /root/scripty/akcie/kurs.txt sleep 10 echo P >> /root/scripty/akcie/kurs.txt grep -o ‘PEGAS………………………………………..td.’ index.html | grep -o ‘[0-9]…..’ >> /root/scripty/akcie/kurs.txt echo Z >> /root/scripty/akcie/kurs.txt grep -o ‘ZENTIVA………………………….,’ index.html | grep -o ‘[0-9]….’ >> /root/scripty/akcie/kurs.txt #sendEmail -f xx@tiscali.cz -m -o message-file=/root/scripty/akcie/kurs.txt -t xx@tiscali.cz -u Akcie -s ISMTP.sbone.CZ sendEmail -f xx@tiscali.cz -m -o message-file=/root/scripty/akcie/kurs.txt -t xx@seznam.cz, -u Akcie -s ISMTP.SBONE.CZ #grep -o ‘……..’ index.html | grep -o ‘[0-9]…….’ #grep -o ‘BANKA……………………………………..’ index.html | grep -o ‘[0-9]…….’ #echo ECM >> /root/scripty/akcie/kurs.txt #grep -o ‘……..’ index.html | grep -o ‘[0-9]…….’ >> /root/scripty/akcie/kurs.txt #echo KB >> /root/scripty/akcie/kurs.txt #grep -o ‘KOMERČNÍ BANKA………………………….,..’ index.html | grep -o ‘[0-9]…….’ >> /root/scripty/akcie/kurs.txt
#!/usr/bin/perl
Reboot modemu v PERL u use Net::Telnet; # Create our Telnet object my $telnet = new Net::Telnet ( Timeout => 20, #Prompt => ‘/bash$ $/’ ); # Have our object connect to our remote server $telnet->open(“192.168.0.1″); # Login as myusername with mypassword $telnet->login(‘root’, ‘xxxxx’); my @lines = $telnet->cmd(‘reboot’); print join(”, @lines) . “n”; #$telnet->close;