#!/usr/bin/perl -w

# Name     : Perl Stock Quote
# Author   : Terrence Ma
# Email    : terrence@terrence.com
# Web      : http://www.terrence.com
# Date     : V1.2 08/06/2002, V1.0 08/15/2000
# Modified : FreeStuff Online - http://fsonline.piff.de/stockmarket/

########################################################################
# Stock Quote Script by Mukul Sabharwal (mukulsabharwal@yahoo.com      #
# Summary : Connects to Yahoo! Finance (quote.yahoo.com) and retrieves #
# basic quotes & in this update (4-March-2000) the ability to view     #
# charts. I would appreciate if you add a link to my site.	       #
# This script is protected by copyright law (1997). I made this script #
# for personal use on 12th October 1997. I updated the script in 2000  #
# for it's compatability with NT and also making it a cgi program. Now #
# on (4-March-2000) I also added chart viewing facility.               #
########################################################################

use 5;
use strict;
use CGI::Pretty;
use CGI::Carp qw(fatalsToBrowser);
use Socket;
use FileHandle;
use Getopt::Std;

my $SERVER = 'quote.yahoo.com';
my $PORT = 80;
my $TIMEOUT = 15;

my $raw = 0;

my $ipaddr;
my $proto;

sub init {
    my @hostinfo;
    my @protoinfo;

    @hostinfo = gethostbyname($SERVER) or die "gethostbyname error: $!\n";
    @protoinfo = getprotobyname('tcp') or die "getprotobyname error: $!\n";

    $ipaddr = $hostinfo[4];
    $proto = $protoinfo[2];
}

sub get_result {
    my $inbody = 0;
    my @results;

    for (@_) {
	chomp;
	s/\s+$//;

	if ($inbody) {
	    push @results, $_;
	    next;
	}

	if (/^$/) {
	    $inbody = 1;
	    next;
	}
    }

    @results;

}

