Work done together in person

Author: Christian Dumas

Accessing_Yahoo_Finance_CSV.rkt

@@ -0,0 +1,14 @@
+#lang racket
+
+(require csv-reading)
+(require net/url)
+
+(print "Enter the stock symbol with double quotes around it")
+
+(define stksymbol (read))
+
+(define stkurl (string-append "http://download.finance.yahoo.com/d/quotes.csv?s=" stksymbol "&f=abo"))
+
+(define myurl (string->url stkurl))
+(define myport (get-pure-port myurl))
+(display-pure-port myport)

Readme.md

@@ -36,6 +36,9 @@ We will be successful if we are given responses at the appropriate times. Becaus
 ### First Milestone (Sun Apr 9)
 We will be able to access stock values and print them in Racket. We will also be able to send text messages from Racket.
 
+On time we were able to access stock values and also are almost able to send text messages.
+There is a login procedure with Google that isn't built in to Racket's SMTP methods.
+
 ### Second Milestone (Sun Apr 16)
 We will be able to send stock values, and all objects will be designed. Our command interpreter will be complete at this time as well.
 

STMP_First_Attempt.rkt

@@ -0,0 +1,11 @@
+#lang racket
+
+(require net/smtp)
+
+(smtp-send-message "smtp.gmail.com"
+                   "kshitijkarke@gmail.com"
+                   '("7742765067@vtext.com")
+                   "Heyo"
+                   '("Hello Christian")
+                   #:port-no 587
+                   #:auth-user "kshitijkarke@gmail.com")