summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/events2md.pl7
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 => '*';
}