WebSVN – DevTools – Diff – /debian_packager/trunk/src/tools/scripts/DebianPackager.pl

         #   Remove the directory for this package
         #   Remove the general work dir - if all packages have been cleaned
+        #
         rmtree( $WorkDirBase );
         rmtree ($opt_tarFile) if ( defined($opt_tarFile) && -f $opt_tarFile );
-        rmtree ($opt_output) if ( -f $opt_output );
+        rmtree ($opt_output) if ( $opt_output && -f $opt_output );
         exit;
+    }
+    #
     #   NoArch sanity test
 #                   $dst_dir    - Within the output workspace
 #                   Options
 #                       --Merge                 - Don't delete first
 #                       --Source=Name           - Source via Symbolic Name
 #                       --FromPackage           - Source via package roots
+#                       --FromPackage:Name      - Source via specified package roots
 #                       --NoIgnoreDbgFiles      - Do not ignore .dbg and .debug files in dir copy
 #                       --IfPresent             - Not an error if the path cannot be found
 #                       --ConfFile              - Mark transferred files as config files
 #                       --Flatten               - Copy all to one directory
 #                       --FilterOut=xxx         - Ignore files. DOS Wildcard
     my $ignoreDbg = 1;
     my $ignoreNoDir;
     my $user_src_dir = $src_dir;
     my $opt_source;
     my $opt_package;
+    my $opt_package_name;
     my @fileList;
     my $isFiltered;
     return 1 unless ($ActiveSection);
