zim-create-aptlog

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     zim-create-aptlog
   3 ###APPAUTHOR:   xiaoranzzz
   4 ###APPDATE:     Wed Apr  2 00:42:39 2008
   5 ###APPVER:      0.1
   6 ###APPDESC:
   7 ###APPUSAGE:
   8 ###APPEXAMPLE:
   9 ###APPOPTION:
  10 use strict;
  11 use Data::Dumper;
  12
  13 my $zimdir="/myplace/workspace/Wiki/myplace/Works/SystemAdmin/Packages";
  14 mkdir $zimdir unless(-d $zimdir);
  15 my $logfile=shift;
  16 my $log_h;
  17 if($logfile && -f $logfile) {
  18     if(!open $log_h,"<",$logfile) {
  19         print STDERR "Open $logfile for reading error:$!\n";
  20         print STDERR "Trying sudo...\n";
  21         open $log_h,"-|","sudo cat '$logfile'" or die("$!\n");
  22     }
  23 }
  24 else {
  25     open $log_h,"<&0";
  26 }
  27 my %logs;
  28 my $date;
  29 my $time;
  30 while(<$log_h>) {
  31     chomp;
  32     s/\s+$//g;
  33     if(!$date) {
  34         next unless(/^Log started:\s+([^\s]+)\s+([^\s]+)\s*$/);
  35         $date=$1;
  36         $logs{$date}=() unless(exists $logs{$date});
  37         push(@{$logs{$date}},"\n== $2 ==\n");
  38     }
  39     elsif(/^Log ended:/){
  40         $date=undef;
  41     }
  42     else {
  43         if(/^\s*(:?dpkg|debconf)\b/) {
  44             push(@{$logs{$date}},"    **$_**");
  45             next;
  46         }
  47         if(/^\s*Setting up\s+([^\s]+)\s+\(([^\(\)]+)\)/) {
  48             push(@{$logs{$date}},"* Setting up __$1__ ($2)");
  49             next;
  50         }
  51         if(/^\s*Removing\s+([^\s]+)\s+...\s*$/) {
  52             push(@{$logs{$date}},"* ~~Removing~~ __$1__");
  53             next;
  54         }
  55     }
  56 }
  57 close $log_h;
  58 if(open FI,"<","$zimdir.txt") {
  59     my $text=join("",<FI>);
  60     close FI;
  61     open FO,">>","$zimdir.txt";
  62     foreach (sort keys %logs) {
  63         next if($text =~ /^\s*\*\s*\[\[\.$_\|$_\]\]/m);
  64         print FO "* [[.$_|$_]]\n";
  65     }
  66     close FO;
  67 }
  68
  69 foreach my $date(sort keys(%logs)) {
  70     print STDERR "Writing $zimdir/$date.txt...\n";
  71     open FO,">>","$zimdir/$date.txt" or die("$!\n");
  72     foreach(@{$logs{$date}}) {
  73         print FO $_,"\n";
  74     }
  75     close FO;
  76 }
  77
  78
  79