diff options
Diffstat (limited to 'bin/events2md.pl')
| -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 => '*'; } |