From deeeb2dd06c63e2329af04b9128ebbff4198eb93 Mon Sep 17 00:00:00 2001
From: cajus <cajus@594d385d-05f5-0310-b6e9-bd551577e9d8>
Date: Tue, 18 Mar 2008 13:31:36 +0000
Subject: [PATCH] Added templates to tables

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@9923 594d385d-05f5-0310-b6e9-bd551577e9d8
---
 gosa-si/gosa-si-server | 40 +++++++++++++++++++++-------------------
 1 file changed, 21 insertions(+), 19 deletions(-)

diff --git a/gosa-si/gosa-si-server b/gosa-si/gosa-si-server
index 018d67f4f..238fcd6fc 100755
--- a/gosa-si/gosa-si-server
+++ b/gosa-si/gosa-si-server
@@ -1926,7 +1926,7 @@ sub get_package {
   # This is ugly, but I've no time to take a look at "how it works in perl"
   if(0 == system("wget '$url' -O '$dest' 2>/dev/null") ) {
       system("gunzip -cd '$dest' > '$dest.in'");
-      system("rm -f '$dest'");
+      unlink($dest);
   } else {
       daemon_log("ERROR: create_packages_list_db: get_packages: fetching '$url' failed!", 1);
   }
@@ -2018,36 +2018,38 @@ sub store_fileinfo {
 }
 
 sub cleanup_and_extract {
-
-  my %templates = ();
   my $fileinfo = $repo_files{ $File::Find::name };
 
   if( defined $fileinfo ) {
-  print STDERR "============> $File::Find::name\n"; 
 
     my $dir = "$outdir/$fileinfo->{ 'dist' }/debconf.d";
-    system( "mkdir -p '$dir'" );
+    my $sql;
+    my $package = $fileinfo->{ 'package' };
+    my $newver = $fileinfo->{ 'version' };
 
+    mkpath($dir);
     system( "dpkg -e '$File::Find::name' '$dir/DEBIAN'" );
+
     if( -f "$dir/DEBIAN/templates" ) {
-      my $package = $fileinfo->{ 'package' };
-      my $newver = $fileinfo->{ 'version' };
 
       daemon_log("DEBUG: Found debconf templates in '$package' - $newver", 5);
-      if( exists $templates{ "$fileinfo->{ 'dist' }/$package" } ) {
-        my $oldver = $templates{ "$fileinfo->{ 'dist' }/$package" };
-        my $ret = system( "dpkg --compare-versions '$oldver' gt '$newver'" );
-        if( ! $ret ) {
-          daemon_log("DEBUG: duplicated '$package' ($newver) in $fileinfo->{ 'dist' } - keeping tmpl v'$oldver'", 5);
-          return;
-        }
-        else {
-          daemon_log("DEBUG: duplicated '$package' ($newver) in $fileinfo->{ 'dist' } - overwriting tmpl v'$oldver'", 5);
-        }
+
+      my $tmpl= "";
+      {
+	  local $/=undef;
+	  open FILE, "$dir/DEBIAN/templates";
+	  $tmpl = &encode_base64(<FILE>);
+	  close FILE;
       }
-      $templates{ "$fileinfo->{ 'dist' }/$package" } = $newver;
-      move( "$dir/DEBIAN/templates", "$dir/$package.templates" );
+      rmtree("$dir/DEBIAN/templates");
+
+      $sql= "update $main::packages_list_tn set template = '$tmpl' where package = '$package' and version = '$newver';";
+
+    } else {
+      $sql= "update $main::packages_list_tn set template = '' where package = '$package' and version = '$newver';";
     }
+
+    my $res= $main::packages_list_db->update_dbentry($sql);
   }
 }
 
-- 
2.30.2