diff options
Diffstat (limited to 'lib/ASM')
| -rw-r--r-- | lib/ASM/Shortener.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/ASM/Shortener.pm b/lib/ASM/Shortener.pm index f2f6b29..cd3f32a 100644 --- a/lib/ASM/Shortener.pm +++ b/lib/ASM/Shortener.pm @@ -9,6 +9,13 @@ sub shorturl { my $module = shift; my ($url) = @_; + if ((!defined($::settings->{web}->{shortener})) || + (!defined($::settings->{web}->{shortener}->{domain})) || + (!defined($::settings->{web}->{shortener}->{apikey})) || + ($::settings->{web}->{shortener}->{domain} eq '') || + ($::settings->{web}->{shortener}->{apikey} eq '')) { + return $url; + } my $apikey = $::settings->{web}->{shortener}->{apikey}; my $domain = $::settings->{web}->{shortener}->{domain}; my $ua = LWP::UserAgent->new; |
