diff options
author | Jonas Smedegaard <dr@jones.dk> | 2022-06-21 19:51:53 +0200 |
---|---|---|
committer | Jonas Smedegaard <dr@jones.dk> | 2024-03-10 09:17:24 +0100 |
commit | e1a3df0ad2024ac5bb02a6b1137f71b5c7038c92 (patch) | |
tree | 5cb848a69d2f0ffaeefe13c53488d91291a0aa99 /bin | |
parent | 3a53ba1f3ef9a60633f9863cfd27a1af20bf8c9c (diff) |
tidy script
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/events2md.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/bin/events2md.pl b/bin/events2md.pl index 7cb41f0..c758577 100755 --- a/bin/events2md.pl +++ b/bin/events2md.pl @@ -50,6 +50,7 @@ $base_uri or $log->fatal('required base URI not provided') && exit 2; $base_uri->scheme or $base_uri->scheme('file'); + if ( $base_uri->scheme eq 'http' or $base_uri->scheme eq 'https' ) { $log->infof( 'will use base URI %s', $base_uri ); $calendar_uri = URI->new( $CALENDAR_URI || $base_uri ); @@ -70,10 +71,12 @@ if ( $base_uri->scheme eq 'http' or $base_uri->scheme eq 'https' ) { if ($mach) { $user ||= $mach->login; $pass ||= $mach->password; - $log->infof( 'will use .netrc provided credentials for user %s', $user ); + $log->infof( 'will use .netrc provided credentials for user %s', + $user ); } elsif ( IO::Interactive::Tiny::is_interactive() ) { - $log->warn('will ask for missing info - this will fail in headless mode'); + $log->warn( + 'will ask for missing info - this will fail in headless mode'); $user ||= prompt 'Enter your username'; $pass ||= prompt 'Enter your password', -echo => '*'; } |