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 |
} |