Ignore:
Timestamp:
Aug 5, 2017, 6:57:42 PM (7 years ago)
Author:
Jason Gross <jasongross9@gmail.com>
Branches:
master
Children:
8eb72d2
Parents:
20ec886
git-author:
Jason Gross <jgross@mit.edu> (08/05/17 18:32:09)
git-committer:
Jason Gross <jasongross9@gmail.com> (08/05/17 18:57:42)
Message:
Make spacing in Kerberos.pm more uniform
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Kerberos/lib/BarnOwl/Module/Kerberos.pm

    r20ec886 ra4b854a  
    7070
    7171    my $password = shift;
    72     my($stdin, $stdout, $stderr);
     72    my ($stdin, $stdout, $stderr);
    7373    use Symbol 'gensym'; $stderr = gensym;
    7474    my $pid = open3($stdin, $stdout, $stderr, 'kinit', '-l7d') or die("Failed to run kinit");
     
    8080
    8181    $hdlin->push_write($password .  "\n");
    82     $hdlerr->push_read (line => sub {
     82    $hdlerr->push_read(line => sub {
    8383        my ($hdl, $line) = @_;
    8484        $output .= $line;
     
    8787    $kinit_watcher = AnyEvent->child (pid => $pid, cb => sub {
    8888        my ($pid, $status) = @_;
    89         if ($status != 0){
     89        if ($status != 0) {
    9090            BarnOwl::error($output);
    91         }
    92         else{
    93             if(BarnOwl::getvar("aklog") == 'on'){
     91        } else {
     92            if (BarnOwl::getvar("aklog") == 'on') {
    9493                my $status = system('aklog');
    95                 if ($status != 0){
     94                if ($status != 0) {
    9695                    BarnOwl::error('Aklog Failed');
    9796                }
Note: See TracChangeset for help on using the changeset viewer.