--- /dev/null
+#!/usr/bin/perl
+#
+#
+# Benchmark script for Sergey's marc db schema
+
+
+use DBI;
+
+my $dbh=DBI->connect("dbi:mysql:kohabenchmark", 'youruserid', 'yourpassword');
+
+my $count=$ARGV[0];
+my $print=$ARGV[1];
+my $max=$ARGV[2];
+my $bibid=$ARGV[3];
+($max) || ($max=79998);
+
+
+for ($i=0; $i<$count; $i++) {
+ ($bibid) || ($bibid=int(rand($max))+1);
+ ($print) && (print "BIBID: $bibid\n");
+ my $sth=$dbh->prepare("select F.tag,S.subfieldcode,S.subfieldvalue from marc_field_table_sergey F,marc_subfield_table_sergey S where F.fieldid=S.fieldid and F.bibid=$bibid order by F.fieldid,S.subfieldorder");
+ $sth->execute;
+ my $lasttag='';
+ while (my ($tag,$subfieldcode,$subfieldvalue) = $sth->fetchrow) {
+ if ($tag ne $lasttag) {
+ ($print) && (print " Tag: $tag\n");
+ $lasttag=$tag;
+ }
+ ($print) && (print " $subfieldcode $subfieldvalue\n");
+ }
+ $bibid=0;
+}