|
Lines 17-23
Link Here
|
| 17 |
$dbh=&Test::Repocop::SQL::connect_db($dbfile); |
17 |
$dbh=&Test::Repocop::SQL::connect_db($dbfile); |
| 18 |
$sth_insert_files=$dbh->prepare('INSERT INTO RPM_FILES VALUES(?,?,?,?,?,?,?,?,?)') or die $dbh->errstr; |
18 |
$sth_insert_files=$dbh->prepare('INSERT INTO RPM_FILES VALUES(?,?,?,?,?,?,?,?,?)') or die $dbh->errstr; |
| 19 |
$sth_insert_srcfiles=$dbh->prepare('INSERT INTO SRCRPM_FILES VALUES(?,?,?,?,?,?,?,?,?)') or die $dbh->errstr; |
19 |
$sth_insert_srcfiles=$dbh->prepare('INSERT INTO SRCRPM_FILES VALUES(?,?,?,?,?,?,?,?,?)') or die $dbh->errstr; |
| 20 |
$sth_insert_metadata=$dbh->prepare('INSERT INTO RPM VALUES(?,?,?,?,?,?,?,?,?,?,?)') or die $dbh->errstr; |
20 |
$sth_insert_metadata=$dbh->prepare('INSERT INTO RPM VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?)') or die $dbh->errstr; |
| 21 |
$sth_insert_triggers=$dbh->prepare('INSERT INTO RPM_TRIGGERS VALUES(?,?,?,?,?,?,?)') or die $dbh->errstr; |
21 |
$sth_insert_triggers=$dbh->prepare('INSERT INTO RPM_TRIGGERS VALUES(?,?,?,?,?,?,?)') or die $dbh->errstr; |
| 22 |
} |
22 |
} |
| 23 |
|
23 |
|
|
Lines 108-114
Link Here
|
| 108 |
} |
108 |
} |
| 109 |
|
109 |
|
| 110 |
my @rpm_metadata=($key); |
110 |
my @rpm_metadata=($key); |
| 111 |
foreach my $tag ('NAME','VERSION','RELEASE','ARCH','EPOCH','PACKAGER','COPYRIGHT','GROUP','URL','SOURCERPM') { |
111 |
foreach my $tag ('NAME','VERSION','RELEASE','ARCH','EPOCH','PACKAGER','COPYRIGHT','GROUP','URL','SOURCERPM','DISTRIBUTION','VENDOR') { |
| 112 |
my $val = $rhref->{$tag}; |
112 |
my $val = $rhref->{$tag}; |
| 113 |
push @rpm_metadata, $val; |
113 |
push @rpm_metadata, $val; |
| 114 |
} |
114 |
} |