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



our $opt_buildname;
our $opt_buildversion;
our $opt_target;
our $opt_product;
our $opt_name;
our $opt_version;
our $opt_variant;
our $opt_versionprefix;
our $opt_extdesc;
our $opt_pkgarch;
our $opt_rpmRelease = '';
 
#
#   Options derived from script directives

                'verbose:s'         => \$opt_vargs,
                'clean'             => \$opt_clean,
                'Type=s'            => \$opt_type,
                'BuildName=s'       => \$opt_buildname,                     # Raw Jats Package Name (Do not use)
                'Name=s'            => \$opt_name,                          # Massaged Debian Package Name
                'Version=s'         => \$opt_version,                       # Massaged Debian Version
                'BuildVersion=s'    => \$opt_buildversion,
                'Platform=s'        => \$opt_platform,
                'Target=s'          => \$opt_target,
                'Product=s'         => \$opt_product,
                'InterfaceDir=s'    => \$opt_interfacedir,

                'LocalBinDir=s'     => \$opt_localbindir,
                'PackageDir=s'      => \$opt_pkgdir,
                'PackageLibDir=s'   => \$opt_pkglibdir,
                'PackageBinDir=s'   => \$opt_pkgbindir,
                'PackagePkgDir=s'   => \$opt_pkgpkgdir,
                'VersionPrefix:s'   => \$opt_versionprefix,
                'Variant:s'         => \$opt_variant,
                'ExtDesc:s'         => \$opt_extdesc,
                'PkgArch:s'         => \$opt_pkgarch,
                'NoArch'            => \$opt_noarch,
                'tarFile=s'         => \$opt_tarFile,
                'tarOnly'           => \$opt_tarOnly,
                'genRpm'            => \$opt_rpm,

    #   Ensure that we have all required options
    #
    Error ("Platform not set")                  unless ( $opt_platform );
    Error ("Type not set")                      unless ( $opt_type );
    Error ("BuildName not set")                 unless ( $opt_buildname );
 
    Error ("BuildVersion not set")              unless ( $opt_buildversion );
    Error ("Package Name not set")              unless ( $opt_name );
    Error ("Package Version not set")           unless ( $opt_version );
    Error ("InterfaceDir not set")              unless ( $opt_interfacedir );
    Error ("Target not set")                    unless ( $opt_target );
    Error ("Product not set")                   unless ( $opt_product );
    Error ("Packaging Script not set")          unless ( $opt_package_script );
 

    Message    ("        Format: RPM") if ($genRpm);
    Message    ("        Format: TGZ") if ($opt_tarFile);
    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    ("        Target: $opt_target") if ( $opt_platform ne $opt_target);
    Message    ("       Product: $opt_product") if ($opt_product ne $opt_platform);
    Message    ("          Type: $opt_type");
    Message    ("   RPM Release: $opt_rpmRelease") if ($opt_rpmRelease);

        s~\s*$~~;
        if ( m~^Package:~ ) {
            $_ = "Package: $opt_name";
 
        } elsif ( m~^Version:~ ) {
            $_ = "Version: $opt_version";
 
        } elsif ( m~^Architecture:~ ) {
            $_ = "Architecture: $opt_pkgarch";
 
        } elsif ( $opt_description && m~^Description:~ ) {

 
    my $depData = join (', ', @DependencyList );
 
    open (DF, '>', $dst) || Error ("CreateDebianControlFile: Cannot create:$dst");
    print DF "Package: $opt_name\n";
    print DF "Version: $opt_version\n";
    print DF "Section: main\n";
    print DF "Priority: standard\n";
    print DF "Architecture: $opt_pkgarch\n";
    print DF "Essential: No\n";
    print DF "Maintainer: Vix Technology\n";

        s~\s*$~~;
        if ( m~^tag_Name~i ) {
            $_ = "Name: $opt_name";
 
        } elsif ( m~^tag_Version~i ) {
            $_ = "Version: $opt_version";
 
        } elsif ( m~^tag_BuildArch~i ) {
            $_ = "BuildArch: $opt_pkgarch";
 
        } elsif ( m~^tag_Release~i ) {

 
    # Standard tags
    print $sf ("# Standard SPEC Tags\n");
    print $sf "Summary:        Installer for the $opt_name Package\n";
    print $sf "Name:           $opt_name\n";
    print $sf "Version:        $opt_version\n";
    print $sf "Release:        $opt_rpmRelease\n";
    print $sf "License:        COPYRIGHT - VIX IP PTY LTD (\"VIX\"). ALL RIGHTS RESERVED.\n";
    print $sf "Source:         None\n";
    print $sf "BuildArch:      $opt_pkgarch\n";
    print $sf "Group:          VIX/System\n";

Rev 6689	Rev 6738
Line 144...	Line 144...
144	`our $opt_buildname;`	144	`our $opt_buildname;`
145	`our $opt_buildversion;`	145	`our $opt_buildversion;`
146	`our $opt_target;`	146	`our $opt_target;`
147	`our $opt_product;`	147	`our $opt_product;`
148	`our $opt_name;`	148	`our $opt_name;`
-		149	`our $opt_version;`
149	`our $opt_variant;`	150	`our $opt_variant;`
-		151	`our $opt_versionprefix;`
-		152	`our $opt_extdesc;`
150	`our $opt_pkgarch;`	153	`our $opt_pkgarch;`
151	`our $opt_rpmRelease = '';`	154	`our $opt_rpmRelease = '';`
152		155
153	`#`	156	`#`
154	`# Options derived from script directives`	157	`# Options derived from script directives`
Line 197...	Line 200...
197	`'verbose:s' => \$opt_vargs,`	200	`'verbose:s' => \$opt_vargs,`
198	`'clean' => \$opt_clean,`	201	`'clean' => \$opt_clean,`
199	`'Type=s' => \$opt_type,`	202	`'Type=s' => \$opt_type,`
200	`'BuildName=s' => \$opt_buildname, # Raw Jats Package Name (Do not use)`	203	`'BuildName=s' => \$opt_buildname, # Raw Jats Package Name (Do not use)`
201	`'Name=s' => \$opt_name, # Massaged Debian Package Name`	204	`'Name=s' => \$opt_name, # Massaged Debian Package Name`
-		205	`'Version=s' => \$opt_version, # Massaged Debian Version`
202	`'BuildVersion=s' => \$opt_buildversion,`	206	`'BuildVersion=s' => \$opt_buildversion,`
203	`'Platform=s' => \$opt_platform,`	207	`'Platform=s' => \$opt_platform,`
204	`'Target=s' => \$opt_target,`	208	`'Target=s' => \$opt_target,`
205	`'Product=s' => \$opt_product,`	209	`'Product=s' => \$opt_product,`
206	`'InterfaceDir=s' => \$opt_interfacedir,`	210	`'InterfaceDir=s' => \$opt_interfacedir,`
Line 214...	Line 218...
214	`'LocalBinDir=s' => \$opt_localbindir,`	218	`'LocalBinDir=s' => \$opt_localbindir,`
215	`'PackageDir=s' => \$opt_pkgdir,`	219	`'PackageDir=s' => \$opt_pkgdir,`
216	`'PackageLibDir=s' => \$opt_pkglibdir,`	220	`'PackageLibDir=s' => \$opt_pkglibdir,`
217	`'PackageBinDir=s' => \$opt_pkgbindir,`	221	`'PackageBinDir=s' => \$opt_pkgbindir,`
218	`'PackagePkgDir=s' => \$opt_pkgpkgdir,`	222	`'PackagePkgDir=s' => \$opt_pkgpkgdir,`
-		223	`'VersionPrefix:s' => \$opt_versionprefix,`
219	`'Variant:s' => \$opt_variant,`	224	`'Variant:s' => \$opt_variant,`
-		225	`'ExtDesc:s' => \$opt_extdesc,`
220	`'PkgArch:s' => \$opt_pkgarch,`	226	`'PkgArch:s' => \$opt_pkgarch,`
221	`'NoArch' => \$opt_noarch,`	227	`'NoArch' => \$opt_noarch,`
222	`'tarFile=s' => \$opt_tarFile,`	228	`'tarFile=s' => \$opt_tarFile,`
223	`'tarOnly' => \$opt_tarOnly,`	229	`'tarOnly' => \$opt_tarOnly,`
224	`'genRpm' => \$opt_rpm,`	230	`'genRpm' => \$opt_rpm,`
Line 242...	Line 248...
242	`# Ensure that we have all required options`	248	`# Ensure that we have all required options`
243	`#`	249	`#`
244	`Error ("Platform not set") unless ( $opt_platform );`	250	`Error ("Platform not set") unless ( $opt_platform );`
245	`Error ("Type not set") unless ( $opt_type );`	251	`Error ("Type not set") unless ( $opt_type );`
246	`Error ("BuildName not set") unless ( $opt_buildname );`	252	`Error ("BuildName not set") unless ( $opt_buildname );`
247	`Error ("Package Name not set") unless ( $opt_name );`	-
248	`Error ("BuildVersion not set") unless ( $opt_buildversion );`	253	`Error ("BuildVersion not set") unless ( $opt_buildversion );`
-		254	`Error ("Package Name not set") unless ( $opt_name );`
-		255	`Error ("Package Version not set") unless ( $opt_version );`
249	`Error ("InterfaceDir not set") unless ( $opt_interfacedir );`	256	`Error ("InterfaceDir not set") unless ( $opt_interfacedir );`
250	`Error ("Target not set") unless ( $opt_target );`	257	`Error ("Target not set") unless ( $opt_target );`
251	`Error ("Product not set") unless ( $opt_product );`	258	`Error ("Product not set") unless ( $opt_product );`
252	`Error ("Packaging Script not set") unless ( $opt_package_script );`	259	`Error ("Packaging Script not set") unless ( $opt_package_script );`
253		260
Line 291...	Line 298...
291	`Message (" Format: RPM") if ($genRpm);`	298	`Message (" Format: RPM") if ($genRpm);`
292	`Message (" Format: TGZ") if ($opt_tarFile);`	299	`Message (" Format: TGZ") if ($opt_tarFile);`
293	`Message (" Name: $opt_name");`	300	`Message (" Name: $opt_name");`
294	`Message (" Package: $opt_buildname");`	301	`Message (" Package: $opt_buildname");`
295	`Message (" Variant: $opt_variant") if ($opt_variant);`	302	`Message (" Variant: $opt_variant") if ($opt_variant);`
296	`Message (" Version: $opt_buildversion");`	303	`Message (" Version: $opt_version");`
297	`Message (" Building for: $opt_platform");`	304	`Message (" Building for: $opt_platform");`
298	`Message (" Target: $opt_target") if ( $opt_platform ne $opt_target);`	305	`Message (" Target: $opt_target") if ( $opt_platform ne $opt_target);`
299	`Message (" Product: $opt_product") if ($opt_product ne $opt_platform);`	306	`Message (" Product: $opt_product") if ($opt_product ne $opt_platform);`
300	`Message (" Type: $opt_type");`	307	`Message (" Type: $opt_type");`
301	`Message (" RPM Release: $opt_rpmRelease") if ($opt_rpmRelease);`	308	`Message (" RPM Release: $opt_rpmRelease") if ($opt_rpmRelease);`
Line 624...	Line 631...
624	`s~\s*$~~;`	631	`s~\s*$~~;`
625	`if ( m~^Package:~ ) {`	632	`if ( m~^Package:~ ) {`
626	`$_ = "Package: $opt_name";`	633	`$_ = "Package: $opt_name";`
627		634
628	`} elsif ( m~^Version:~ ) {`	635	`} elsif ( m~^Version:~ ) {`
629	`$_ = "Version: $opt_buildversion";`	636	`$_ = "Version: $opt_version";`
630		637
631	`} elsif ( m~^Architecture:~ ) {`	638	`} elsif ( m~^Architecture:~ ) {`
632	`$_ = "Architecture: $opt_pkgarch";`	639	`$_ = "Architecture: $opt_pkgarch";`
633		640
634	`} elsif ( $opt_description && m~^Description:~ ) {`	641	`} elsif ( $opt_description && m~^Description:~ ) {`
Line 669...	Line 676...
669		676
670	`my $depData = join (', ', @DependencyList );`	677	`my $depData = join (', ', @DependencyList );`
671		678
672	`open (DF, '>', $dst) \|\| Error ("CreateDebianControlFile: Cannot create:$dst");`	679	`open (DF, '>', $dst) \|\| Error ("CreateDebianControlFile: Cannot create:$dst");`
673	`print DF "Package: $opt_name\n";`	680	`print DF "Package: $opt_name\n";`
674	`print DF "Version: $opt_buildversion\n";`	681	`print DF "Version: $opt_version\n";`
675	`print DF "Section: main\n";`	682	`print DF "Section: main\n";`
676	`print DF "Priority: standard\n";`	683	`print DF "Priority: standard\n";`
677	`print DF "Architecture: $opt_pkgarch\n";`	684	`print DF "Architecture: $opt_pkgarch\n";`
678	`print DF "Essential: No\n";`	685	`print DF "Essential: No\n";`
679	`print DF "Maintainer: Vix Technology\n";`	686	`print DF "Maintainer: Vix Technology\n";`
Line 733...	Line 740...
733	`s~\s*$~~;`	740	`s~\s*$~~;`
734	`if ( m~^tag_Name~i ) {`	741	`if ( m~^tag_Name~i ) {`
735	`$_ = "Name: $opt_name";`	742	`$_ = "Name: $opt_name";`
736		743
737	`} elsif ( m~^tag_Version~i ) {`	744	`} elsif ( m~^tag_Version~i ) {`
738	`$_ = "Version: $opt_buildversion";`	745	`$_ = "Version: $opt_version";`
739		746
740	`} elsif ( m~^tag_BuildArch~i ) {`	747	`} elsif ( m~^tag_BuildArch~i ) {`
741	`$_ = "BuildArch: $opt_pkgarch";`	748	`$_ = "BuildArch: $opt_pkgarch";`
742		749
743	`} elsif ( m~^tag_Release~i ) {`	750	`} elsif ( m~^tag_Release~i ) {`
Line 793...	Line 800...
793		800
794	`# Standard tags`	801	`# Standard tags`
795	`print $sf ("# Standard SPEC Tags\n");`	802	`print $sf ("# Standard SPEC Tags\n");`
796	`print $sf "Summary: Installer for the $opt_name Package\n";`	803	`print $sf "Summary: Installer for the $opt_name Package\n";`
797	`print $sf "Name: $opt_name\n";`	804	`print $sf "Name: $opt_name\n";`
798	`print $sf "Version: $opt_buildversion\n";`	805	`print $sf "Version: $opt_version\n";`
799	`print $sf "Release: $opt_rpmRelease\n";`	806	`print $sf "Release: $opt_rpmRelease\n";`
800	`print $sf "License: COPYRIGHT - VIX IP PTY LTD (\"VIX\"). ALL RIGHTS RESERVED.\n";`	807	`print $sf "License: COPYRIGHT - VIX IP PTY LTD (\"VIX\"). ALL RIGHTS RESERVED.\n";`
801	`print $sf "Source: None\n";`	808	`print $sf "Source: None\n";`
802	`print $sf "BuildArch: $opt_pkgarch\n";`	809	`print $sf "BuildArch: $opt_pkgarch\n";`
803	`print $sf "Group: VIX/System\n";`	810	`print $sf "Group: VIX/System\n";`

Subversion Repositories DevTools

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