#!/usr/bin/perl
#

use Recipe;
use Data::Dumper;
use strict;

my $r = Recipe->new();

my %hash = $r->db_to_hash();
print "<RECIPE>\n";
foreach my $table (keys %hash) {
	print " <$table>\n";
	foreach my $row (keys %{$hash{$table}}) {
		print "  <row id=\"$row\">\n";
		foreach my $item (keys %{$hash{$table}{$row}}) {
			print "   <$item>$hash{$table}{$row}{$item}</$item>\n";
		}
		print "  </row id=\"$row\">\n";
	}
	print " </$table>\n";
}
print "</RECIPE>\n";