Subversion Repositories DevTools

Rev

Rev 4641 | Rev 4672 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4641 Rev 4666
Line 132... Line 132...
132 
my @ResolveBinFileList;                 # Cached PackageBin File List
 132 
my @ResolveBinFileList;                 # Cached PackageBin File List
133 
my @ResolveLibFileList;                 # Cached PackageLib File List
 133 
my @ResolveLibFileList;                 # Cached PackageLib File List
134 
my %DebianControlFiles;                 # Control Files
 134 
my %DebianControlFiles;                 # Control Files
135 
my %DebianControlFileNames;             # Control Files by name
 135 
my %DebianControlFileNames;             # Control Files by name
136 
my @DependencyList;                     # Package Dependencies
 136 
my @DependencyList;                     # Package Dependencies
- 
 
 137 
my @ConfigList;                         # Config Files
137 
 
 138 
 
138 
#-------------------------------------------------------------------------------
 139 
#-------------------------------------------------------------------------------
139 
# Function        : Main Entry point
 140 
# Function        : Main Entry point
140 
#
 141 
#
141 
# Description     : This function will be called when the package is initialised
 142 
# Description     : This function will be called when the package is initialised
Line 324... Line 325...
324 
    foreach my $key ( keys %DebianControlFiles )
 325 
    foreach my $key ( keys %DebianControlFiles )
325 
    {
 326 
    {
326 
        next if ($key eq 'control');
 327 
        next if ($key eq 'control');
327 
        CopyFile ( $DebianControlFiles{$key},    "/DEBIAN", $key );
 328 
        CopyFile ( $DebianControlFiles{$key},    "/DEBIAN", $key );
328 
    }
 329 
    }
- 
 
 330 
 
- 
 
 331 
    #
- 
 
 332 
    #   Create 'conffiles'
- 
 
 333 
    #       Append to any user provided file
- 
 
 334 
    if ( @ConfigList )
- 
 
 335 
    {
- 
 
 336 
        my $conffiles = "$DebianWorkDir/DEBIAN/conffiles";
- 
 
 337 
        Warning("Appending user specified entries to conffiles") if ( -f $conffiles);
- 
 
 338 
        FileAppend( $conffiles, @ConfigList );
- 
 
 339 
    }
329
340
330 
    #
 341 
    #
331 
    #   Massage the 'control' file
 342 
    #   Massage the 'control' file
332 
    #
 343 
    #
333 
    UpdateControlFile ($DebianControlFiles{'control'} );
 344 
    UpdateControlFile ($DebianControlFiles{'control'} );
Line 760... Line 771...
760 
#                   Options
 771 
#                   Options
761 
#                   Options:
 772 
#                   Options:
762 
#                       --FromPackage
 773 
#                       --FromPackage
763 
#                       --SoftLink=xxxx
 774 
#                       --SoftLink=xxxx
764 
#                       --LinkFile=xxxx
 775 
#                       --LinkFile=xxxx
- 
 
 776 
#                       --ConfigFile
765 
#
 777 
#
766 
# Returns         :
778 
# Returns         :
767 
#
 779 
#
768 
sub CopyFileCommon
 780 
sub CopyFileCommon
769 
{
 781 
{
770 
    my $from_package = 0;
 782 
    my $from_package = 0;
771 
    my $isa_linkfile = 0;
 783 
    my $isa_linkfile = 0;
- 
 
 784 
    my $isa_configFile = 0;
772 
    my @llist;
 785 
    my @llist;
773 
    my @args;
 786 
    my @args;
774 
 
 787 
 
775 
    #
 788 
    #
776 
    #   Parse options
 789 
    #   Parse options
Line 781... Line 794...
781 
            $from_package = 1;
 794 
            $from_package = 1;
782 
 
 795 
 
783 
        } elsif ( m/^--LinkFile/ ) {
 796 
        } elsif ( m/^--LinkFile/ ) {
784 
            $isa_linkfile = 1;
 797 
            $isa_linkfile = 1;
785 
 
 798 
 
- 
 
 799 
        } elsif ( m/^--ConfFile/i ) {
- 
 
 800 
            $isa_configFile = 1;
- 
 
 801 
 
786 
        } elsif ( m/^--SoftLink=(.+)/ ) {
 802 
        } elsif ( m/^--SoftLink=(.+)/ ) {
787 
            push @llist, $1;
 803 
            push @llist, $1;
788 
 
 804 
 
789 
        } elsif ( m/^--/ ) {
 805 
        } elsif ( m/^--/ ) {
790 
            Error ("FileCopy: Unknown option: $_");
 806 
            Error ("FileCopy: Unknown option: $_");
Line 833... Line 849...
833 
            {
 849 
            {
834 
                $lname = $dst_dir . '/' . $lname unless ( $lname =~ m ~^/~ );
 850 
                $lname = $dst_dir . '/' . $lname unless ( $lname =~ m ~^/~ );
835 
                MakeSymLink( $dst_file ,$lname);
 851 
                MakeSymLink( $dst_file ,$lname);
836 
            }
 852 
            }
837 
        }
 853 
        }
- 
 
 854 
 
- 
 
 855 
        #
- 
 
 856 
        #   ConfigFiles are marked so that they can be handled by the debain installer
- 
 
 857 
        #
- 
 
 858 
        if ($isa_configFile)
- 
 
 859 
        {
- 
 
 860 
            push @ConfigList, $dst_file;
- 
 
 861 
        }
838 
    }
 862 
    }
839 
}
 863 
}
840 
 
 864 
 
841 
#-------------------------------------------------------------------------------
 865 
#-------------------------------------------------------------------------------
842 
# Function        : CopyDir
 866 
# Function        : CopyDir