line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package WebService::GarminConnect; |
2
|
|
|
|
|
|
|
|
3
|
4
|
|
|
4
|
|
294178
|
use 5.006; |
|
4
|
|
|
|
|
49
|
|
4
|
4
|
|
|
4
|
|
27
|
use warnings FATAL => 'all'; |
|
4
|
|
|
|
|
7
|
|
|
4
|
|
|
|
|
141
|
|
5
|
4
|
|
|
4
|
|
21
|
use strict; |
|
4
|
|
|
|
|
8
|
|
|
4
|
|
|
|
|
71
|
|
6
|
4
|
|
|
4
|
|
35
|
use Carp; |
|
4
|
|
|
|
|
19
|
|
|
4
|
|
|
|
|
254
|
|
7
|
4
|
|
|
4
|
|
3085
|
use LWP::UserAgent; |
|
4
|
|
|
|
|
230411
|
|
|
4
|
|
|
|
|
147
|
|
8
|
4
|
|
|
4
|
|
35
|
use URI; |
|
4
|
|
|
|
|
11
|
|
|
4
|
|
|
|
|
118
|
|
9
|
4
|
|
|
4
|
|
2702
|
use JSON; |
|
4
|
|
|
|
|
43777
|
|
|
4
|
|
|
|
|
23
|
|
10
|
4
|
|
|
4
|
|
1989
|
use Data::Dumper; |
|
4
|
|
|
|
|
13353
|
|
|
4
|
|
|
|
|
239
|
|
11
|
4
|
|
|
4
|
|
2081
|
use WWW::OAuth; |
|
4
|
|
|
|
|
86377
|
|
|
4
|
|
|
|
|
152
|
|
12
|
4
|
|
|
4
|
|
38
|
use WWW::OAuth::Util qw( form_urldecode ); |
|
4
|
|
|
|
|
10
|
|
|
4
|
|
|
|
|
4906
|
|
13
|
|
|
|
|
|
|
#use LWP::ConsoleLogger::Everywhere (); |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
our $VERSION = '1.1.0'; # VERSION |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
=head1 NAME |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
WebService::GarminConnect - Access data from Garmin Connect |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
=head1 VERSION |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
version 1.1.0 |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
=head1 SYNOPSIS |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
With WebService::GarminConnect, you can search the activities stored on the |
28
|
|
|
|
|
|
|
Garmin Connect site. |
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
use WebService::GarminConnect; |
31
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
my $gc = WebService::GarminConnect->new( username => 'myuser', |
33
|
|
|
|
|
|
|
password => 'password' ); |
34
|
|
|
|
|
|
|
my @activities = $gc->activities( limit => 20 ); |
35
|
|
|
|
|
|
|
foreach my $a ( @activities ) { |
36
|
|
|
|
|
|
|
my $name = $a->{name}; |
37
|
|
|
|
|
|
|
... |
38
|
|
|
|
|
|
|
} |
39
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
=head1 FUNCTIONS |
41
|
|
|
|
|
|
|
|
42
|
|
|
|
|
|
|
=head2 new( %options ) |
43
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
Creates a new WebService::GarminConnect object. One or more options may be |
45
|
|
|
|
|
|
|
specified: |
46
|
|
|
|
|
|
|
|
47
|
|
|
|
|
|
|
=over |
48
|
|
|
|
|
|
|
|
49
|
|
|
|
|
|
|
=item username |
50
|
|
|
|
|
|
|
|
51
|
|
|
|
|
|
|
(Required) The Garmin Connect username to use for searches. |
52
|
|
|
|
|
|
|
|
53
|
|
|
|
|
|
|
=item password |
54
|
|
|
|
|
|
|
|
55
|
|
|
|
|
|
|
(Required) The user's Garmin Connect password. |
56
|
|
|
|
|
|
|
|
57
|
|
|
|
|
|
|
=item searchurl |
58
|
|
|
|
|
|
|
|
59
|
|
|
|
|
|
|
(Optional) Override the default search URL for Garmin Connect. |
60
|
|
|
|
|
|
|
|
61
|
|
|
|
|
|
|
=back |
62
|
|
|
|
|
|
|
|
63
|
|
|
|
|
|
|
=cut |
64
|
|
|
|
|
|
|
|
65
|
|
|
|
|
|
|
sub new { |
66
|
4
|
|
|
4
|
1
|
2033
|
my $self = shift; |
67
|
4
|
|
|
|
|
13
|
my %options = @_; |
68
|
|
|
|
|
|
|
|
69
|
|
|
|
|
|
|
# Check for mandatory options |
70
|
4
|
|
|
|
|
17
|
foreach my $required_option ( qw( username password ) ) { |
71
|
|
|
|
|
|
|
croak "option \"$required_option\" is required" |
72
|
6
|
100
|
|
|
|
337
|
unless defined $options{$required_option}; |
73
|
|
|
|
|
|
|
} |
74
|
|
|
|
|
|
|
|
75
|
|
|
|
|
|
|
return bless { |
76
|
|
|
|
|
|
|
username => $options{username}, |
77
|
|
|
|
|
|
|
password => $options{password}, |
78
|
1
|
|
50
|
|
|
13
|
searchurl => $options{searchurl} || 'https://connectapi.garmin.com/activitylist-service/activities/search/activities', |
79
|
|
|
|
|
|
|
}, $self; |
80
|
|
|
|
|
|
|
} |
81
|
|
|
|
|
|
|
|
82
|
|
|
|
|
|
|
sub _login { |
83
|
0
|
|
|
0
|
|
|
my $self = shift; |
84
|
|
|
|
|
|
|
|
85
|
|
|
|
|
|
|
# Bail out if we're already logged in. |
86
|
0
|
0
|
|
|
|
|
return if defined $self->{is_logged_in}; |
87
|
|
|
|
|
|
|
|
88
|
0
|
|
|
|
|
|
my $ua = LWP::UserAgent->new(agent => 'Mozilla/5.0 (iPhone; CPU iPhone OS 16_5 like Mac OS X) ' . |
89
|
|
|
|
|
|
|
'AppleWebKit/605.1.15 (KHTML, like Gecko) Mobile/15E148'); |
90
|
0
|
|
|
|
|
|
$ua->cookie_jar( {} ); |
91
|
0
|
|
|
|
|
|
push @{ $ua->requests_redirectable }, 'POST'; |
|
0
|
|
|
|
|
|
|
92
|
|
|
|
|
|
|
|
93
|
0
|
|
|
|
|
|
my %sso_embed_params = ( |
94
|
|
|
|
|
|
|
id => 'gauth-widget', |
95
|
|
|
|
|
|
|
embedWidget => 'true', |
96
|
|
|
|
|
|
|
gauthHost => 'https://sso.garmin.com/sso', |
97
|
|
|
|
|
|
|
); |
98
|
0
|
|
|
|
|
|
my $uri = URI->new('https://sso.garmin.com/sso/embed'); |
99
|
0
|
|
|
|
|
|
$uri->query_form(%sso_embed_params); |
100
|
0
|
|
|
|
|
|
my $response = $ua->get($uri); |
101
|
0
|
0
|
|
|
|
|
croak "Can't retrieve /sso/embed: " . $response->status_line |
102
|
|
|
|
|
|
|
unless $response->is_success; |
103
|
|
|
|
|
|
|
|
104
|
0
|
|
|
|
|
|
my %signin_params = ( |
105
|
|
|
|
|
|
|
id => 'gauth-widget', |
106
|
|
|
|
|
|
|
embedWidget => 'true', |
107
|
|
|
|
|
|
|
gauthHost => 'https://sso.garmin.com/sso/embed', |
108
|
|
|
|
|
|
|
service => 'https://sso.garmin.com/sso/embed', |
109
|
|
|
|
|
|
|
source => 'https://sso.garmin.com/sso/embed', |
110
|
|
|
|
|
|
|
redirectAfterAccountLoginUrl => 'https://sso.garmin.com/sso/embed', |
111
|
|
|
|
|
|
|
redirectAfterAccountCreationUrl => 'https://sso.garmin.com/sso/embed', |
112
|
|
|
|
|
|
|
); |
113
|
0
|
|
|
|
|
|
$uri = URI->new('https://sso.garmin.com/sso/signin'); |
114
|
0
|
|
|
|
|
|
$uri->query_form(%signin_params); |
115
|
0
|
|
|
|
|
|
$response = $ua->get($uri); |
116
|
0
|
0
|
|
|
|
|
croak "Can't retrieve /sso/signin: " . $response->status_line |
117
|
|
|
|
|
|
|
unless $response->is_success; |
118
|
|
|
|
|
|
|
# get the CSRF token from the response, it's a hidden form field |
119
|
0
|
|
|
|
|
|
my $csrf_token; |
120
|
0
|
0
|
|
|
|
|
if ($response->decoded_content =~ /name="_csrf"\s+value="(.+)"/) { |
121
|
0
|
|
|
|
|
|
$csrf_token = $1; |
122
|
|
|
|
|
|
|
} else { |
123
|
0
|
|
|
|
|
|
croak "couldn't find CSRF token"; |
124
|
|
|
|
|
|
|
} |
125
|
|
|
|
|
|
|
|
126
|
|
|
|
|
|
|
# submit login form with email and password |
127
|
|
|
|
|
|
|
$response = $ua->post($uri, Referer => "$uri", Content => { |
128
|
|
|
|
|
|
|
username => $self->{username}, |
129
|
|
|
|
|
|
|
password => $self->{password}, |
130
|
0
|
|
|
|
|
|
embed => 'true', |
131
|
|
|
|
|
|
|
_csrf => $csrf_token, |
132
|
|
|
|
|
|
|
}); |
133
|
0
|
0
|
|
|
|
|
croak "Can't submit login page: " . $response->status_line |
134
|
|
|
|
|
|
|
unless $response->is_success; |
135
|
0
|
|
|
|
|
|
my $title; |
136
|
0
|
0
|
|
|
|
|
if ($response->decoded_content =~ m:(.+):) { |
137
|
0
|
|
|
|
|
|
$title = $1; |
138
|
|
|
|
|
|
|
} else { |
139
|
0
|
|
|
|
|
|
croak "couldn't find in login response"; |
140
|
|
|
|
|
|
|
} |
141
|
0
|
0
|
|
|
|
|
if ($title ne 'Success') { |
142
|
0
|
|
|
|
|
|
croak "expected post-login of \"Success\", not \"$title\""; |
143
|
|
|
|
|
|
|
} |
144
|
0
|
|
|
|
|
|
my $ticket; |
145
|
0
|
0
|
|
|
|
|
if ($response->decoded_content =~ /embed\?ticket=([^"]+)"/) { |
146
|
0
|
|
|
|
|
|
$ticket = $1; |
147
|
|
|
|
|
|
|
} else { |
148
|
0
|
|
|
|
|
|
croak "couldn't find ticket in login response"; |
149
|
|
|
|
|
|
|
} |
150
|
|
|
|
|
|
|
|
151
|
|
|
|
|
|
|
# get oauth1 token, these came from https://thegarth.s3.amazonaws.com/oauth_consumer.json |
152
|
|
|
|
|
|
|
# and are what the Garmin Connect mobile app uses. Perhaps we should |
153
|
|
|
|
|
|
|
# try to fetch these from there at runtime in case they ever change? |
154
|
0
|
|
|
|
|
|
my $oauth = WWW::OAuth->new( |
155
|
|
|
|
|
|
|
client_id => "fc3e99d2-118c-44b8-8ae3-03370dde24c0", |
156
|
|
|
|
|
|
|
client_secret => "E08WAR897WEy2knn7aFBrvegVAf0AFdWBBF", |
157
|
|
|
|
|
|
|
); |
158
|
|
|
|
|
|
|
|
159
|
|
|
|
|
|
|
|
160
|
0
|
|
|
|
|
|
$uri = 'https://connectapi.garmin.com/oauth-service/oauth/' . |
161
|
|
|
|
|
|
|
"preauthorized?ticket=$ticket&login-url=" . |
162
|
|
|
|
|
|
|
'https://sso.garmin.com/sso/embed&accepts-mfa-tokens=true'; |
163
|
0
|
|
|
0
|
|
|
$ua->add_handler(request_prepare => sub { $oauth->authenticate($_[0]) }); |
|
0
|
|
|
|
|
|
|
164
|
0
|
|
|
|
|
|
$response = $ua->get($uri); |
165
|
0
|
0
|
|
|
|
|
croak "Can't retrieve oauth1 page: " . $response->status_line |
166
|
|
|
|
|
|
|
unless $response->is_success; |
167
|
0
|
|
|
|
|
|
my %response_data = @{form_urldecode($response->content)}; |
|
0
|
|
|
|
|
|
|
168
|
0
|
|
|
|
|
|
foreach my $key ( qw( oauth_token oauth_token_secret ) ) { |
169
|
0
|
0
|
|
|
|
|
if (!defined $response_data{$key}) { |
170
|
0
|
|
|
|
|
|
croak "oauth response didn't include \"$key\""; |
171
|
|
|
|
|
|
|
} |
172
|
|
|
|
|
|
|
} |
173
|
0
|
|
|
|
|
|
$oauth->token($response_data{oauth_token}); |
174
|
0
|
|
|
|
|
|
$oauth->token_secret($response_data{oauth_token_secret}); |
175
|
|
|
|
|
|
|
|
176
|
0
|
|
|
|
|
|
$uri = 'https://connectapi.garmin.com/oauth-service/oauth/exchange/user/2.0'; |
177
|
0
|
|
|
|
|
|
$response = $ua->post($uri); |
178
|
0
|
0
|
|
|
|
|
croak "Can't retrieve oauth1 page: " . $response->status_line |
179
|
|
|
|
|
|
|
unless $response->is_success; |
180
|
0
|
|
|
|
|
|
my $response_data = decode_json($response->content); |
181
|
0
|
0
|
|
|
|
|
if (!defined $response_data->{access_token}) { |
182
|
0
|
|
|
|
|
|
croak "couldn't find access token in response"; |
183
|
|
|
|
|
|
|
} |
184
|
|
|
|
|
|
|
|
185
|
|
|
|
|
|
|
# make subsequent calls use the access token in the Authorization header |
186
|
0
|
|
|
|
|
|
$ua->remove_handler('request_prepare'); |
187
|
0
|
|
|
|
|
|
$ua->default_header('Authorization', 'Bearer ' . $response_data->{access_token}); |
188
|
|
|
|
|
|
|
|
189
|
|
|
|
|
|
|
#$uri = 'https://connectapi.garmin.com/activitylist-service/activities/search/activities?limit=20&start=0'; |
190
|
|
|
|
|
|
|
#$response = $ua->get($uri); |
191
|
|
|
|
|
|
|
#croak "Can't retrieve activity search page: " . $response->status_line |
192
|
|
|
|
|
|
|
# unless $response->is_success; |
193
|
|
|
|
|
|
|
|
194
|
|
|
|
|
|
|
# Record our logged-in status so future calls will skip login. |
195
|
0
|
|
|
|
|
|
$self->{useragent} = $ua; |
196
|
0
|
|
|
|
|
|
$self->{is_logged_in} = 1; |
197
|
|
|
|
|
|
|
} |
198
|
|
|
|
|
|
|
|
199
|
|
|
|
|
|
|
=head2 activities( %search_criteria ) |
200
|
|
|
|
|
|
|
|
201
|
|
|
|
|
|
|
Returns a list of activities matching the requested criteria. If no criteria |
202
|
|
|
|
|
|
|
are specified, returns all the user's activities. Possible criteria: |
203
|
|
|
|
|
|
|
|
204
|
|
|
|
|
|
|
=over |
205
|
|
|
|
|
|
|
|
206
|
|
|
|
|
|
|
=item limit |
207
|
|
|
|
|
|
|
|
208
|
|
|
|
|
|
|
(Optional) The maximum number of activities to return. If not specified, |
209
|
|
|
|
|
|
|
all the user's activities will be returned. |
210
|
|
|
|
|
|
|
|
211
|
|
|
|
|
|
|
=item pagesize |
212
|
|
|
|
|
|
|
|
213
|
|
|
|
|
|
|
(Optional) The number of activities to return in each call to Garmin |
214
|
|
|
|
|
|
|
Connect. (One call to this subroutine may call Garmin Connect several |
215
|
|
|
|
|
|
|
times to retrieve all the requested activities.) Defaults to 50. |
216
|
|
|
|
|
|
|
|
217
|
|
|
|
|
|
|
=back |
218
|
|
|
|
|
|
|
|
219
|
|
|
|
|
|
|
=cut |
220
|
|
|
|
|
|
|
|
221
|
|
|
|
|
|
|
sub activities { |
222
|
0
|
|
|
0
|
1
|
|
my $self = shift; |
223
|
0
|
|
|
|
|
|
my %opts = @_; |
224
|
0
|
|
|
|
|
|
my $json = JSON->new(); |
225
|
|
|
|
|
|
|
|
226
|
|
|
|
|
|
|
# Ensure we are logged in |
227
|
0
|
|
|
|
|
|
$self->_login(); |
228
|
0
|
|
|
|
|
|
my $ua = $self->{useragent}; |
229
|
|
|
|
|
|
|
|
230
|
|
|
|
|
|
|
# We can only fetch a fixed number of activities at a time. |
231
|
0
|
|
|
|
|
|
my @activities; |
232
|
0
|
|
|
|
|
|
my $start = 0; |
233
|
0
|
|
|
|
|
|
my $pagesize = 50; |
234
|
0
|
0
|
|
|
|
|
if( defined $opts{pagesize} ) { |
235
|
0
|
0
|
0
|
|
|
|
if( $opts{pagesize} > 0 && $opts{pagesize} < 50 ) { |
236
|
0
|
|
|
|
|
|
$pagesize = $opts{pagesize}; |
237
|
|
|
|
|
|
|
} |
238
|
|
|
|
|
|
|
} |
239
|
|
|
|
|
|
|
|
240
|
|
|
|
|
|
|
# Special case when the limit is smaller than one page. |
241
|
0
|
0
|
|
|
|
|
if( defined $opts{limit} ) { |
242
|
0
|
0
|
|
|
|
|
if( $opts{limit} < $pagesize ) { |
243
|
0
|
|
|
|
|
|
$pagesize = $opts{limit}; |
244
|
|
|
|
|
|
|
} |
245
|
|
|
|
|
|
|
} |
246
|
|
|
|
|
|
|
|
247
|
0
|
|
|
|
|
|
my $data = []; |
248
|
|
|
|
|
|
|
do { |
249
|
|
|
|
|
|
|
# Make a search request |
250
|
|
|
|
|
|
|
my $searchurl = $self->{searchurl} . |
251
|
0
|
|
|
|
|
|
"?start=$start&limit=$pagesize"; |
252
|
|
|
|
|
|
|
|
253
|
0
|
|
|
|
|
|
my $headers = [ |
254
|
|
|
|
|
|
|
'NK' => 'NT', |
255
|
|
|
|
|
|
|
'X-app-ver' => '4.71.1.4', |
256
|
|
|
|
|
|
|
'X-lang' => 'en-US', |
257
|
|
|
|
|
|
|
'X-Requested-With' => 'XMLHttpRequest', |
258
|
|
|
|
|
|
|
]; |
259
|
0
|
|
|
|
|
|
my $request = HTTP::Request->new('GET', $searchurl, $headers); |
260
|
0
|
|
|
|
|
|
my $response = $ua->request($request); |
261
|
0
|
0
|
|
|
|
|
croak "Can't make search request: " . $response->status_line |
262
|
|
|
|
|
|
|
unless $response->is_success; |
263
|
|
|
|
|
|
|
|
264
|
|
|
|
|
|
|
# Parse the JSON search results |
265
|
0
|
|
|
|
|
|
$data = $json->decode($response->content); |
266
|
|
|
|
|
|
|
|
267
|
|
|
|
|
|
|
# Add this set of activities to the list. |
268
|
0
|
|
|
|
|
|
foreach my $activity ( @{$data} ) { |
|
0
|
|
|
|
|
|
|
269
|
0
|
0
|
|
|
|
|
if( defined $opts{limit} ) { |
270
|
|
|
|
|
|
|
# add this activity only if we're under the limit |
271
|
0
|
0
|
|
|
|
|
if( @activities < $opts{limit} ) { |
272
|
0
|
|
|
|
|
|
push @activities, { activity => $activity }; |
273
|
|
|
|
|
|
|
} else { |
274
|
0
|
|
|
|
|
|
$data = []; # stop retrieving more activities |
275
|
0
|
|
|
|
|
|
last; |
276
|
|
|
|
|
|
|
} |
277
|
|
|
|
|
|
|
} else { |
278
|
0
|
|
|
|
|
|
push @activities, { activity => $activity }; |
279
|
|
|
|
|
|
|
} |
280
|
|
|
|
|
|
|
} |
281
|
|
|
|
|
|
|
|
282
|
|
|
|
|
|
|
# Increment the start offset for the next request. |
283
|
0
|
|
|
|
|
|
$start += $pagesize; |
284
|
|
|
|
|
|
|
|
285
|
0
|
|
|
|
|
|
} while( @{$data} > 0 ); |
|
0
|
|
|
|
|
|
|
286
|
|
|
|
|
|
|
|
287
|
0
|
|
|
|
|
|
return @activities; |
288
|
|
|
|
|
|
|
} |
289
|
|
|
|
|
|
|
|
290
|
|
|
|
|
|
|
=head1 AUTHOR |
291
|
|
|
|
|
|
|
|
292
|
|
|
|
|
|
|
Joel Loudermilk, C<< >> |
293
|
|
|
|
|
|
|
|
294
|
|
|
|
|
|
|
=head1 BUGS |
295
|
|
|
|
|
|
|
|
296
|
|
|
|
|
|
|
Please report any bugs or feature requests to L. |
297
|
|
|
|
|
|
|
|
298
|
|
|
|
|
|
|
|
299
|
|
|
|
|
|
|
|
300
|
|
|
|
|
|
|
|
301
|
|
|
|
|
|
|
=head1 SUPPORT |
302
|
|
|
|
|
|
|
|
303
|
|
|
|
|
|
|
You can find documentation for this module with the perldoc command. |
304
|
|
|
|
|
|
|
|
305
|
|
|
|
|
|
|
perldoc WebService::GarminConnect |
306
|
|
|
|
|
|
|
|
307
|
|
|
|
|
|
|
|
308
|
|
|
|
|
|
|
You can also look for information at: |
309
|
|
|
|
|
|
|
|
310
|
|
|
|
|
|
|
=over 4 |
311
|
|
|
|
|
|
|
|
312
|
|
|
|
|
|
|
=item * AnnoCPAN: Annotated CPAN documentation |
313
|
|
|
|
|
|
|
|
314
|
|
|
|
|
|
|
L |
315
|
|
|
|
|
|
|
|
316
|
|
|
|
|
|
|
=item * CPAN Ratings |
317
|
|
|
|
|
|
|
|
318
|
|
|
|
|
|
|
L |
319
|
|
|
|
|
|
|
|
320
|
|
|
|
|
|
|
=item * Search CPAN |
321
|
|
|
|
|
|
|
|
322
|
|
|
|
|
|
|
L |
323
|
|
|
|
|
|
|
|
324
|
|
|
|
|
|
|
=item * GitHub Repository |
325
|
|
|
|
|
|
|
|
326
|
|
|
|
|
|
|
L |
327
|
|
|
|
|
|
|
|
328
|
|
|
|
|
|
|
=back |
329
|
|
|
|
|
|
|
|
330
|
|
|
|
|
|
|
=head1 COPYRIGHT & LICENSE |
331
|
|
|
|
|
|
|
|
332
|
|
|
|
|
|
|
Copyright 2023 Joel Loudermilk. |
333
|
|
|
|
|
|
|
|
334
|
|
|
|
|
|
|
This program is free software: you can redistribute it and/or modify |
335
|
|
|
|
|
|
|
it under the terms of the GNU General Public License as published by |
336
|
|
|
|
|
|
|
the Free Software Foundation, either version 3 of the License, or |
337
|
|
|
|
|
|
|
(at your option) any later version. |
338
|
|
|
|
|
|
|
|
339
|
|
|
|
|
|
|
This program is distributed in the hope that it will be useful, |
340
|
|
|
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of |
341
|
|
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
342
|
|
|
|
|
|
|
GNU General Public License for more details. |
343
|
|
|
|
|
|
|
|
344
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License |
345
|
|
|
|
|
|
|
along with this program. If not, see L. |
346
|
|
|
|
|
|
|
|
347
|
|
|
|
|
|
|
=cut |
348
|
|
|
|
|
|
|
|
349
|
|
|
|
|
|
|
1; # End of WebService::GarminConnect |