Subversion Repositories DevTools

Rev

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

Rev 2026 Rev 4612
Line 107... Line 107...
107 
    connectRM(\$RM_DB) unless ( $RM_DB );
 107 
    connectRM(\$RM_DB) unless ( $RM_DB );
108 
 
 108 
 
109 
    #
 109 
    #
110 
    #   Extract data from Release Manager
 110 
    #   Extract data from Release Manager
111 
    #
 111 
    #
112 
    my $m_sqlstr = "SELECT pkg.PKG_NAME, pkg.PKG_ID, pv.PKG_VERSION, pv.PV_ID, pv.SRC_PATH" .
 112 
    my $m_sqlstr = "SELECT pkg.PKG_NAME, pkg.PKG_ID, pv.PKG_VERSION, pv.PV_ID, pv.COMMENTS" .
113 
                   " FROM PACKAGES pkg, PACKAGE_VERSIONS pv" .
 113 
                   " FROM PACKAGES pkg, PACKAGE_VERSIONS pv" .
114 
                   " WHERE pkg.PKG_NAME = \'$pkg_name\' AND pkg.PKG_ID = pv.PKG_ID AND pv.PKG_VERSION = \'$pkg_ver\'";
 114 
                   " WHERE pkg.PKG_NAME = \'$pkg_name\' AND pkg.PKG_ID = pv.PKG_ID AND pv.PKG_VERSION = \'$pkg_ver\'";
115
115
116 
    my $sth = $RM_DB->prepare($m_sqlstr);
 116 
    my $sth = $RM_DB->prepare($m_sqlstr);
117 
    if ( defined($sth) )
 117 
    if ( defined($sth) )
Line 121... Line 121...
121 
            if ( $sth->rows )
 121 
            if ( $sth->rows )
122 
            {
 122 
            {
123 
                while ( @row = $sth->fetchrow_array )
 123 
                while ( @row = $sth->fetchrow_array )
124 
                {
 124 
                {
125 
                    Verbose( "DATA: " . join(',', @row) );
 125 
                    Verbose( "DATA: " . join(',', @row) );
126 
                    my $path = $row[4] || 'None Specified';
 126 
                    my $comment = $row[4] || 'None Specified';
127 
                    print "$pkg_name, $pkg_ver, $path\n";
 127 
                    print "$pkg_name, $pkg_ver, $comment\n";
- 
 
 128 
                    foreach my $ch ( split(//,$comment))
- 
 
 129 
                    {
- 
 
 130 
                        print("$ch ".ord($ch)."\n");
- 
 
 131 
                    }
- 
 
 132
128 
                    last;
 133 
                    last;
129 
                }
 134 
                }
130 
            }
 135 
            }
131 
            $sth->finish();
 136 
            $sth->finish();
132 
        }
 137 
        }