log.pl
changeset 7 bc20f10e81e1
parent 6 75e15810eb67
child 9 0943e8462f06
equal deleted inserted replaced
6:75e15810eb67 7:bc20f10e81e1
    80     } elsif ($opt_message =~ /^apt(?::(.*))?\@(\S+)/) {
    80     } elsif ($opt_message =~ /^apt(?::(.*))?\@(\S+)/) {
    81 	open(I, $2) or die "Can't open $2: $!\n";
    81 	open(I, $2) or die "Can't open $2: $!\n";
    82 	$opt_message = ($1 ? "APT: $1\n" : "APT: upgrade\n")
    82 	$opt_message = ($1 ? "APT: $1\n" : "APT: upgrade\n")
    83 	    . join "", map { 
    83 	    . join "", map { 
    84 		if (/^\d/) { ($_) }
    84 		if (/^\d/) { ($_) }
    85 		elsif ( /^(?:Inst|Conf|Remv)/ ) { ("- $_") }
    85 		elsif ( /^(?:Inst|Conf|Remv|Purg)/ ) { ("- $_") }
    86 		else { () } 
    86 		else { () } 
    87 	    } <I>;
    87 	    } <I>;
    88     }
    88     }
    89 
    89 
    90     if ($opt_message =~ /\n/) {
    90     if ($opt_message =~ /\n/) {