Autologin (only if config is only readable by owner)

Author: H.Merijn Brand - Tux

lib/PM/CB/GUI.pm

@@ -559,6 +559,12 @@ sub update_time {
     sub login_dialog {
         my ($self) = @_;
 
+        if ($self->{username} && $self->{password}) {
+	    ($login, $password) = ($self->{username}, $self->{password});
+	    $self->send_login;
+	    return;
+	}
+
         my $dialog = $self->{mw}->Dialog(
             -title          => 'Login',
             -default_button => 'Login',

pm-cb-g

@@ -36,9 +36,11 @@ BEGIN {
     my $home = $ENV{HOME} || $ENV{USERPROFILE} || $ENV{HOMEPATH};
     foreach my $rcf (grep { -s }
             "$home/pm-cb.rc", "$home/.pm-cbrc", "$home/.config/pm-cb") {
-        (stat $rcf)[2] & 022 and next;
+        my $mode = (stat $rcf)[2];
+        $mode & 022 and next;
         open my $fh, "<", $rcf or next;
         while (<$fh>) {
+            $mode & 044 && m/password/i and next;
             s/\s*#.*$//;
             my ($k, $v) = (m/^\s*([-\w]+)\s*[:=]\s*(.*\S)/) or next;
             $conf{ lc $k
@@ -56,6 +58,7 @@ BEGIN {
                 =~ s{^(?:no|false)$}{0}ir
                 =~ s{^(?:yes|true)$}{1}ir;
             }
+
         }
     exists $conf{show_time} and $conf{no_time} = !delete $conf{show_time};
     $conf{font_name} =~ m/\s/ and $conf{font_name} = "{".$conf{font_name}."}";