head	1.1;
branch	1.1.1;
access;
symbols
	pjones-sparse-experiment:1.1.1.1.0.6
	rpm-4_3_1-start:1.1.1.1
	rpm-4_3:1.1.1.1.0.4
	rpm-4_2_1-release:1.1.1.1
	rpm-4_2-release:1.1.1.1
	rpm-4_2:1.1.1.1.0.2
	postmerge-lsbpkgchk-1_2_1_20021023:1.1.1.1
	premerge-lsbpkgchk-1_2_1_20021023:1.1.1.1
	lsbpkgchk-1_2_1_20021023:1.1.1.1
	pre-lsbpkgchk-1_2_1_20021023:1.1.1.1
	lsbpkgchk-1_2_1_20021017:1.1.1.1
	lsbpkgchk:1.1.1;
locks; strict;
comment	@# @;


1.1
date	2002.10.23.15.39.41;	author jbj;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	2002.10.23.15.39.41;	author jbj;	state Exp;
branches;
next	;


desc
@@


1.1
log
@Initial revision
@
text
@#!/usr/bin/perl

use Mysql;

use Env qw(LSBUSER LSBDBPASSWD LSBDB LSBDBHOST);

$Dbh = Mysql->connect($LSBDBHOST,$LSBDB,$LSBUSER, $LSBDBPASSWD) || die $Mysql::db_errstr;

sub
dumpenum($$)
{
local($ttype,$tname)=@@_;

$select = "SELECT DISTINCT * FROM RpmTag ";
$select.= "WHERE Rgroup='".$ttype."' ";
$select.= "ORDER BY Rtag ";

#print "$select\n";

$sth = $Dbh->query($select) || die $Dbh->errmsg();

print "typedef enum {\n";

for(1..$sth->numrows) {
	%entry=$sth->fetchhash;
	printf "\t%s\t= %d,\n", $entry{'Rname'}, $entry{'Rtag'};
	}
printf "\t} %s;\n\n", $tname;
}

print "/* Generated file - Do Not Edit */\n\n";

dumpenum("Private","HdrPrivIndexTag");
dumpenum("Signature","SigIndexTag");
dumpenum("Header","RpmIndexTag");

@


1.1.1.1
log
@track: auto import
@
text
@@