sub parse_csv {
    my $text = shift;
    my @fields = ();

    while ($text =~ m/"([^"\\]*(\\.[^"\\]*)*)",?|([^,]+),?|,/g) {
	push(@fields, defined($1) ? $1 : $3);
    }
    push(@fields, undef) if $text =~ m/,$/;

    @fields;
}

sub getquote {
    my $q = shift;
    my @securities = @_;
    my @text;

    my $there = pack('Sna4x8', AF_INET, $PORT, $ipaddr);

    my $ipstr = join('.', map { ord($_) } split('', $ipaddr));

    my $sock = new FileHandle;

    socket $sock, PF_INET, SOCK_STREAM, $proto or die "socket error: $!\n";
    connect $sock, $there or die "connect error: $!\n";

    $sock->autoflush(1);

    my $query = "/d/quotes.csv?s=" . join('+', @securities) . 
	"&f=sl1d1t1c1ohgv&e=.csv";
    
    print $sock <<EOM;
GET $query HTTP/1.1
Host: quote.yahoo.com
Accept: */*
User-Agent: quote.cgi

EOM

    @text = <$sock>;

    if ($raw) {

	print @text;
    }

    else {

	@text = get_result @text;

	my $tablestr;
	my $fontcolor = "#000000";

	for (@text) {
	    my @fields = parse_csv $_;

	    if ($fields[2] eq "N/A") {
		print $q->p, "No such ticker '$fields[0]'.<BR><BR>";
	    }
# check division by zero error
            elsif ($fields[1] == $fields[4]) {
                my $change = 0;
            }
	    else {
		my $change = sprintf "%.2f", 
		    (0 + $fields[4]) / ($fields[1] - (0 + $fields[4])) * 100;

 		print <<EOM;
<CENTER>

<table width="100%" border=1 cellspacing=0 cellpadding=0 BORDERCOLOR=BLACK>
  <tr> 
    <td valign=top colspan="2"> 
      <p> 
      <CENTER>
      <table border=0 bgcolor="#FFFFFF" cellspacing=0 cellpadding=0 width="100%">
        <tr>
          <td valign=top>
            <center>
              <table border=0 cellspacing=0 cellpadding=4 width="100%">
                <tr bgcolor="#0000FF"> 
                  <td> 
                    <p align="center"><font size="2" face="Verdana,Sans-Serif" color="#FFFFFF">
                      <b>Perl Stock Quote</b></font></p>
                  </td>
                </tr>
              </table>
              <table width="100%" border="0" cellspacing="0" cellpadding="3">
                <tr>
                  <td width="50%" ALIGN="RIGHT"><font face="Arial, Helvetica, sans-serif" size="2" color=$fontcolor>Ticker :</font></td>
                  <td width="50%"><font face="Arial, Helvetica, sans-serif" size="2" color=$fontcolor>$fields[0]</font></td>
                </tr>
                <tr>
                  <td width="50%" ALIGN="RIGHT"><font face="Arial, Helvetica, sans-serif" size="2" color=$fontcolor>Last 
                    Trade :</font></td>
                  <td width="50%"><font face="Arial, Helvetica, sans-serif" size="2" color=$fontcolor>$fields[1]</font></td>
                </tr>
                <tr> 
                  <td width="50%" ALIGN="RIGHT"><font face="Arial, Helvetica, sans-serif" size="2" color=$fontcolor>Last 
                    Trade At :</font></td>
                  <td width="50%"><font face="Arial, Helvetica, sans-serif" size="2" color=$fontcolor>$fields[2]
                    </font><font face="Arial, Helvetica, sans-serif" size="2" color=$fontcolor>$fields[3]
                    </font></td>
                </tr>
                <tr>
                  <td width="50%" ALIGN="RIGHT"><font face="Arial, Helvetica, sans-serif" size="2" color=$fontcolor>Change :</font></td>
                  <td width="50%"><font face="Arial, Helvetica, sans-serif" size="2" color=$fontcolor>$fields[4] 
                    (change%)</font></td>
                </tr>
                <tr>
                  <td width="50%" ALIGN="RIGHT"><font face="Arial, Helvetica, sans-serif" size="2" color=$fontcolor>Opened 
                    At :</font></td>
                  <td width="50%"><font face="Arial, Helvetica, sans-serif" size="2" color=$fontcolor>$fields[5]</font></td>
                </tr>
                <tr> 
                  <td width="50%" ALIGN="RIGHT"><font face="Arial, Helvetica, sans-serif" size="2" color=$fontcolor>Day 
                    Range :</font></td>
                  <td width="50%"><font face="Arial, Helvetica, sans-serif" size="2" color=$fontcolor>$fields[7] 
                    - $fields[6]</font></td>
                </tr>
                <tr>
                  <td width="50%" ALIGN="RIGHT"><font face="Arial, Helvetica, sans-serif" size="2" color=$fontcolor>Volume :</font></td>
                  <td width="50%"><font face="Arial, Helvetica, sans-serif" size="2" color=$fontcolor>$fields[8]</font><font color="#FFFFFF"></font></td>
                </tr>
              </table>
            </center>
          </td>
        </tr>
      </table>
      </CENTER>
    </td>
  </tr>
</table>
<br>

<center>
  <table width="100%" border="1" cellspacing="0" cellpadding="3" BORDERCOLOR="BLACK">
    <tr BGCOLOR="#0000FF">
      <td height="9" width="33%">
        <div align="center"><font face="Arial, Helvetica, sans-serif" size="2" COLOR="#FFFFFF"><b>Chart 
          : $fields[0]</b></font></div>
      </td>
      <td height="9" width="33%"> 
        <div align="center"><font size="2" face="Arial, Helvetica, sans-serif" COLOR="#FFFFFF"><b>Dow Jones Composite</b></font></div>
      </td>
      <td height="9" width="33%">
        <div align="center"><font size="2" face="Arial, Helvetica, sans-serif" COLOR="#FFFFFF"><b>Nasdaq Composite</b></font></div>
      </td>
    </tr>
    <tr>
      <td width="33%">
        <div align="center"><img src="http://ichart.yahoo.com/t?s=$fields[0]" alt="Chart for ticker : $fields[0]"></div>
      </td>
      <td width="33%"> 

        <div align="center"><img src="http://a204.g.akamai.net/f/204/451/5m/screal.quote.com:443/1002840552328?User=demo&Pswd=demo&DataType=GIF&days=1&Study=none&Param1=&Param2=&Param3=&LogScale=0&FontSize=9&titles=1&Grids=1&labels=1&display=17&Wd=214&Ht=120&Symbol=INDEX:INDU&Format=0" alt="Dow Jones"></div>

<!-- img src="http://a204.g.akamai.net/f/204/507/5m/charts-l.quote.com:443/GIF?User=demo&amp;Pswd=demo&amp;DataType=GIF&amp;Symbol=INDEX:COMPX&amp;Interval=D&amp;Wd=170&amp;Ht=120&amp;Display=17&amp;Study=None&amp;Param1=&amp;Param2=&amp;Param3=&amp;LogScale=&amp;FontSize=9&amp;Titles=1" width="170" height="120" -->

      </td>
      <td width="33%"> 

        <div align="center"><img src="http://a204.g.akamai.net/f/204/451/5m/screal.quote.com:443/1002840552328?User=demo&Pswd=demo&DataType=GIF&days=1&Study=none&Param1=&Param2=&Param3=&LogScale=0&FontSize=9&titles=1&Grids=1&labels=1&display=17&Wd=214&Ht=120&Symbol=INDEX:COMPX&Format=0" alt="Nasdaq"></div>

<!-- img src="http://a204.g.akamai.net/f/204/507/5m/charts-l.quote.com:443/GIF?User=demo&amp;Pswd=demo&amp;DataType=GIF&amp;Symbol=INDEX:INDU&amp;Interval=D&amp;Wd=170&amp;Ht=120&amp;Display=17&amp;Study=None&amp;Param1=&amp;Param2=&amp;Param3=&amp;LogScale=&amp;FontSize=9&amp;Titles=1" width="170" height="120" -->

      </td>
    </tr>
  </table>
</center>

</CENTER>
<br>

EOM
	    }
	}

	if ($tablestr) {
	    print $q->table({-border => 0},
		$q->Tr({-align => 'center'}, 
		    $q->th([
			'Ticker', 
			'Last', 
			'Last date/time',
			'Change', 
			'Open', 
			'Day Range', 
			'Volume'
		    ])), 
		$tablestr);
	}
    }

    $sock->close;

}

sub showform {
    my $cgi = shift;

    print $cgi->startform(-method => 'GET');

    print "<CENTER>\n";
    print "<TABLE BORDER=\"1\" CELLSPACING=\"0\"";
    print " CELLPADDING=\"3\" BORDERCOLOR=\"BLACK\">\n";
    print " <TR BGCOLOR=\"#0000FF\">\n";
    print "  <TD ALIGN=\"CENTER\">\n";
    print "   <FONT COLOR=\"#FFFFFF\">\n";
    print "    Perl Stock Quote\n";
    print "   </FONT>\n";
    print "  </TD>\n";
    print " </TR>\n";
    print " <TR>\n";
    print "  <TD>\n";
    print "   <INPUT TYPE=\"text\" NAME=\"tickers\">\n";
    print "   <INPUT TYPE=\"submit\" VALUE=\"Get Quote\">\n";
    print "  </TD>\n";
    print " </TR>\n";
    print "</TABLE>\n";
    print "</CENTER>\n";

    print $cgi->endform;
}

# init variable
my $cgi = new CGI;

# print header
print $cgi->header,
      $cgi->start_html(-title => "Perl Stock Quote");

print $cgi->center($cgi->h1("Perl Stock Quote")),
      $cgi->hr(),
      $cgi->br();

if ($cgi->param('tickers')) {
    my @tickers = split ' ', $cgi->param('tickers');
    init;
    getquote $cgi, @tickers;
} else {
    showform $cgi;
}

# print footer
print $cgi->hr(),
      $cgi->a({-href=>"http://www.terrence.com/perl/stock/stock.txt"},
              "Program Source"),
      $cgi->br();

print $cgi->end_html;