[devel] sisyphus-daily?

[devel] sisyphus-daily?

[Alexey Tourbin]

[-- Attachment #1.1: Type: text/plain, Size: 253 bytes --]

Господа,

Нет ли у нас желания иметь рассылку типа mandarke-changelog?
В отличие от последней, мне (например) было бы интересно просматривать
полный список изменений в пакетах, включая дерево исходников.

Думаю, что это можно устроить.
Пример прилагаю.

[-- Attachment #1.2: perl-DBD-mysql-changelog --]
[-- Type: text/plain, Size: 28019 bytes --]

--- perl-DBD-mysql-2.90.02-alt1/perl-DBD-mysql.spec	2003-07-05 20:20:59 +0400
+++ perl-DBD-mysql-2.90.03-alt1/perl-DBD-mysql.spec	2003-10-28 17:55:09 +0300
@@ -1,36 +1,35 @@
-%define module DBD-mysql
-Name: perl-%module
-Version: 2.90.02
+%define dist DBD-mysql
+Name: perl-%dist
+Version: 2.90.03
+%define real_ver 2.9003
 Release: alt1
 
-%define real_ver %(echo %version | sed -e 's/\\(.*\\)\\./\\1/')
-
 Summary: MySQL driver for DBI interface in Perl
-Summary(ru_RU.CP1251): Поддержка MySQL в Perl через абстрактный интерфейс DBI
 Group: Development/Perl
 License: GPL or Artistic
 
 Url: http://search.cpan.org/dist/DBD-mysql/
-Source: %module-%real_ver.tar.bz2
+Source: %dist-%real_ver.tar.bz2
 
-Obsoletes: perl-Mysql
+# Automatically added by buildreq on Tue Oct 28 2003
+BuildRequires: libMySQL-devel perl-DBI perl-devel zlib-devel
 
-# Automatically added by buildreq on Sat Jul 05 2003
-BuildRequires: glibc-kernheaders libMySQL-devel perl-DBI perl-devel zlib-devel
+Summary(ru_RU.CP1251): Поддержка MySQL в Perl через абстрактный интерфейс DBI
 
 %description
 DBD::mysql is an interface driver for connecting the DBMS independent
 Perl-API DBI to the mysql DBMS.
 
 %description -l ru_RU.CP1251
-DBD::mysql -- это драйвер для доступа к MySQL из программ на Perl, использующих
-для работы с базами данных абстрактный интерфейс DBI.
+DBD::mysql -- это драйвер для доступа к MySQL из программ на Perl,
+использующих для работы с базами данных абстрактный интерфейс DBI.
 
 %prep
-%setup -q -n %module-%real_ver
+%setup -q -n %dist-%real_ver
 
 %build
 %def_without test
+export SLOW_TESTS=1
 %perl_vendor_build
 
 %install
@@ -45,6 +44,13 @@
 %doc README ChangeLog
 
 %changelog
+* Tue Oct 28 2003 Alexey Tourbin <at@altlinux.ru> 2.90.03-alt1
+- 2.9003
+
+* Fri Oct 03 2003 Alexey Tourbin <at@altlinux.ru> 2.90.03-alt0.1
+- 2.9003_1
+- build against libmysqlclient.so.12
+
 * Sat Jul 05 2003 Alexey Tourbin <at@altlinux.ru> 2.90.02-alt1
 - 2.9002 (some changes are significant)
 
removed `/home/at/tmp/perl-DBD-mysql-2.90.02-alt1.src.rpm.vJqYj12590/perl-DBD-mysql.spec'
removed `/home/at/tmp/perl-DBD-mysql-2.90.03-alt1.src.rpm.rmIvw12591/perl-DBD-mysql.spec'
diff -urp perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/ChangeLog perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/ChangeLog
--- perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/ChangeLog	2003-06-24 09:39:12 +0400
+++ perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/ChangeLog	2003-10-27 06:25:36 +0300
@@ -1,3 +1,32 @@
+2003-10-26  Rudy Lippan  <rlippan@remotelinux.com> (2.9003)
+	* Applied patch from Aaron and Chuck that added basic testing of the 
+	  table_info/column_info functions [Aaron Ross <aross@plusthree.com>]
+	* Applied patch removing Jochen Wiedmann's contanct information and 
+	  also removing the restriction on CD ROM distribution. 
+	  [Jochen Wiedmen <joe@ispsoft.de>]
+	* The check for the innodb table type was broken so the transaction
+	  tests were skipped even though the database supported transactions.
+	* :sql_types were not being inported in column info, so SQL_VARCAR was
+	  thowing an error. Also, the :sql_types were not being pulled into 
+	  DBD::mysq::db package
+	* Patch for  dbdadmin.t so that it respects username and password
+	  [Alexey Stroganov <ranger@mysql.com>]
+	* Fix for memory leak in bind_param() introduced in 2.9002
+	  (2.9002 changed bind_param so that changing the value of a scalar
+	  after binding would not affect what was passed to execute eg: 
+	     $sth->bind_param(1,$foo);
+	     $foo = 'bar'
+	     $sth->execute() -- $foo would contain 'bar')
+	  [reported by <shildreth@emsphone.com>]
+	* don't define dbd_discon_all so that mysql uses DBI's This fixes a 
+	  bug whereby DBD::mysql was dropping perl's destruct level.
+	* patch to myld so that it uses strict and fixes scoping problem 
+	  with $contents [Jochen Wiedmann <joe@ispsoft.de>]
+	* Modified Makefile.PL so that it gives a usage message
+	  if any unknown options are passed in.
+	* patch to INSTALL.pod on how to link DBD::mysql against 
+	  a static libmysqlclient [Jochen Wiedmann <joe@ispsoft.de>]
+
 2003-06-22  Rudy Lippan  <rlippan@remotelinux.com> (2.9002)
 	* moved pod into mysql.pm from mysql.pod
 	* Changed the default behaviour of mysql_found_rows, so now
@@ -29,8 +58,8 @@
 
 	  **NOTE** this is a change in behaviour that MAY cause problems
 	  with some SQL statements. If quoted integers, for example,  
-	  cause any problems, use bind_param(<column_id>, SQL_INTEGER) to 
-	  force a column to be bound as an integer.
+	  cause any problems, use bind_param(<column_id>, undef, SQL_INTEGER)
+	  to force a column to be bound as an integer.
 
 	* Added get_info() method. See 'perldoc DBI' for more info
 	* Added column_info(). See 'perldoc DBI' for more info [Tim Bunce]
@@ -718,7 +747,7 @@ Fri Oct 24 01:29:08 1997  Jochen Wiedman
 	* lib/Msql/Statement.pm: Fixed use of Msql::TEXT_TYPE without
 	  checking whether we are running Msql 1.
 
-$Id: ChangeLog,v 1.11 2003/06/24 05:39:12 rlippan Exp $
+$Id: ChangeLog,v 1.14 2003/10/27 03:25:36 rlippan Exp $
 
 DBD::mysql for DBI - Written by Jochen Wiedmann <joe@ispsoft.de>
 
diff -urp perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/dbdimp.c perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/dbdimp.c
--- perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/dbdimp.c	2003-06-24 09:37:25 +0400
+++ perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/dbdimp.c	2003-10-17 21:20:50 +0400
@@ -1,23 +1,13 @@
 /*
  *  DBD::mysql - DBI driver for the mysql database
  *
- *  Copyright (c) 1997, 1998  Jochen Wiedmann
+ *  Copyright (c) 2003       Rudolf Lippan
+ *  Copyright (c) 1997-2003  Jochen Wiedmann
  *
  *  You may distribute this under the terms of either the GNU General Public
- *  License or the Artistic License, as specified in the Perl README file,
- *  with the exception that it cannot be placed on a CD-ROM or similar media
- *  for commercial distribution without the prior approval of the author.
+ *  License or the Artistic License, as specified in the Perl README file.
  *
- *  Author:  Jochen Wiedmann
- *           Am Eisteich 9
- *           72555 Metzingen
- *           Germany
- *
- *           Email: joe@ispsoft.de
- *           Fax: +49 7123 / 14892
- *
- *
- *  $Id: dbdimp.c,v 1.9 2003/06/24 05:37:25 rlippan Exp $
+ *  $Id: dbdimp.c,v 1.11 2003/10/17 17:20:50 rlippan Exp $
  */
 
 
@@ -292,7 +282,6 @@ int BindParam(imp_sth_ph_t* ph, SV* valu
         (void) SvREFCNT_dec(ph->value);
     }
     ph->value = newSVsv(value);
-    (void) SvREFCNT_inc(value);
     if (sql_type) {
         ph->type = sql_type;
     }
diff -urp perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/dbdimp.h perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/dbdimp.h
--- perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/dbdimp.h	2003-06-24 09:50:01 +0400
+++ perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/dbdimp.h	2003-10-17 21:20:50 +0400
@@ -1,27 +1,17 @@
 /*
  *  DBD::mSQL - DBI driver for the mysql database
  *
- *  Copyright (c) 1997  Jochen Wiedmann
+ *  Copyright (c) 2003       Rudolf Lippan
+ *  Copyright (c) 1997-2003  Jochen Wiedmann
  *
  *  Based on DBD::Oracle; DBD::Oracle is
  *
  *  Copyright (c) 1994,1995  Tim Bunce
  *
  *  You may distribute this under the terms of either the GNU General Public
- *  License or the Artistic License, as specified in the Perl README file,
- *  with the exception that it cannot be placed on a CD-ROM or similar media
- *  for commercial distribution without the prior approval of the author.
+ *  License or the Artistic License, as specified in the Perl README file.
  *
- *  Author:  Jochen Wiedmann
- *           Am Eisteich 9
- *           72555 Metzingen
- *           Germany
- *
- *           Email: joe@ispsoft.de
- *           Fax: +49 7123 / 14892
- *
- *
- *  $Id: dbdimp.h,v 1.3 2003/06/24 05:50:01 rlippan Exp $
+ *  $Id: dbdimp.h,v 1.5 2003/10/17 17:20:50 rlippan Exp $
  */
 
 /*
@@ -179,7 +169,6 @@ struct imp_sth_st {
 #define dbd_db_commit		mysql_db_commit
 #define dbd_db_rollback		mysql_db_rollback
 #define dbd_db_disconnect	mysql_db_disconnect
-#define dbd_discon_all		mysql_db_discon_all
 #define dbd_db_destroy		mysql_db_destroy
 #define dbd_db_STORE_attrib	mysql_db_STORE_attrib
 #define dbd_db_FETCH_attrib	mysql_db_FETCH_attrib
diff -urp perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/INSTALL.html perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/INSTALL.html
--- perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/INSTALL.html	2003-06-24 09:52:23 +0400
+++ perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/INSTALL.html	2003-10-27 06:33:28 +0300
@@ -392,12 +392,18 @@ library. This can be done by adding the 
 <PRE>
   -L/usr/lib/mysql -lmysqlclient
   -LC:\mysql\lib -lmysqlclient</PRE>
-<PRE>
-  /usr/lib/mysql/libmysqlclient.a
-  C:\mysql\lib\mysqlclient.lib</PRE>
-<P>The latter examples are using a statically linked library. This
-may be required in some cases, if the dynamically linked library
-is not found at run time.</P>
+<P>If you would like to use the static libraries (and there are
+excellent reasons to do so), you need to create a separate
+directory, copy the static libraries to that place and use
+the -L switch above to point to your new directory. For example:</P>
+<PRE>
+  mkdir /tmp/mysql-static
+  cp /usr/lib/mysql/*.a /tmp/mysql-static
+  perl Makefile.PL --libs=&quot;-L/tmp/mysql-static -lmysqlclient&quot;
+  make
+  make test
+  make install
+  rm -rf /tmp/mysql-static</PRE>
 <P></P>
 <DT><STRONG><A NAME="item_The_gzip_library">The gzip library</A></STRONG><BR>
 <DD>
@@ -648,13 +654,9 @@ problem is that this file is located in 
 library, for example</P>
 <PRE>
   /usr/lib/mysql/libmysqlclient.a</PRE>
-<P>You force linking against this file by replacing</P>
-<PRE>
-  -L/usr/lib/mysql -lmysqlclient</PRE>
-<P>with</P>
-<PRE>
-  /usr/lib/mysql/libmysqlclient.a</PRE>
-<P>in the list of linker flags. <A HREF="#configuration">Configuration</A>. <A HREF="#linker flags">Linker flags</A>.</P>
+<P>The use of a statically linked library is described in the
+previous section on linker flags. <A HREF="#configuration">Configuration</A>.
+<A HREF="#linker flags">Linker flags</A>.</P>
 <P></P>
 <LI><STRONG>)</STRONG><BR>
 
diff -urp perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/lib/DBD/mysql/INSTALL.pod perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/lib/DBD/mysql/INSTALL.pod
--- perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/lib/DBD/mysql/INSTALL.pod	2003-06-10 04:16:42 +0400
+++ perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/lib/DBD/mysql/INSTALL.pod	2003-07-17 07:00:13 +0400
@@ -414,12 +414,19 @@ or by adding the complete path name. Exa
   -L/usr/lib/mysql -lmysqlclient
   -LC:\mysql\lib -lmysqlclient
 
-  /usr/lib/mysql/libmysqlclient.a
-  C:\mysql\lib\mysqlclient.lib
+If you would like to use the static libraries (and there are
+excellent reasons to do so), you need to create a separate
+directory, copy the static libraries to that place and use
+the -L switch above to point to your new directory. For example:
+
+  mkdir /tmp/mysql-static
+  cp /usr/lib/mysql/*.a /tmp/mysql-static
+  perl Makefile.PL --libs="-L/tmp/mysql-static -lmysqlclient"
+  make
+  make test
+  make install
+  rm -rf /tmp/mysql-static
 
-The latter examples are using a statically linked library. This
-may be required in some cases, if the dynamically linked library
-is not found at run time.
 
 =item The gzip library
 
@@ -720,15 +727,9 @@ library, for example
 
   /usr/lib/mysql/libmysqlclient.a
 
-You force linking against this file by replacing
-
-  -L/usr/lib/mysql -lmysqlclient
-
-with
-
-  /usr/lib/mysql/libmysqlclient.a
-
-in the list of linker flags. L</Configuration>. L</Linker flags>.  
+The use of a statically linked library is described in the
+previous section on linker flags. L</Configuration>.
+L</Linker flags>.  
 
 =item 4.)
 
diff -urp perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/lib/DBD/mysql.pm perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/lib/DBD/mysql.pm
--- perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/lib/DBD/mysql.pm	2003-06-24 04:25:19 +0400
+++ perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/lib/DBD/mysql.pm	2003-10-27 06:26:08 +0300
@@ -9,7 +9,7 @@ use DynaLoader();
 use Carp ();
 @ISA = qw(DynaLoader);
 
-$VERSION = '2.9002';
+$VERSION = '2.9003';
 
 bootstrap DBD::mysql $VERSION;
 
@@ -29,7 +29,7 @@ sub driver{
 				   'Version' => $VERSION,
 				   'Err'    => \$DBD::mysql::err,
 				   'Errstr' => \$DBD::mysql::errstr,
-				   'Attribution' => 'DBD::mysql by Jochen Wiedmann'
+				   'Attribution' => 'DBD::mysql by Rudy Lippan'
 				 });
 
     $drh;
@@ -97,6 +97,7 @@ sub AUTOLOAD {
 
 package DBD::mysql::dr; # ====== DRIVER ======
 use strict;
+use DBI qw(:sql_types);
 
 sub connect {
     my($drh, $dsn, $username, $password, $attrhash) = @_;
@@ -108,8 +109,8 @@ sub connect {
     $password ||= '';
 
     # create a 'blank' dbh
-    my($this, $privateAttrHash);
-    $privateAttrHash = {
+    my($this, $privateAttrHash) = (undef, $attrhash);
+    $privateAttrHash = { %$privateAttrHash,
 	'Name' => $dsn,
 	'user' => $username,
 	'password' => $password
@@ -137,12 +138,14 @@ sub connect {
 sub data_sources {
     my($self) = shift;
     my($attributes) = shift;
-    my($host, $port) = ('', '');
+    my($host, $port, $user, $password) = ('', '', '', '');
     if ($attributes) {
       $host = $attributes->{host} || '';
       $port = $attributes->{port} || '';
+      $user = $attributes->{user} || '';
+      $password = $attributes->{password} || '';
     }
-    my(@dsn) = $self->func($host, $port, '_ListDBs');
+    my(@dsn) = $self->func($host, $port, $user, $password, '_ListDBs');
     my($i);
     for ($i = 0;  $i < @dsn;  $i++) {
 	$dsn[$i] = "DBI:mysql:$dsn[$i]";
@@ -168,6 +171,7 @@ sub admin {
 
 package DBD::mysql::db; # ====== DATABASE ======
 use strict;
+use DBI qw(:sql_types);
 
 %DBD::mysql::db::db2ANSI = ("INT"   =>  "INTEGER",
 			   "CHAR"  =>  "CHAR",
@@ -1675,8 +1679,9 @@ in the PPM program.
 =head1 AUTHORS
 
 The current version of B<DBD::mysql> is almost completely written
-by Jochen Wiedmann (I<joe@ispsoft.de>). The first version's author
-was Alligator Descartes(I<descarte@symbolstone.org>), who has been
+by Jochen Wiedmann, and is now being maintained by
+Rudy Lippan (I<rlippan@remotelinux.com>). The first version's author
+was Alligator Descartes (I<descarte@symbolstone.org>), who has been
 aided and abetted by Gary Shea, Andreas Kцnig and Tim Bunce
 amongst others.
 
@@ -1687,8 +1692,10 @@ layer, is from Jochen Wiedmann.
 
 =head1 COPYRIGHT
 
-This module is Copyright (c) 1997-2001 Jochen Wiedmann, with code
-portions Copyright (c)1994-1997 their original authors. This module is
+
+This module is Copyright (c) 2003 Rudolf Lippan; Large Portions 
+Copyright (c) 1997-2003 Jochen Wiedmann, with code portions 
+Copyright (c)1994-1997 their original authors This module is
 released under the same license as Perl itself. See the Perl README
 for details.
 
@@ -1697,15 +1704,15 @@ for details.
 
 This module is maintained and supported on a mailing list,
 
-    msql-mysql-modules@lists.mysql.com
+    perl@lists.mysql.com
 
 To subscribe to this list, send a mail to
 
-    msql-mysql-modules-subscribe@lists.mysql.com
+    perl-subscribe@lists.mysql.com
 
 or
 
-    msql-mysql-modules-digest-subscribe@lists.mysql.com
+    perl-digest-subscribe@lists.mysql.com
 
 Mailing list archives are available at
 
diff -urp perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/lib/Mysql.pm perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/lib/Mysql.pm
--- perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/lib/Mysql.pm	2003-05-28 06:26:52 +0400
+++ perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/lib/Mysql.pm	2003-10-17 21:20:50 +0400
@@ -823,8 +823,7 @@ or
 =head1 AUTHORS
 
 Andreas Koenig C<koenig@franz.ww.TU-Berlin.DE> wrote the original
-MsqlPerl. Jochen Wiedmann C<joe@ispsoft.de> wrote the M(y)sqlPerl
-emulation using DBI.
+MsqlPerl. Jochen Wiedmann wrote the M(y)sqlPerl emulation using DBI.
 
 
 =head1 SEE ALSO
diff -urp perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/Makefile.PL perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/Makefile.PL
--- perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/Makefile.PL	2003-06-10 03:50:13 +0400
+++ perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/Makefile.PL	2003-10-17 21:20:50 +0400
@@ -19,7 +19,7 @@ Getopt::Long::GetOptions($opt, "help", "
 			 "testuser=s", "testpassword=s",
 			 "cflags=s", "libs=s", "verbose",
 			 "nocatchstderr",
-			 "ssl!","nofoundrows!");
+			 "ssl!","nofoundrows!") || die Usage();
 my $source = {};
 
 foreach my $key (qw/testdb testhost testuser testpassword cflags libs
@@ -90,7 +90,7 @@ if ($ExtUtils::MakeMaker::VERSION >= 5.4
   $o{'CAPI'} = 'TRUE'
     if ($ExtUtils::MakeMaker::VERSION >= 5.43
 	&&  $Config::Config{'archname'} =~ /-object\b/i);
-  $o{'AUTHOR'} = 'Jochen Wiedmann <joe@ispsoft.de>';
+  $o{'AUTHOR'} = 'Rudy Lippan <rlippan@remotelinux.com>';
   $o{'ABSTRACT'} =
     'A MySQL driver for the Perl5 Database Interface (DBI)';
   $o{'PREREQ_PM'} = { 'DBI' => 1.08,
diff -urp perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/myld perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/myld
--- perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/myld	2003-03-18 05:53:27 +0300
+++ perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/myld	2003-08-07 20:44:58 +0400
@@ -4,16 +4,19 @@
 # in the linking stage
 #
 
+use strict;
+
 open(OLDSTDERR, ">&STDERR") || die "Failed to backup STDERR: $!";
 open(FILE, ">myld.stderr") || die "Failed to create myld.stderr: $!";
 open(STDERR, ">&FILE") || die "Failed to redirect STDERR: $!";
-$retval = system @ARGV;
+my $retval = system @ARGV;
 open(STDERR, ">&OLDSTDERR");
 close(FILE) || die "Failed to close myld.stderr: $!";
+my $contents = "";
 if (-f "myld.stderr"  &&  !-z _) {
   open(FILE, "<myld.stderr") || die "Failed to reopen myld.stderr: $!";
   local $/ = undef;
-  my $contents = <FILE>;
+  $contents = <FILE>;
   die "Failed to read myld.stderr: $!" unless defined($contents);
   close(FILE) || die "Failed to close myld.stderr: $!";
 
@@ -23,8 +26,8 @@ if (-f "myld.stderr"  &&  !-z _) {
 $contents
 
 An error occurred while linking the DBD::mysql driver. The error
-message seems to indicate that you don't have a libz.a, libgz.a,
-libz.so or libgz.so. This is typically resolved by:
+message seems to indicate that you don't have a lib$missing.a,
+or a lib$missing.so. This is typically resolved by:
 
 1.) You may try to remove the -lz or -lgz flag from the libs list
     by using the --libs switch for "perl Makefile.PL".
diff -urp perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/mysql.xs perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/mysql.xs
--- perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/mysql.xs	2003-04-01 05:17:27 +0400
+++ perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/mysql.xs	2003-10-17 21:20:50 +0400
@@ -1,13 +1,12 @@
 /* Hej, Emacs, this is -*- C -*- mode!
 
-   $Id: mysql.xs,v 1.2 2003/04/01 01:17:27 rlippan Exp $
+   $Id: mysql.xs,v 1.3 2003/10/17 17:20:50 rlippan Exp $
 
-   Copyright (c) 1997, 1998 Jochen Wiedmann
+   Copyright (c) 2003      Rudolf Lippan
+   Copyright (c) 1997-2003 Jochen Wiedmann
 
    You may distribute under the terms of either the GNU General Public
-   License or the Artistic License, as specified in the Perl README file,
-   with the exception that it cannot be placed on a CD-ROM or similar media
-   for commercial distribution without the prior approval of the author.
+   License or the Artistic License, as specified in the Perl README file.
 
 */
 
diff -urp perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/t/40listfields.t perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/t/40listfields.t
--- perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/t/40listfields.t	2003-05-28 05:58:51 +0400
+++ perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/t/40listfields.t	2003-10-22 22:29:35 +0400
@@ -1,6 +1,6 @@
 #!/usr/local/bin/perl
 #
-#   $Id: 40listfields.t,v 1.1 2003/03/18 02:53:28 rlippan Exp $
+#   $Id: 40listfields.t,v 1.2 2003/10/22 18:29:35 rlippan Exp $
 #
 #   This is a test for statement attributes being present appropriately.
 #
@@ -70,6 +70,8 @@ while (Testing()) {
 		    $dbh->do($def)))
 	   or DbiError($dbh->err, $dbh->errstr);
 
+    Test($state or $dbh->table_info(undef,undef,$table));
+    Test($state or $dbh->column_info(undef,undef,$table,'%'));
 
     Test($state or $cursor = $dbh->prepare("SELECT * FROM $table"))
 	   or DbiError($dbh->err, $dbh->errstr);
diff -urp perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/t/50commit.t perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/t/50commit.t
--- perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/t/50commit.t	2003-03-18 05:53:28 +0300
+++ perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/t/50commit.t	2003-08-29 00:31:13 +0400
@@ -1,6 +1,6 @@
 #!/usr/local/bin/perl
 #
-#   $Id: 50commit.t,v 1.1 2003/03/18 02:53:28 rlippan Exp $
+#   $Id: 50commit.t,v 1.2 2003/08/28 20:31:13 rlippan Exp $
 #
 #   This is testing the transaction support.
 #
@@ -161,7 +161,7 @@ while (Testing()) {
 	    or ErrMsg("Expected fatal error for AutoCommit => 0\n");
 
 	for (my $i = 0;  $i < 14;  $i++) {
-	    Skip("No transactions");
+	    Skip("Unable to detect a transactional table type; Skipping transaction tests");
 	}
     }
 
diff -urp perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/t/60leaks.t perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/t/60leaks.t
--- perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/t/60leaks.t	2003-03-18 05:53:28 +0300
+++ perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/t/60leaks.t	2003-09-12 19:50:32 +0400
@@ -1,6 +1,6 @@
 #!/usr/local/bin/perl
 #
-#   $Id: 60leaks.t,v 1.1 2003/03/18 02:53:28 rlippan Exp $
+#   $Id: 60leaks.t,v 1.2 2003/09/12 15:50:32 rlippan Exp $
 #
 #   This is a skeleton test. For writing new tests, take this file
 #   and modify/extend it.
@@ -11,10 +11,9 @@ my $COUNT_PREPARE = 10000;  # Number of 
 
 
 my $haveStorable;
-
 eval { require Proc::ProcessTable; };
 if ($@  ||  !$ENV{SLOW_TESTS}) {
-    print "1..0 # \$ENV{SLOW_TESTS} is not set\n";
+    print "1..0 # Skip \$ENV{SLOW_TESTS} is not set or Proc::ProcessTable not installed \n";
     exit 0;
 }
 eval { require Storable };
diff -urp perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/t/dbdadmin.t perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/t/dbdadmin.t
--- perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/t/dbdadmin.t	2003-03-18 05:53:28 +0300
+++ perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/t/dbdadmin.t	2003-09-12 19:56:21 +0400
@@ -76,7 +76,7 @@ while (Testing()) {
 	or ServerError();
 
     Test($state or (@dsn = DBI->data_sources(
-         $mdriver, {host => $test_host, port => $test_port})) >= 0);
+         $mdriver, {host => $test_host, port => $test_port, user=> $test_user, password=>$test_password})) >= 0);
     Test($state or (@dsn = DBI->data_sources($mdriver)) >= 0);
     if (!$state  &&  $verbose) {
 	my $d;
@@ -136,7 +136,9 @@ while (Testing()) {
 	     or InDsnList($testdsn, DBI->data_sources($mdriver))
 	     or InDsnList($testdsn, DBI->data_sources($mdriver,
 						      {"host" => $test_host,
-						       "port" => $test_port})))
+						       "port" => $test_port,
+                                                       "user" => $test_user,
+                                                       "password" => $test_password})))
 	    or print STDERR ("New DB not in DSN list\n");
 
 	Test($state or $accessDenied
@@ -150,7 +152,9 @@ while (Testing()) {
 		 !InDsnList($testdsn,
 			    DBI->data_sources($mdriver,
 					      {"host" => $test_host,
-					       "port" => $test_port}))))
+					       "port" => $test_port,
+                                               "user" => $test_user,
+                                               "password" => $test_password}))))
 	    or print STDERR ("New DB not removed from DSN list\n");
 
 	my($mayShutdown) = $ENV{'DB_SHUTDOWN_ALLOWED'};
