summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2021-01-27 16:25:26 -0700
committerSean Whitton <spwhitton@spwhitton.name>2021-01-27 16:25:50 -0700
commit16b42aa5983e022e4662bad333765d284e52b61b (patch)
tree39f0f2ba6155a9796df6b0e043f84c0b88412cb9
parentf43a42a8c5687057ff28e884863d7a5a877837f3 (diff)
downloadmailscripts-16b42aa5983e022e4662bad333765d284e52b61b.tar.gz
gmi2email: perltidy
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rwxr-xr-xgmi2email17
1 files changed, 9 insertions, 8 deletions
diff --git a/gmi2email b/gmi2email
index 5b8ba4a..4c567e9 100755
--- a/gmi2email
+++ b/gmi2email
@@ -164,7 +164,8 @@ sub send_subscribed_gemtext {
gemlog => $gemlog // "unknown gemlog",
link_title => $link_title,
date => email_date $feed_date
- )->send if $mail and !$no_mail;
+ )->send
+ if $mail and !$no_mail;
} else {
warn "$uri is not gemtext";
}
@@ -191,13 +192,13 @@ sub gemini_fetch {
my ($status, $meta) = <$cl> =~ /^([0-9]+) (\V+)/;
if (30 <= $status and $status < 40) {
- $opts{orig_uri} = $uri unless $opts{redirects};
+ $opts{orig_uri} = $uri unless $opts{redirects};
die "too many redirects while fetching $opts{orig_uri}"
if $opts{redirects} and $opts{redirects} > 5;
- $opts{redirects}++;
- return gemini_fetch($meta, %opts);
+ $opts{redirects}++;
+ return gemini_fetch($meta, %opts);
} elsif ($status < 20 or $status >= 40) {
- die "while fetching $uri: gemini error: $status $meta";
+ die "while fetching $uri: gemini error: $status $meta";
}
if ($meta =~ "^text/gemini") {
@@ -290,9 +291,9 @@ sub gemtext_to_mail {
} elsif (/^=>/) {
&$pad unless @buffer and $buffer[$#buffer] =~ /^=>/;
push @buffer, $_;
- } elsif (/^#+/) {
- &$pad;
- push @buffer, $_;
+ } elsif (/^#+/) {
+ &$pad;
+ push @buffer, $_;
} else {
&$pad;
push @buffer, split "\n", wrap "", "", $_;