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;