From 545ee46ad802630bd84ba25ec4637483462c63eb Mon Sep 17 00:00:00 2001
From: Michal Vaner <vorner@ucw.cz>
Date: Sat, 30 Aug 2008 16:45:51 +0200
Subject: [PATCH] Fix export

---
 scripts/export.pl | 3 ++-
 scripts/init      | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/scripts/export.pl b/scripts/export.pl
index ac55810..f8261b3 100755
--- a/scripts/export.pl
+++ b/scripts/export.pl
@@ -21,11 +21,12 @@ foreach( @{$db->query( 'list', [] )} ) {
 	s/\//\t/g;
 	my $tabs = $_;
 	$id =~ s/.*\///;
+	$id =~ s/([0-9a-f]{4})([0-9a-f]{4})/$1 $2/;
 	print "$tabs$prefix$id  $name\n";
 	if( defined( $description ) && ( $description ne '' ) ) {
 		chomp $description;
 		$description =~ s/\n/\n$tabs#/g;
-		print "$tabs#$description\n";
+		print "$tabs# $description\n";
 	}
 }
 
diff --git a/scripts/init b/scripts/init
index 6bc8df3..39e3152 100755
--- a/scripts/init
+++ b/scripts/init
@@ -2,6 +2,6 @@
 ./scripts/feeddb.pl pci.ids
 #./scripts/transfer.pl pciidsold
 #./scripts/importlog.pl iii.log
-./scripts/importil.pl ~/iii.out
+./scripts/importil.pl iii.out
 echo 'Database is prepared, but it does not contain admins. Add them manually, please.'
 echo 'Just register like ordinary user and run ./scripts/rights.pl + username validate'
-- 
2.39.2