Changeset 1402 in ProjectBuilder for devel/pbmkbm/bin/pbmkbm

Timestamp:

Feb 3, 2012, 12:17:04 AM (12 years ago)

Author:

Bruno Cornec

Message:

r4487@cabanilles: bruno | 2012-02-01 16:21:48 +0100

• Fix the -t option without param for pb
• add a function to analyze busybox countent and create appropriate structure for pbmkbm

File:

• devel/pbmkbm/bin/pbmkbm (modified) (6 diffs)

devel/pbmkbm/bin/pbmkbm

@@ -16 +16 @@
 use File::Basename;
 use File::Copy;
+use POSIX qw(strftime);
+
 use ProjectBuilder::Version;
 use ProjectBuilder::Base;
@@ -235 +237 @@
 }
 pb_log_init($pbdebug, $pbLOG);
+pb_log(1,"$appname Version $projectbuilderver-$projectbuilderrev\n");
+my @date = pb_get_date();
+my $pbdate = strftime("%Y-%m-%d %H:%M:%S", @date);
+
+pb_log(1,"Start: $pbdate\n");
 
 # Get VE name
@@ -256 +263 @@
 # Check for command requirements
 #
-my ($req,$opt) = pb_conf_get_if("mkbmcmd","mkbmcmdopt");
+my ($req,$opt) = pb_conf_get_if("oscmd","oscmdopt");
 pb_check_requirements($req,$opt,$appname);
 
@@ -265 +272 @@
 # Where is our build target directory
 #
-
 if (not defined $targetdir) {
     $targetdir = "/var/cache/pbmkbm";
     my ($vestdpath) = pb_conf_get("mkbmpath");
     $targetdir = "$vestdpath->{'default'}/$pbos->{'name'}/$pbos->{'version'}/$pbos->{'arch'}" if (defined $vestdpath->{'default'});
-}
-
-die pb_log(0,"No target-dir specified and no default mkbmpath found in $ENV{'PBETC'}\n") if (not defined $targetdir);
+    pb_log(1,"No target-dir specified, using $targetdir\n");
+}
 
 # Point to the right subdir and create it if needed
 pb_mkdir_p($targetdir) if (! -d $targetdir);
 
+# Log information on our system
+# TODO: this should be put in a subfunction
+my ($logcmd) = pb_conf_get("logcmd");
+my ($logopt) = pb_conf_get_if("logopt");
+# check that the command is there first and then use it.
+if ($logcmd->{$appname} ne "internal") {
+    $logcmd = pb_check_req($logcmd->{$appname},1);
+    if (not defined $logcmd) {
+        pb_log(1,"INFO: command $logcmd->{$appname} doesn't exist. No log report is available\n");
+    } else {
+        my $c = $logcmd->{$appname};
+        $c .= " $logopt->{$appname}" if (defined $logopt->{$appname});
+        pb_system("$c","Creating a log report of your system");
+    }
+} else {
+    # We provide our own internal log reporter as a std one isn't found
+    my ($lcmds,$lfiles) = pb_conf_get_if("logcommands","logfiles");
+    pb_log(1,"------------------\n");
+    if (defined $lcmds->{$appname}) {
+        foreach my $c (split(/,/,$lcmds->{$appname})) {
+            my $lcmd = $c;
+            $lcmd =~ s/ .*$//;
+            $lcmd = pb_check_req($lcmd,1);
+            if (not defined $lcmd) {
+                pb_log(1,"INFO: command $lcmd (in $c) doesn't exist\n");
+                pb_log(1,"------------------\n");
+                next;
+            }
+            pb_log(1,"Execution of $c\n");
+            pb_log(1,"------------------\n");
+            pb_system($c,"",1);
+            pb_log(1,"------------------\n");
+        }
+    }
+    if (defined $lfiles->{$appname}) {
+        foreach my $f (split(/,/,$lfiles->{$appname})) {
+            if (! -e $f) {
+                pb_log(1,"INFO: $f doesn't exist\n");
+                pb_log(1,"------------------\n");
+                next;
+            }
+            if (! -r $f) {
+                pb_log(1,"INFO: $f isn't readable\n");
+                pb_log(1,"------------------\n");
+                next;
+            }
+            if ((-f $f) || (-l $f)) {
+                if (! open(FILE,$f)) {
+                    pb_log(1,"INFO: Unable to open $f\n");
+                    pb_log(1,"------------------\n");
+                    next;
+                }
+                pb_log(1,"Content of $f\n");
+                pb_log(1,"------------------\n");
+                while (<FILE>) {
+                    pb_log(1,$_);
+                }
+                close(FILE);
+                pb_log(1,"------------------\n");
+            } elsif (-d $f) {
+                my $dh;
+                if (! opendir($dh,$f)) {
+                    pb_log(1,"INFO: Unable to opendir $f\n");
+                    pb_log(1,"------------------\n");
+                    next;
+                }
+                pb_log(1,"Content of directory $f\n");
+                pb_log(1,"----------------------------\n");
+                while (readdir $dh) {
+                    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat("$f/$_");
+                    my $str = sprintf("%10s %2s %5s %5s %10s %14s %s",$mode,$ino,$uid,$gid,$size,$mtime,$_);
+                    pb_log(1,"$str\n");
+                }
+                closedir($dh);
+                pb_log(1,"------------------\n");
+            } else {
+                pb_log(1,"INFO: $f is special\n");
+                pb_log(1,"------------------\n");
+            }
+        }
+    }
+}
 
 # Now the preparation is over, we need to do something useful :-)
