tedect/TedEmail.pm at master · mguy-usgs/tedect · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
package TedEmail;
##!/usr/bin/perl -w

use MIME::Lite;

###############################################################################
#  This software is in the public domain because it contains materials
#  that originally came from the United States Geological Survey,
#  an agency of the United States Department of Interior. For more
#  information, see the official USGS copyright policy at
#  http://www.usgs.gov/visual-id/credit_usgs.html#copyright
###############################################################################

###############################################################################
# notify:
#  parameters: event_id - id of the event to remove
#  return: void
#  notes:
###############################################################################
sub email_all
{
   my $datetime = shift;
   my $topg = shift;
   my $totnu = shift;
   my $return_value = 1;
   my $subject = "[Tedect]";
   {
         open(EMAILS, "./email_list.txt");
         my @ems;
         while(<EMAILS>)
         {
            chomp;
            push(@ems, $_);
         }
         my $address = join(",",@ems);
        print "printing to: $address\n";
         my $host = 'localhost';
        if ($topg !~ 'None')
        {   $subject = "$topg $totnu $datetime [Tedect]";}
        else
        {   $subject = "Location undetermined $datetime [Tedect]"; }


      ### Load text file for message body
      open(BODY_IN, "./email.txt");
      my @tmp = <BODY_IN>;
      my $text = join '', @tmp;

         my $msg = MIME::Lite->new(
            From => "twitterID",
            To => $address,
            Type => "multipart/mixed",
            Subject => $subject,
         );
         $msg->attach(
           Type     =>'TEXT',
           Data     =>$text
         );
   #      $msg->attach(
   #         Type =>'TEXT',
   #         Path =>$outfile,
   #         Filename =>$outfile,
   #         Disposition =>'attachment'
   #      );


         print "sending...\n";
         ## send
         $msg->send("smtp", $host, Timeout=>90);
         print "message sent.\n";


      my @td = gmtime(time);
        # Returns: ss mm hh DD MM YYYY day_in_year day_of_week daylight_sav
      my @year = 1900 + $td[5];
      my @month = 1 + $td[4];
      my $savename = "./Emails/TedectEMAIL_$year[0]_$month[0]_$td[3]_$td[2]_$td[1]_$td[0].txt";


      my $result = `mv email.txt $savename`;

   }

   return $return_value;
}


###############################################################################
# follow:
#  notes:
###############################################################################
sub follow
{
   my $subj = shift;
   my $return_value = 1;
   {
##       ### Load text file for message body
       open(FOLL_IN, "./followup.txt");
       my @tmp = <FOLL_IN>;
       my $text = join '', @tmp;
##
          my $msg = MIME::Lite->new(
             From => "twitterID",
             To => $address,
             Type => "multipart/mixed",
             Subject => $subj,
          );
          $msg->attach(
            Type     =>'TEXT',
            Data     =>$text
          );
          $msg->attach(
            Type     =>'image/png',
            Path     =>'tweetgram.png',
            Filename =>'tweetgram.png',
            Disposition => 'attachment'
          );
          $msg->attach(
            Type     =>'image/png',
            Path     =>'map.png',
            Filename =>'map.png',
            Disposition => 'attachment'
          );
##
##
          print "sending followup...\n";
##          ## send
          $msg->send("smtp", $host, Timeout=>90);
          print "message sent.\n";


      my @td = gmtime(time);
        # Returns: ss mm hh DD MM YYYY day_in_year day_of_week daylight_sav
      my @year = 1900 + $td[5];
      my @month = 1 + $td[4];
      my $savename = "./Emails/Followup_$year[0]_$month[0]_$td[3]_$td[2]_$td[1]_$td[0].txt";
      my $result = `mv followup.txt $savename`;

   }
   return $return_value;
}
1;