Subversion Repositories DevTools

Rev

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

Rev 5527 Rev 5532
Line 122... Line 122...
122 
# Description:
 122 
# Description:
123 
#       This sub-routine is used to generate a consistent informational log
 123 
#       This sub-routine is used to generate a consistent informational log
124 
#------------------------------------------------------------------------------
 124 
#------------------------------------------------------------------------------
125 
{
 125 
{
126 
    my ($opr, $file) = @_;
 126 
    my ($opr, $file) = @_;
127 
    $file =~ s/$DPKG_ROOT/DPKG/;
 127 
    $file =~ s/\Q$DPKG_ROOT\E/DPKG/;
128 
    $file =~ s/$SRC_ROOT/PKG/;
 128 
    $file =~ s/\Q$SRC_ROOT\E/PKG/;
129 
 
 129 
 
130 
    Information (sprintf( "%-15s [%s]", $opr, $file));
 130 
    Information (sprintf( "%-15s [%s]", $opr, $file));
131 
}
 131 
}
132 
 
 132 
 
133 
#-------------------------------------------------------------------------------
 133 
#-------------------------------------------------------------------------------
Line 155... Line 155...
155 
        binmode $fh, ':crlf';
 155 
        binmode $fh, ':crlf';
156 
        $md5sum = Digest::MD5->new->addfile($fh)->hexdigest;
 156 
        $md5sum = Digest::MD5->new->addfile($fh)->hexdigest;
157 
        close $fh;
 157 
        close $fh;
158 
    }
 158 
    }
159 
 
 159 
 
160 
    $target =~ s~$DPKG_DIR~~;
 160 
    $target =~ s~\Q$DPKG_DIR\E~~;
161 
    $target =~ s~^/~~;
 161 
    $target =~ s~^/~~;
162 
    $target =~ s~/$~~;
 162 
    $target =~ s~/$~~;
163 
 
 163 
 
164 
    #
 164 
    #
165 
    #   Convert from iso-8859-1 into utf-8
 165 
    #   Convert from iso-8859-1 into utf-8
Line 557... Line 557...
557 
        #
 557 
        #
558 
        #   Only grab the first one
 558 
        #   Only grab the first one
559 
        #
 559 
        #
560 
        if ( $DESCPKG_FILE )
 560 
        if ( $DESCPKG_FILE )
561 
        {
 561 
        {
562 
            $item =~ s~$PKG_BASE/~~;
 562 
            $item =~ s~\Q$PKG_BASE\E/~~;
563 
            Verbose ("Multiple descpkg files:", $item );
 563 
            Verbose ("Multiple descpkg files:", $item );
564 
            return;
 564 
            return;
565 
        }
 565 
        }
566 
 
 566 
 
567 
        $DESCPKG_FILE = $item;
 567 
        $DESCPKG_FILE = $item;