@@ -287 +374 @@
 pb_mkbm_create_media();
 
+@date = pb_get_date();
+$pbdate = strftime("%Y-%m-%d %H:%M:%S", @date);
+
+pb_log(1,"End: $pbdate\n");
+
 sub pb_mkbm_create_content {
 
@@ -294 +386 @@
 $opts{'b'} = "ve" if (not defined $opts{'b'});
 
+# Hash of target content
+# atribute could be, copy, remove, link, dir
+my %targettree;
+
 if ($opts{'b'} eq "ve") {
-    # Use existing tools to create a good VE !
+    # Use project-builder VE mecanism to create a good VE !
     pb_ve_launch($ENV{'PBV'},1);
 } elsif ($opts{'b'} eq "native") {
     # Use native tools to create a good VE !
+} elsif ($opts{'b'} eq "drakut") {
+    # Use drakut to create a good VE !
+} elsif ($opts{'b'} eq "busybox") {
+    # Use busybox to create a good VE !
+    pb_mkbm_create_busybox_ve(\%targettree);
 } else {
     die "Unknown method $opts{'b'} used to create the media content";
 }
 
+# Create the directory structure needed on the target dir
+$targettree->{"/bin"} = "dir";
+
 # Once the environment is made, add what is needed for this boot media to it.
+# Keyboard
+# Terminfo
+# List of commands
+# List of dependencies
+# Kernel
+# Initrd
+# init 
+# BootLoader and its configuration
+# Additional data files coming from a potential caller (MondoRescue e.g. with fstab, LVM, mountlist, ...)
+}
+
+sub pb_mkbm_create_busybox_ve {
+
+my $tgtree = shift;
+
+# First, check which are the supported command in that version of busybox
+# and create the links for it in the target VE
+
+my $busycmd = pb_distro_get_param($pbos,pb_conf_get("ospathcmd-busybox"));
+open(BUSY,"$busycmd |") || die "Unable to execute $busycmd";
+my $cmdlist = 0;
+while (<BUSY>) {
+    pb_log(3,"busybox line : $_");
+    chomp($_);
+    # After these words, we have the list of functions, so trigger their analysis
+    if ($_ =~ /defined functions:/) {
+        $cmdlist = 1;
+        next;
+    }
+    # Analyse the list of commands provided by that busybox (, separated)
+    if ($cmdlist == 1) {
+        pb_log(3,"Analyzing that busybox line\n");
+        foreach my $c (split(/,/,$_)) {
+            $c =~ s/\s*//g;
+            # skip empty strings
+            next if ($c =~ /^$/);
+            my $c1 = pb_check_req($c,0);
+            if (defined $c1) {
+                $tgtree->{$c1} = "link:$busycmd";
+            } else {
+                # When not found on the system, create the link under /usr/bin by default
+                $tgtree->{"/usr/bin/$c"} = "link:$busycmd";
+            }
+        }
+    }
+}
+pb_log(2,"Target Tree is now: ".Dumper($tgtree)."\n");
+close(BUSY);
 }