+    #
         } elsif ( m/^--Source=(.+)/ ) {
             Error ("Source directory can only be specified once")
                 if ( defined $opt_source );
             $opt_source = $1;
+        } elsif ( m/^--FromPackage:(.+)/ ) {
+            Error ("FromPackage can only be specified once")
+                if ( defined $opt_package );
+            $opt_package = 1;
+            $opt_package_name = $1;
         } elsif ( m/^--FromPackage/ ) {
             Error ("FromPackage can only be specified once")
                 if ( defined $opt_package );
             $opt_package = 1;
         Verbose2 ("CopyDir: FromPackage: $src_dir");
         my @path;
         foreach my $entry ( getPackageList() )
+        {
+            #
+            #   Locate the named package if specified
+            #
+            if (defined $opt_package_name) {
+                next unless ($opt_package_name eq $entry->getName() || uc($opt_package_name) eq $entry->getUnifiedName() );
+            }
             my $base = $entry->getBase(3);
             next unless ( defined $base );
-            if ( -d $base . '/' . $src_dir )
+            if ( folderHasFiles( $base . '/' . $src_dir) )
+            {
                 push @path, $base;
                 $from_interface = 1
                     if ( $entry->{'TYPE'} eq 'interface' );
+            }
 #                   $stop       - Stop Number
 #                   Options:
 #                       --NoCopy        - Don't copy the script, just add links
 #                       --Afc           - Place in AFC init area
 #                       --FromPackage   - Source is in a package
+#                       --Hibernate     - Add hibernate symlink
+#                       --Resume        - Add resume symlink
+#
 # Returns         :
+#
 sub AddInitScript
+{
     my $no_copy;
     my $basedir = "";
     my @args;
     my $from_package = 0;
+    my $hibernate = 0;
+    my $resume = 0;
     return 1 unless ($ActiveSection);
     # This directive is only available on the VIX platforms
     #   Kludgey test - at the moment
+    #
             $basedir = "/afc";
         } elsif ( m/^--FromPackage/ ) {
             $from_package = 1;
+        } elsif ( m/^--Hibernate=(.*)/ ) {
+            $hibernate = $1;
+        } elsif ( m/^--Resume=(.*)/ ) {
+            $resume = $1;
         } elsif ( m/^--/ ) {
             Error ("AddInitScript: Unknown option: $_");
         } else {
             push @args, $_;
     my( $script, $start, $stop ) = @args;
     Error ("No script file specified") unless ( $script );
     Warning("AddInitScript: No start or stop index specified") unless ( $start || $stop );
     Verbose ("AddInitScript: $script, " . ($start || 'No Start') . ", " . ($stop || 'No Stop'));
     $script = ResolveFile($from_package, $script );
+    Message ("basedir: $basedir");
     my $tdir = $basedir . "/etc/init.d/init.d";
+    if ( $opt_platform eq 'SK100' ) {
+        $tdir = $basedir . "/etc/init.d/init.vix.d";
+    }
     my $base = StripDir($script);
     CopyFile( $script, $tdir ) unless $no_copy;
     my $link;
+    my $linkPath = "/etc/init.d/";
-    if ( $start )
+    if ( $opt_platform eq 'SK100' ) {
+        $linkPath = $basedir . "/etc/init.d/init.vix.d/";
-    {
+    }
+    if ( $start ) {
-        $link = sprintf ("${basedir}/etc/init.d/S%2.2d%s", $start, $base );
+        $link = sprintf ("${linkPath}S%2.2d%s", $start, $base );
         MakeSymLink( "$tdir/$base", $link);
+    }
-    if ( $stop )
+    if ( $stop ) {
+        $link = sprintf ("${linkPath}K%2.2d%s", $stop, $base );
+        MakeSymLink( "$tdir/$base", $link);
-    {
+    }
+    if ( $hibernate ) {
-        $link = sprintf ("${basedir}/etc/init.d/K%2.2d%s", $stop, $base );
+        $link = sprintf ("${linkPath}H%2.2d%s", $hibernate, $base );
         MakeSymLink( "$tdir/$base", $link);
+    }
+    if ( $resume ) {
+        $link = sprintf ("${linkPath}R%2.2d%s", $resume, $base );
+        MakeSymLink( "$tdir/$base", $link);
+    }
+    # on SK100 init script must be placed in rc.local.d and mus be sources and
+    # a start stop resume or suspend function must be implemented.
+    # For VIX these functions will call existing initscripts already package in
+    # a vix folder.
+    if ( $opt_platform eq 'SK100' ) {
+        my $service_file = "$base" . ".service";
+        Message ("creating service file for SK100: $service_file in $basedir");
+        unless (open FILE,'>'.$service_file) {
+            Error ("Failed to create Service file for SK100");
+        }
+        print FILE "#!/bin/sh\\n\\n# $base service file\n\n";
+        print FILE "start() {\n    [ -e /etc/init.d/init.vix.d/$base ] && /etc/init.d/init.vix.d/$base start\n}\n";
+        print FILE "stop() {\n    [ -e /etc/init.d/init.vix.d/$base ] && /etc/init.d/init.vix.d/$base stop\n}\n";
+        print FILE "restart() {\n    [ -e /etc/init.d/init.vix.d/$base ] && /etc/init.d/init.vix.d/$base restart\n}\n";
+        print FILE "suspend() {\n    [ -e /etc/init.d/init.vix.d/$base ] && /etc/init.d/init.vix.d/$base suspend\n}\n";
+        print FILE "resume() {\n    [ -e /etc/init.d/init.vix.d/$base ] && /etc/init.d/init.vix.d/$base resume\n}\n";
+        close FILE;
+        CopyFile($service_file, "/etc/init.d/rc.local.d", "$base");
+        SetFilePerms('a+rx', "/etc/init.d/rc.local.d/$base");
+    }
+}
 #-------------------------------------------------------------------------------
 # Function        : CatFile
+#
     Debug("RelPath: Result: $result");
     return $result;
+}
 #-------------------------------------------------------------------------------
+# Function        : folderHasFiles
+#
+# Description     : Detect empty folders
+#
+# Inputs          : dirname - Path to examine
+#
+# Returns         : TRUE - Is a folder and it has files
+#
+sub folderHasFiles {
+    my $dirname = shift;
+    my $rv = 0;
+    opendir(my $dh, $dirname) or return 0;
+    while (readdir $dh)
+    {
+        next if ($_ eq "." || $_ eq "..");
+        $rv = 1;
+        last;
+    }
+    closedir $dh;
+    return $rv;
+}
+#-------------------------------------------------------------------------------
 # Function        : ExpandLinkFiles
+#
 # Description     : Look for .LINK files in the output image and expand
 #                   the links into softlinks
+#

Subversion Repositories DevTools

(root)/debian_packager/trunk/src/tools/scripts/DebianPackager.pl – Rev 6242 → 6535