@@ -165,7 +169,9 @@ while (Testing()) {
 	     or InDsnList($testdsn1,
 			  DBI->data_sources($mdriver,
 					    {"host" => $test_host,
-					     "port" => $test_port})))
+					     "port" => $test_port,
+                                             "user" => $test_user,
+                                             "password" => $test_password})))
 	    or printf STDERR ("DSN $testdsn1 not in DSN list.\n");
 	Test($state or $accessDenied
 	     or $drh->func('dropdb', $testdsn1, $test_host,
@@ -177,7 +183,9 @@ while (Testing()) {
 		 !InDsnList($testdsn1,
 			    DBI->data_sources($mdriver,
 					      {"host" => $test_host,
-					       "port" => $test_port}))))
+					       "port" => $test_port,
+                                               "user" => $test_user,
+                                               "password" => $test_password}))))
 	    or printf STDERR ("DSN $testdsn1 not removed from DSN list.\n");
 	Test($state or $accessDenied
 	     or $drh->func('createdb', $testdsn2, $test_host,
@@ -189,7 +197,9 @@ while (Testing()) {
 	     or InDsnList($testdsn2,
 			  DBI->data_sources($mdriver,
 					    {"host" => $test_host,
-					     "port" => $test_port})))
+					     "port" => $test_port,
+                                             "user" => $test_user,
+                                             "password" => $test_password})))
 	    or printf STDERR ("DSN $testdsn2 not in DSN list.\n");
 	Test($state or $accessDenied
 	     or $drh->func('dropdb', $testdsn2, $test_host,
@@ -201,7 +211,9 @@ while (Testing()) {
 		 !InDsnList($testdsn2,
 			    DBI->data_sources($mdriver,
 					      {"host" => $test_host,
-					       "port" => $test_port}))))
+					       "port" => $test_port,
+                                               "user" => $test_user,
+                                               "password" => $test_password}))))
 	    or printf STDERR ("DSN $testdsn2 not removed from DSN list.\n");
 
 	if ($mdriver eq 'mysql') {
diff -urp perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/t/lib.pl perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/t/lib.pl
--- perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/t/lib.pl	2003-03-31 05:16:53 +0400
+++ perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/t/lib.pl	2003-08-29 00:34:33 +0400
@@ -1,6 +1,6 @@
 #   Hej, Emacs, give us -*- perl mode here!
 #
-#   $Id: lib.pl,v 1.2 2003/03/31 01:16:53 rlippan Exp $
+#   $Id: lib.pl,v 1.3 2003/08/28 20:34:33 rlippan Exp $
 #
 #   lib.pl is the file where database specific things should live,
 #   whereever possible. For example, you define certain constants
@@ -25,9 +25,6 @@ $dbdriver = $mdriver; # $dbdriver is usu
 #
 #   DSN being used; do not edit this, edit "$dbdriver.dbtest" instead
 #
-$test_dsn      = $ENV{'DBI_DSN'}   ||  'DBI:mysql:database=test';
-$test_user     = $ENV{'DBI_USER'}  ||  '';
-$test_password = $ENV{'DBI_PASS'}  ||  '';
 
 
 $::COL_NULLABLE = 1;
@@ -45,6 +42,9 @@ if (-f ($file = "t/$dbdriver.dbtest")  |
 	print "1..0\n";
 	exit 0;
     }
+    $::test_dsn      = $::test_dsn || $ENV{'DBI_DSN'} || 'DBI:mysql:database=test';
+    $::test_user     = $::test_user|| $ENV{'DBI_USER'}  ||  '';
+    $::test_password = $::test_passowrd || $ENV{'DBI_PASS'}  ||  '';
 }
 if (-f ($file = "t/$mdriver.mtest")  ||
     -f ($file = "$mdriver.mtest")    ||
diff -urp perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/t/mysql.dbtest perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/t/mysql.dbtest
--- perl-DBD-mysql-2.90.02-alt1/DBD-mysql-%version/t/mysql.dbtest	2003-03-18 05:53:28 +0300
+++ perl-DBD-mysql-2.90.03-alt1/DBD-mysql-%version/t/mysql.dbtest	2003-09-12 19:57:46 +0400
@@ -1,6 +1,6 @@
 # Hej, Emacs, give us -*- perl -*- mode here!
 #
-#   $Id: mysql.dbtest,v 1.1 2003/03/18 02:53:28 rlippan Exp $
+#   $Id: mysql.dbtest,v 1.2 2003/09/12 15:57:46 rlippan Exp $
 #
 # database specific definitions for a 'mysql' database
 
@@ -142,7 +142,7 @@ sub HaveTransactions () {
 		$have_transactions = "bdb";
 		last;
 	    }
-	    if ($row->{'Variable_name'} eq 'have_innobase'  &&
+	    if ($row->{'Variable_name'} eq 'have_innodb'  &&
 		$row->{'Value'} eq 'YES') {
 		$have_transactions = "innobase";
 		last;

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [devel] sisyphus-daily?

[Sergey V Turchin]

[-- Attachment #1: signed data --]
[-- Type: text/plain, Size: 524 bytes --]

В сообщении от 19 Ноябрь 2003 18:23 Alexey Tourbin написал(a):
> Господа,
>
> Нет ли у нас желания иметь рассылку типа mandarke-changelog?
> В отличие от последней, мне (например) было бы интересно
> просматривать полный список изменений в пакетах, включая дерево
> исходников.
>
> Думаю, что это можно устроить.
> Пример прилагаю.
Для этого нужно spec-файлы брать не из пакетов, а из cvs, например.

-- 
Regards, Sergey, ALT Linux Team, http://www.altlinux.ru
http://stinkfoot.org:11371/pks/lookup?op=get&search=0x1C2A3F08

[-- Attachment #2: signature --]
[-- Type: application/pgp-signature, Size: 189 bytes --]

[devel] Re: [sisyphus] sisyphus-daily?

[Sergey Vlasov]

[-- Attachment #1: Type: text/plain, Size: 331 bytes --]

On Wed, Nov 19, 2003 at 06:23:17PM +0300, Alexey Tourbin wrote:
> Нет ли у нас желания иметь рассылку типа mandarke-changelog?
> В отличие от последней, мне (например) было бы интересно просматривать
> полный список изменений в пакетах, включая дерево исходников.

Давно пора.  Только не жирно ли будет с изменениями в исходниках?

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [devel] Re: [sisyphus] sisyphus-daily?

[Sergey V Turchin]

[-- Attachment #1: signed data --]
[-- Type: text/plain, Size: 580 bytes --]

В сообщении от 19 Ноябрь 2003 18:33 Sergey Vlasov написал(a):
> On Wed, Nov 19, 2003 at 06:23:17PM +0300, Alexey Tourbin wrote:
> > Нет ли у нас желания иметь рассылку типа mandarke-changelog?
> > В отличие от последней, мне (например) было бы интересно
> > просматривать полный список изменений в пакетах, включая дерево
> > исходников.
>
> Давно пора.  Только не жирно ли будет с изменениями в исходниках?
Для начала можно без них, только все остальное.

-- 
Regards, Sergey, ALT Linux Team, http://www.altlinux.ru
http://stinkfoot.org:11371/pks/lookup?op=get&search=0x1C2A3F08

[-- Attachment #2: signature --]
[-- Type: application/pgp-signature, Size: 189 bytes --]

[devel] Re: sisyphus-daily?

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 466 bytes --]

On Wed, Nov 19, 2003 at 06:33:27PM +0300, Sergey Vlasov wrote:
> > Нет ли у нас желания иметь рассылку типа mandarke-changelog?
> > В отличие от последней, мне (например) было бы интересно просматривать
> > полный список изменений в пакетах, включая дерево исходников.
> 
> Давно пора.  Только не жирно ли будет с изменениями в исходниках?

Я тоже об этом думал.  Только ведь все самые жирные ляпы то --
в исходниках. :)  Так будет проще проверять, обсуждать и т.д.

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

[devel] Re: sisyphus-daily?

[Michael Shigorin]

[-- Attachment #1.1: Type: text/plain, Size: 622 bytes --]

On Wed, Nov 19, 2003 at 06:23:17PM +0300, Alexey Tourbin wrote:
> Нет ли у нас желания иметь рассылку типа mandarke-changelog?  В
> отличие от последней, мне (например) было бы интересно
> просматривать полный список изменений в пакетах, включая дерево
> исходников.
> Думаю, что это можно устроить.
> Пример прилагаю.

[27K skipped]

CVS или еще что?  Диффы почтой -- несколько архаический подход,
кажется.

specfiles -- понятно, а вот исходники... это гораздо сложнее.

PS: давайте-ка для начала просто спеки выложите, а?

-- 
 ---- WBR, Michael Shigorin <mike@altlinux.ru>
  ------ Linux.Kiev http://www.linux.kiev.ua/

[-- Attachment #1.2: rpm2specs.sh --]
[-- Type: text/plain, Size: 623 bytes --]

#!/bin/sh
TEMPSPECDIR="/www/altlinux.org.ua/html/devel/RPM/SPECS/.tmp"
SRPMPREFIX="/var/ftp/pub/Linux/ALT/Sisyphus/SRPMS."
SPECPREFIX="/www/altlinux.org.ua/html/devel/RPM/SPECS/"
#REPOS="base castle contrib junior kernel master non-free"
#REPOS="base"
REPOS="classic"
                                                                       
rm -rf $TEMPSPECDIR
rm -rf $SPECPREFIX
mkdir -p $TEMPSPECDIR
cd $TEMPSPECDIR

for repo in $REPOS; do
  mkdir -p $SPECPREFIX$repo
  for srpm in $SRPMPREFIX$repo/*.src.rpm; do
    rpm2cpio $srpm | cpio --quiet --extract *.spec
    mv -f *.spec $SPECPREFIX$repo 2>/dev/null
  done
done

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [devel] Re: sisyphus-daily?

[Sergey Vlasov]

[-- Attachment #1: Type: text/plain, Size: 1477 bytes --]

On Wed, Nov 19, 2003 at 06:36:45PM +0200, Michael Shigorin wrote:
> On Wed, Nov 19, 2003 at 06:23:17PM +0300, Alexey Tourbin wrote:
> > Нет ли у нас желания иметь рассылку типа mandarke-changelog?  В
> > отличие от последней, мне (например) было бы интересно
> > просматривать полный список изменений в пакетах, включая дерево
> > исходников.
> > Думаю, что это можно устроить.
> > Пример прилагаю.
> 
> [27K skipped]
> 
> CVS или еще что?  Диффы почтой -- несколько архаический подход,
> кажется.
> 
> specfiles -- понятно, а вот исходники... это гораздо сложнее.
> 
> PS: давайте-ка для начала просто спеки выложите, а?
> 
> -- 
>  ---- WBR, Michael Shigorin <mike@altlinux.ru>
>   ------ Linux.Kiev http://www.linux.kiev.ua/

> #!/bin/sh
> TEMPSPECDIR="/www/altlinux.org.ua/html/devel/RPM/SPECS/.tmp"
> SRPMPREFIX="/var/ftp/pub/Linux/ALT/Sisyphus/SRPMS."
> SPECPREFIX="/www/altlinux.org.ua/html/devel/RPM/SPECS/"
> #REPOS="base castle contrib junior kernel master non-free"
> #REPOS="base"
> REPOS="classic"
>                                                                        
> rm -rf $TEMPSPECDIR
> rm -rf $SPECPREFIX
> mkdir -p $TEMPSPECDIR
> cd $TEMPSPECDIR
> 
> for repo in $REPOS; do
>   mkdir -p $SPECPREFIX$repo
>   for srpm in $SRPMPREFIX$repo/*.src.rpm; do
>     rpm2cpio $srpm | cpio --quiet --extract *.spec
>     mv -f *.spec $SPECPREFIX$repo 2>/dev/null
>   done
> done

Сюда надо бы засадить переименование в
"`rpmquery --qf='%{NAME}' -p "$srpm"`.spec".

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

[devel] Re: sisyphus-daily?

[Michael Shigorin]

[-- Attachment #1.1: Type: text/plain, Size: 352 bytes --]

On Wed, Nov 19, 2003 at 07:56:03PM +0300, Sergey Vlasov wrote:
> Сюда надо бы засадить переименование в
> "`rpmquery --qf='%{NAME}' -p "$srpm"`.spec".

Заодно вылезло, что в synaptic-0.45-alt1.src.rpm спек именуется
просто synaptic (вынуто из sandman?).

-- 
 ---- WBR, Michael Shigorin <mike@altlinux.ru>
  ------ Linux.Kiev http://www.linux.kiev.ua/

[-- Attachment #1.2: rpm2specs.sh --]
[-- Type: text/plain, Size: 700 bytes --]

#!/bin/sh
TEMPSPECDIR="/www/altlinux.org.ua/html/devel/RPM/SPECS/.tmp"
SRPMPREFIX="/var/ftp/pub/Linux/ALT/Sisyphus/SRPMS."
SPECPREFIX="/www/altlinux.org.ua/html/devel/RPM/SPECS/"
#REPOS="base castle contrib junior kernel master non-free"
#REPOS="base"
REPOS="classic"
                                                                       
rm -rf "$TEMPSPECDIR"
rm -rf "$SPECPREFIX"
mkdir -p "$TEMPSPECDIR"
cd "$TEMPSPECDIR"

for repo in $REPOS; do
  mkdir -p "$SPECPREFIX$repo"
  for srpm in $SRPMPREFIX$repo/*.src.rpm; do
    rpm2cpio "$srpm" | cpio --quiet --extract *.spec
    spec="`rpmquery --qf='%{NAME}' -p "$srpm"`.spec"
    mv -f *.spec "$SPECPREFIX$repo/$spec" || echo "$srpm"
  done
done

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

[devel] Re: sisyphus-daily?

[Alexey Tourbin]

[-- Attachment #1.1: Type: text/plain, Size: 319 bytes --]

On Wed, Nov 19, 2003 at 06:36:45PM +0200, Michael Shigorin wrote:
> CVS или еще что?  Диффы почтой -- несколько архаический подход,
> кажется.
> 
> specfiles -- понятно, а вот исходники... это гораздо сложнее.
> 
> PS: давайте-ка для начала просто спеки выложите, а?

Не знаю.
Правильный (но сырой) скрипт прилагается.

[-- Attachment #1.2: rpmcmp.pl --]
[-- Type: text/plain, Size: 2315 bytes --]

#!/usr/bin/perl

use Cwd qw(realpath);
use File::Temp qw(tempdir);
use Getopt::Long qw(GetOptions);
use strict;

GetOptions "deep" => \my $opt_deep;

sub tmp_unpack($) {
	my $rpm = shift;
	my $dir = tempdir(CLEANUP => 1);
	chdir $dir;
	system "rpm2cpio $rpm | cpio -idm 2>/dev/null";
	return $dir;
}

sub uncompress($) {
	my $dir = shift;
	chdir $dir;
	system "gunzip *.gz &>/dev/null";
	system "bunzip *.bz2 &>/dev/null";
	system "tar xf *.tar &>/dev/null && rm -f *.tar";
}

sub cmp_rm($$) {
	my ($f1, $f2) = @_;
	my $rv;
	if (-e $f1 && -e $f2) {
		$rv = `LC_ALL=C TZ=UTC0 diff -abBdpruw $f1 $f2`;
		system "rm -rf $f1 $f2";
	}
	return $rv;
}

sub _cmp_eq($$) {
	return $_[0] eq $_[1];
}

sub _cmp_az($$) {
	(my $az1 = $_[0]) =~ s/[^a-z]//g;
	(my $az2 = $_[1]) =~ s/[^a-z]//g;
	return $az1 eq $az2;
}

sub same_type($$) {
	my ($f1, $f2) = @_;
	return "f" if -f $f1 && -f $f2;
	return "d" if -d $f1 && -d $f2 && $opt_deep;
	return;
}

sub supercmp($$$) {
	my ($dir1, $dir2, $glob) = @_;
	my $diff;
try:	while (1) {
		foreach my $cmp_func (\&_cmp_eq, \&_cmp_az) {
			chdir $dir1; my @f1 = <*>;
			foreach my $f1 (@f1) {
				chdir $dir2; my @f2 = <*>;
				foreach my $f2 (@f2) {
					if ($cmp_func->($f1, $f2) && same_type("$dir1/$f1", "$dir2/$f2")) {
						$diff .= cmp_rm "$dir1/$f1", "$dir2/$f2";
						next try;
					}
				}
			}
		}
		last;
	}
	return $diff;
}

sub rpmcmp ($$) {
	my ($rpm1, $rpm2) = map { realpath($_) } @_;
	my ($name1, $name2) = map { /.*\/(.+?)\.src\.rpm/ } ($rpm1, $rpm2);
	-f $rpm1 or die "$rpm1: $!\n";
	-f $rpm2 or die "$rpm2: $!\n";

	my $dir1 = tmp_unpack $rpm1; uncompress $dir1;
	my $dir2 = tmp_unpack $rpm2; uncompress $dir2;

	my $diff = supercmp($dir1, $dir2, "*.spec");
	$diff .= supercmp($dir1, $dir2, "*.patch");
	$diff .= supercmp($dir1, $dir2, "*");

# see the rest
	$diff .= "End of diff\n";
	my $rest1 = `/bin/ls -AF $dir1`;
	$diff .= "\nFiles not compared in $dir1\:\n$rest1\n" if $rest1 =~ /\S/;
	my $rest2 = `/bin/ls -AF $dir2`;
	$diff .= "\nFiles not compared in $dir2\:\n$rest2\n" if $rest2 =~ /\S/;

# filter out temporary dirs
	$diff =~ s/\Q$dir1/$name1/g;
	$diff =~ s/\Q$dir2/$name2/g;
	return $diff;
}

@ARGV == 2 and -f $ARGV[0] and -f $ARGV[1] or print <<EOF and exit 1;
usage:
$0 [--deep] package1.src.rpm package2.src.rpm
EOF
print rpmcmp $ARGV[0], $ARGV[1];

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [devel] Re: sisyphus-daily?

[Yuri N. Sedunov]

On 19 Ноябрь 2003 20:46, Michael Shigorin wrote:
> On Wed, Nov 19, 2003 at 07:56:03PM +0300, Sergey Vlasov wrote:
> > Сюда надо бы засадить переименование в
> > "`rpmquery --qf='%{NAME}' -p "$srpm"`.spec".
>
> Заодно вылезло, что в synaptic-0.45-alt1.src.rpm спек именуется
> просто synaptic (вынуто из sandman?).

Т-с-с! Робот услышит.

-- 
Yuri N. Sedunov

[devel] Re: sisyphus-daily?

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 1195 bytes --]

On Wed, Nov 19, 2003 at 09:09:51PM +0200, Michael Shigorin wrote:
> Представь себе обновление ядра (со всеми модулями) и парочки
> пакетов, до которых давно майнтейнеры не добирались ;-)

Объемом почты меня не испугаешь. :)

> Все-таки предоставление такой информации в push-режиме
> (рассылка), а не pull (возможность доступа и выделения изменения
> между _заданными_ версиями) мне активно кажется неудачной идеей.

Для этого нужно заводить public r/o CVS, а это не входит в мои
возможности...  Кроме того, это уже обсуждалось, и были достигнуто
определенное согласие, но сделано так ничего и не было. :(

Просто для QA Team нужен именно push режим, со всеми подробностями.


--- rpmcmp.pl-	2003-11-19 22:09:26 +0300
+++ rpmcmp.pl	2003-11-19 22:12:13 +0300
@@ -55,9 +55,9 @@ sub supercmp($$$) {
 	my $diff;
 try:	while (1) {
 		foreach my $cmp_func (\&_cmp_eq, \&_cmp_az) {
-			chdir $dir1; my @f1 = <*>;
+			chdir $dir1; my @f1 = glob($glob);
 			foreach my $f1 (@f1) {
-				chdir $dir2; my @f2 = <*>;
+				chdir $dir2; my @f2 = glob($glob);
 				foreach my $f2 (@f2) {
 					if ($cmp_func->($f1, $f2) && same_type("$dir1/$f1", "$dir2/$f2")) {
 						$diff .= cmp_rm "$dir1/$f1", "$dir2/$f2";

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

[devel] Re: sisyphus-daily?

[Michael Shigorin]

[-- Attachment #1: Type: text/plain, Size: 1225 bytes --]

On Wed, Nov 19, 2003 at 10:18:04PM +0300, Alexey Tourbin wrote:
> > Представь себе обновление ядра (со всеми модулями) и парочки
> > пакетов, до которых давно майнтейнеры не добирались ;-)
> Объемом почты меня не испугаешь. :)

Ну тогда еще раз уточню -- это получается отслеживание изменений
по исходникам *всего* софта в sisyphus.  Геройство уважаю, но
смысла тут действительно не вижу.

> > Все-таки предоставление такой информации в push-режиме
> > (рассылка), а не pull (возможность доступа и выделения
> > изменения между _заданными_ версиями) мне активно кажется
> > неудачной идеей.
> Для этого нужно заводить public r/o CVS, а это не входит в мои
> возможности...  Кроме того, это уже обсуждалось, и были
> достигнуто определенное согласие, но сделано так ничего и не
> было. :(

Ммм... это орг. вопрос, а не технологический.  В данном случае
изменение технических решений из-за нерешаемости оргвопросов мне
кажется началом тупика.

> Просто для QA Team нужен именно push режим, со всеми подробностями.

Ну, тебе видней.  Только для QA team это осмысленно и делать чуть
ли не прямо в офисе, почто каналы-то грузить...

-- 
 ---- WBR, Michael Shigorin <mike@altlinux.ru>
  ------ Linux.Kiev http://www.linux.kiev.ua/

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

[devel] Re: sisyphus-daily?

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 643 bytes --]

On Wed, Nov 19, 2003 at 10:18:04PM +0300, Alexey Tourbin wrote:
> > Представь себе обновление ядра (со всеми модулями) и парочки
> > пакетов, до которых давно майнтейнеры не добирались ;-)
> 
> Объемом почты меня не испугаешь. :)

Впрочем, объем получается действительно большой.

$ du -hs =(rpmcmp.pl --deep archive/Sisyphus/2003/11/14/SRPMS.classic/autoconf_2.5-2.57-alt2.src.rpm Sisyphus/SRPMS.classic/autoconf_2.5-2.58-alt1.src.rpm)
1,1M    /home/at/tmp/zshojuLyd
$

PS: кстати, этот скрипт умеет отлавливать переименования спеков,
патчей и т.д., особенно в смысле version number (в данном случае:
autoconf-2.5.spec -> autoconf_2.5.spec).

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

[devel] Re: sisyphus-daily?

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 396 bytes --]

On Wed, Nov 19, 2003 at 09:25:28PM +0200, Michael Shigorin wrote:
> Ммм... это орг. вопрос, а не технологический.  В данном случае
> изменение технических решений из-за нерешаемости оргвопросов мне
> кажется началом тупика.

CVS и рассылка типа mandarke-changelog отчасти пересекаются по задачам и
функциональности, но лишь отчасти.  Второе -- это ещё и публичный шаг,
заметный в гугле и т.п. :)

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

[devel] Re: sisyphus-daily?

[Michael Shigorin]

[-- Attachment #1: Type: text/plain, Size: 364 bytes --]

On Wed, Nov 19, 2003 at 10:37:19PM +0300, Alexey Tourbin wrote:
> CVS и рассылка типа mandarke-changelog отчасти пересекаются по
> задачам и функциональности, но лишь отчасти.  Второе -- это ещё
> и публичный шаг, заметный в гугле и т.п. :)

Тубу гугль не жалко? =/

-- 
 ---- WBR, Michael Shigorin <mike@altlinux.ru>
  ------ Linux.Kiev http://www.linux.kiev.ua/

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

[devel] Re: [sisyphus] Re: sisyphus-daily?

[Alexey Morozov]

[-- Attachment #1: Type: text/plain, Size: 1080 bytes --]

On Wed, Nov 19, 2003 at 10:18:04PM +0300, Alexey Tourbin wrote:
> Для этого нужно заводить public r/o CVS, а это не входит в мои
> возможности...  Кроме того, это уже обсуждалось, и были достигнуто
> определенное согласие, но сделано так ничего и не было. :(
Public R/O CVS - вообще здравая идея, безо всяких остальных соображений.
Я вот сижу уже с месяц на дайлапе (надеюсь, сколько закончится), и, э-э-э,
все больше и больше начинаю думать о генту :-), потому как реально изменения,
в общем, небольшие при каждой итерации, но постоянно выкачивать целиком
[src-]rpm - больно напряжно...

И туда же (методом CVS'ных commit-нотификаций) можно повесить всю необходимую
инфу про changelog'и. А слать целиком diff между пакетами... Э-э-э...
Может, таки правда, gentoo/ports и все дела :-).

> Просто для QA Team нужен именно push режим, со всеми подробностями.
Для QA Team нужны оповещения об _логических_ изменениях в пакетах (изменен
статус какого-то бага, выставлена новая версия итп). Видеть в почте диффчики
для всего - это, конечно, круто, но, боюсь, голова быстро сломается.



[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [devel] Re: sisyphus-daily?

[Sviataslau Svirydau]

Michael Shigorin wrote:

>On Wed, Nov 19, 2003 at 07:56:03PM +0300, Sergey Vlasov wrote:
>  
>
>>Сюда надо бы засадить переименование в
>>"`rpmquery --qf='%{NAME}' -p "$srpm"`.spec".
>>    
>>
>
>Заодно вылезло, что в synaptic-0.45-alt1.src.rpm спек именуется
>просто synaptic (вынуто из sandman?).
>  
>

Верно, из sandman'а это... Некоторое время synaptic жил под sandman'ом, 
хотя последние несколько релизов были под другой крышей - под hasher'ом :)
А что господа разработчики делают с пакетами из sandman'а? Вернее, с их 
спеками?

-- 
Regards,
Sviatoslav Sviridov <Sviataslau_Svirydau at epam.com>
/* icq: 10845380; jid: svd at altlinux.org; */
-- 
Katz' Law:
	Men and nations will act rationally when
	all other possibilities have been exhausted.

History teaches us that men and nations behave wisely once they have
exhausted all other alternatives.
		-- Abba Eban

Re: [devel] Re: sisyphus-daily?

[Alexander Bokovoy]

On Thu, Nov 20, 2003 at 09:29:59AM +0200, Sviataslau Svirydau wrote:
> Michael Shigorin wrote:
> 
> >On Wed, Nov 19, 2003 at 07:56:03PM +0300, Sergey Vlasov wrote:
> > 
> >
> >>Сюда надо бы засадить переименование в
> >>"`rpmquery --qf='%{NAME}' -p "$srpm"`.spec".
> >>   
> >>
> >
> >Заодно вылезло, что в synaptic-0.45-alt1.src.rpm спек именуется
> >просто synaptic (вынуто из sandman?).
> > 
> >
> 
> Верно, из sandman'а это... Некоторое время synaptic жил под sandman'ом, 
> хотя последние несколько релизов были под другой крышей - под hasher'ом :)
> А что господа разработчики делают с пакетами из sandman'а? Вернее, с их 
> спеками?
Как тебе удалось положить спек под именем synaptic (без расширения) в
src.rpm в sandman-е? Он ведь сам генерирует src.rpm при сборке с
правильным наименованием спека. Так что на лицо твоя собственная ошибка --
отправил в Сизиф src.rpm, собранный руками, а не в sandman.
-- 
/ Alexander Bokovoy
Samba Team                      http://www.samba.org/
ALT Linux Team                  http://www.altlinux.org/
Midgard Project Ry              http://www.midgard-project.org/

Re: [devel] Re: sisyphus-daily?

[Sviataslau Svirydau]

Alexander Bokovoy wrote:

>On Thu, Nov 20, 2003 at 09:29:59AM +0200, Sviataslau Svirydau wrote:
>  
>
>>Michael Shigorin wrote:
>>
>>    
>>
>>>On Wed, Nov 19, 2003 at 07:56:03PM +0300, Sergey Vlasov wrote:
>>>
>>>
>>>      
>>>
>>>>Сюда надо бы засадить переименование в
>>>>"`rpmquery --qf='%{NAME}' -p "$srpm"`.spec".
>>>>  
>>>>
>>>>        
>>>>
>>>Заодно вылезло, что в synaptic-0.45-alt1.src.rpm спек именуется
>>>просто synaptic (вынуто из sandman?).
>>>
>>>
>>>      
>>>
>>Верно, из sandman'а это... Некоторое время synaptic жил под sandman'ом, 
>>хотя последние несколько релизов были под другой крышей - под hasher'ом :)
>>А что господа разработчики делают с пакетами из sandman'а? Вернее, с их 
>>спеками?
>>    
>>
>Как тебе удалось положить спек под именем synaptic (без расширения) в
>src.rpm в sandman-е? Он ведь сам генерирует src.rpm при сборке с
>правильным наименованием спека. Так что на лицо твоя собственная ошибка --
>отправил в Сизиф src.rpm, собранный руками, а не в sandman.
>  
>

И вправду лажанулся...
Раскаиваюсь и обещаю исправиться к следующей сборке :)

-- 
Regards,
Sviatoslav Sviridov <Sviataslau_Svirydau at epam.com>
/* icq: 10845380; jid: svd at altlinux.org; */
-- 
Velilind's Laws of Experimentation:
	(1) If reproducibility may be a problem, conduct the test only once.
	(2) If a straight line fit is required, obtain only two data points.