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

 use Getopt::Long;
 use File::Path;
 use File::Copy;
 use File::Find;
+use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
 use JatsSystem;
 use FileUtils;
 use ArrayHashUtils;
 use JatsError;
 use JatsLocateFiles;
 my $opt_pkgbindir;
 my $opt_pkgpkgdir;
 my $opt_noarch;
 my $opt_tarFile;
 my $opt_tarOnly;
+my $opt_zipFile;
+my $opt_zipOnly;
 my $opt_rpm = 0;
 my $opt_debian = 0;
 my $opt_output;
+#
                 'ExtDesc:s'         => \$opt_extdesc,
                 'PkgArch:s'         => \$opt_pkgarch,
                 'NoArch'            => \$opt_noarch,
                 'tarFile=s'         => \$opt_tarFile,
                 'tarOnly'           => \$opt_tarOnly,
+                'zipFile=s'         => \$opt_zipFile,
+                'zipOnly'           => \$opt_zipOnly,
                 'genRpm'            => \$opt_rpm,
                 'genDeb'            => \$opt_debian,
                 'output=s'          => \$opt_output,
                 'script=s'          => \$opt_package_script,
                 'rpmRelease=s'      => \$opt_rpmRelease,
+    #
     #   Determine build operations
+    #
     my $genDebian = $opt_debian;
     my $genRpm = $opt_rpm;
-    if ($opt_tarOnly) {
+    if ($opt_tarOnly || $opt_zipOnly) {
         $genDebian = $genRpm = 0;
+    }
+    #
+    #
     Message    ("= Building Installer ================================================");
     Message    ("        Format: Debian") if ($genDebian);
     Message    ("        Format: RPM") if ($genRpm);
     Message    ("        Format: TGZ") if ($opt_tarFile);
+    Message    ("        Format: ZIP") if ($opt_zipFile);
     Message    ("          Name: $opt_name");
     Message    ("       Package: $opt_buildname");
     Message    ("       Variant: $opt_variant") if ($opt_variant);
     Message    ("       Version: $opt_version");
     Message    ("  Building for: $opt_platform");
     Message    ("      Pkg Arch: $opt_pkgarch") if ($opt_pkgarch);
     Verbose    ("       Verbose: $opt_verbose");
     Verbose    ("  InterfaceDir: $opt_interfacedir");
     Message    ("        Output: " . StripDir($opt_output))  if ($genDebian || $genRpm);
     Message    ("        Output: " . StripDir($opt_tarFile)) if $opt_tarFile;
+    Message    ("        Output: " . StripDir($opt_zipFile)) if $opt_zipFile;
     Message    ("======================================================================");
+    #
     #   Perform Clean up
     #   Invoked during "make clean" or "make clobber"
         #   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_zipFile) if ( defined($opt_zipFile) && -f $opt_zipFile );
         rmtree ($opt_output) if ( $opt_output && -f $opt_output );
         exit;
+    }
+    #
     if ($opt_tarFile) {
         BuildTarFile();
         Message ("Created TGZ file");
+    }
+    if ($opt_zipFile) {
+        BuildZipFile();
+        Message ("Created ZIP file");
+    }
+    #
     #   Create an RPM
+    #
     if ($genRpm) {
         BuildRPM ();
             '.'
             );
+}
 #-------------------------------------------------------------------------------
+# Function        : BuildZipFile
+#
+# Description     : This function will create a ZIP file of the constructed package
+#                   Not often used
+#
+#                   Tricky bit is excluding the DEBIAN directory
+#
+# Inputs          : None
+#
+# Returns         : Nothing
+#
+sub BuildZipFile
+{
+    Verbose ("Create ZIP file containing body of the package");
+    my $zip = Archive::Zip->new();
+    $zip->addTree( $WorkDirInit, '', sub { $_ !~ m~^DEBIAN$~ } );
+    if ( $zip->writeToFileNamed($opt_zipFile) != AZ_OK ) {
+        Error("Canot create ZIP file");
+    }
+}
+#-------------------------------------------------------------------------------
 # Function        : Section
+#
 # Description     : Allows the Package file to be split into section
 #                   This direcive is always active.
+#
 # Inputs          : Selector
 #                       ALL     - Active
 #                       RPM     - Active section when building an RPM
 #                       DEBIAN  - Active section if build a Debian package
 #                       TAR     - Active section if building a TAR
+#                       ZIP     - Active section if building a ZIP
+#
 # Returns         : Nothing
 #                   Will fkag to indicate if directives are active.
+#
 sub Section
             $newActiveSection = 1 if  $flip->($opt_rpm, $1);
         } elsif ($arg =~ m/^(!)*TAR/i) {
             $newActiveSection = 1 if $flip->($opt_tarFile, $1);
+        } elsif ($arg =~ m/^(!)*ZIP/i) {
+            $newActiveSection = 1 if $flip->($opt_zipFile, $1);
         } elsif (uc($arg) eq 'ALL') {
             $newActiveSection = 1;
         } elsif ( $arg eq 1  ) {
                 $newActiveSection = 1;
 #                   IsVariant
 #                   IsAlias
 #                   IsDebian
 #                   IsRpm
 #                   IsTar
+#                   IsZip
+#
 # Description     : This function allows some level of control in the
 #                   packaging scripts. It will return true if the current
 #                   product is listed.
+#
 sub IsTar()
+{
     return $opt_tarFile ? 1 : 0;
+}
+sub IsZip()
+{
+    return $opt_zipFile ? 1 : 0;
+}
 #-------------------------------------------------------------------------------
 # Function        : PackageVersion
+#
 # Description     : Return the version of the named package
+#
+#
 sub folderHasFiles {
     my $dirname = shift;
     my $rv = 0;
+    my $dh;
+    return 0 unless -d $dirname;
-    opendir(my $dh, $dirname) or return 0;
+    opendir($dh, $dirname) || return 0;
-    while (readdir $dh)
+    while (my $file = readdir $dh)
+    {
+        next unless (defined $file);
-        next if ($_ eq "." || $_ eq "..");
+        next if ($file eq "." || $file eq "..");
         $rv = 1;
         last;
+    }
     closedir $dh;
     return $rv;

Subversion Repositories DevTools

(root)/debian_packager/trunk/src/tools/scripts/DebianPackager.pl – Rev 6738 → 6937