annotate src/getexr/getexr.go @ 12:aea69f84ed33

add getexr ( Get Foreign-Exchange )
author pyon@macmini
date Sun, 12 Nov 2017 20:10:26 +0900
parents
children 4fb189ae0a46
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
12
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
1 package main
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
2
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
3 import (
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
4 "fmt"
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
5 "flag"
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
6 "io/ioutil"
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
7 "log"
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
8 "math"
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
9 "net/http"
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
10 "net/smtp"
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
11 "os"
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
12 "strconv"
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
13 "strings"
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
14 "time"
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
15
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
16 "golang.org/x/net/html"
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
17 )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
18
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
19 var ver = "0.1"
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
20
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
21 func main() {
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
22
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
23 version := flag.Bool( "v", false, "print version" )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
24 file := flag.String( "f", "usd.dat", "print version" )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
25 flag.Parse()
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
26
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
27 if ( *version ) {
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
28 fmt.Fprintf( os.Stderr, "getexr - Get Exchange Rate [ version = %s ]\n",ver )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
29 os.Exit( 0 )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
30 }
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
31
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
32 // Get USD Rate
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
33 url := "http://finance.yahoo.co.jp/"
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
34 resp, err := http.Get( url )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
35 if err != nil {
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
36 log.Fatal( err )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
37 }
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
38
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
39 z := html.NewTokenizer( resp.Body )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
40 usd, err := ParseHtml( z )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
41 if err != nil {
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
42 log.Fatal( err )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
43 }
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
44 defer resp.Body.Close()
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
45
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
46 // Compare Past Rate
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
47 content, err := ioutil.ReadFile( *file )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
48 if err != nil {
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
49 log.Fatal( err )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
50 }
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
51
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
52 buf1 := strings.Split( string( content ), "\n" )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
53 buf2 := strings.Split( buf1[ len( buf1 ) - 2 ], "," )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
54 usd0, _ := strconv.ParseFloat( buf2[1], 32 )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
55
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
56 alart := false
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
57 if ( math.Abs( usd0 - usd ) > 1.0 ) {
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
58 alart = true
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
59 }
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
60
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
61 if ( alart ) {
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
62 t := time.Now()
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
63 now := t.Format( "2006-01-02 15:04:05" )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
64
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
65 // Save Rate
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
66 buf := fmt.Sprintf( "%s,%.2f\n", now, usd )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
67 content = append( content, buf... )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
68
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
69 err = ioutil.WriteFile( *file, content, 0777 )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
70 if err != nil {
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
71 log.Fatal( err )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
72 }
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
73
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
74 // Post E-mail
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
75 err = SendMail( now, usd, "muty@willcom.com" )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
76 if err != nil {
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
77 log.Fatal( err )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
78 }
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
79 err = SendMail( now, usd, "pyon4pyon@yahoo.co.jp" )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
80 if err != nil {
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
81 log.Fatal( err )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
82 }
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
83 }
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
84 }
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
85
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
86 func ParseHtml( z *html.Tokenizer ) ( float64, error ) {
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
87 for {
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
88 tt := z.Next()
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
89 switch tt {
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
90 case html.ErrorToken:
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
91 return 0.0, nil
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
92
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
93 case html.StartTagToken:
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
94 tag, _ := z.TagName()
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
95 key, val, _ := z.TagAttr()
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
96 if string( tag ) == "strong" && string( key ) == "class" && string( val ) == "bkLine" {
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
97 z.Next()
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
98 //fmt.Printf( "%s %s %s\n", key, val, z.Token() )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
99 return strconv.ParseFloat( z.Token().String(), 32 )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
100 }
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
101 }
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
102 }
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
103 }
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
104
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
105 func SendMail( now string, usd float64, addr string ) error {
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
106 hostname := "sdm.sakura.ne.jp"
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
107 auth := smtp.PlainAuth( "", "bad_user@sdm.sakura.ne.jp", "hogehoge3", hostname )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
108 to := []string{ addr }
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
109 msg := []byte( "To: " + addr + "\r\n" +
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
110 "Subject: Exchange-Mail\r\n" +
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
111 "\r\n" +
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
112 now + fmt.Sprintf( "\r\nrate changed\r\n[ USD/JPY : %.2f ].", usd ) + "\r\n" ) // mail body
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
113 err := smtp.SendMail( hostname + ":587", auth, "bad_user@sdm.sakura.ne.jp", to, msg )
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
114 if err != nil {
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
115 return err
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
116 }
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
117 return nil
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
118 }
aea69f84ed33 add getexr ( Get Foreign-Exchange )
pyon@macmini
parents:
diff changeset
119