#!/usr/bin/perl system("/usr/local/bin/iget-quote -m NASDAQ -i ^RUT | grep RUT > /home/divine/genback/qt.txt"); open SQ,"/home/divine/genback/qt.txt"; while(){ s|".+?",(.+?),"(.+?)","(.+?)",(.+?),(.+?),(.+?),(.+?),(.+?),.*|$1$2$3$4$5$6$7$8|; $last=$1; $date=$2; $time=$3; $change=$4; $prev=$5; $dhigh=$6; $dlow=$7; $vol=$8; } $comp="RUT ".$last." ".$change; system("/usr/local/bin/iget-quote -m NASDAQ -i ^DJI | grep DJI > /home/divine/genback/qt.txt"); open SQ,"/home/divine/genback/qt.txt"; while(){ s|".+?",(.+?),"(.+?)","(.+?)",(.+?),(.+?),(.+?),(.+?),(.+?),.*|$1$2$3$4$5$6$7$8|; $last=$1; $date=$2; $time=$3; $change=$4; $prev=$5; $dhigh=$6; $dlow=$7; $vol=$8; } $comp=$comp."\nDJI ".$last." ".$change; system("/usr/local/bin/iget-quote -m NASDAQ -i ^IXIC | grep IXIC > /home/divine/genback/qt.txt"); open SQ,"/home/divine/genback/qt.txt"; while(){ s|".+?",(.+?),"(.+?)","(.+?)",(.+?),(.+?),(.+?),(.+?),(.+?),.*|$1$2$3$4$5$6$7$8|; $last=$1; $date=$2; $time=$3; $change=$4; $prev=$5; $dhigh=$6; $dlow=$7; $vol=$8; } $comp=$comp."\nIXIC ".$last." ".$change; system("/usr/local/bin/iget-quote -m NASDAQ -i CGZT.OB | grep CGZT > /home/divine/genback/qt.txt"); open SQ,"/home/divine/genback/qt.txt"; while(){ s|".+?",(.+?),"(.+?)","(.+?)",(.+?),(.+?),(.+?),(.+?),(.+?),.*|$1$2$3$4$5$6$7$8|; $last=$1; $date=$2; $time=$3; $change=$4; $prev=$5; $dhigh=$6; $dlow=$7; $vol=$8; } $comp=$comp."\nCGZT ".$last." ".$change." ".$vol; system("/usr/X11R6/bin/xearth -bigstars 10 -ppm -size 1152,864 > /home/divine/genback/earth.ppm"); system ("/usr/X11R6/bin/convert -display 0:0 -font -adobe-courier-bold-r-normal--20-*-*-*-*-*-iso8859-1 -fill white -draw \"text 3,10 '$comp' \" /home/divine/genback/earth.ppm /home/divine/genback/comp.ppm"); system ("/usr/local/bin/Esetroot -c /home/divine/genback/comp.ppm");