From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Date: Thu, 8 Sep 2005 01:43:52 +0400 From: Alexey Tourbin To: ALT Linux Sisyphus discussion list Message-ID: <20050907214352.GY3539@solemn.turbinal.org> Mail-Followup-To: ALT Linux Sisyphus discussion list References: <20050830200721.GA7007@basalt.office.altlinux.org> <43155859.7060703@epam.com> <20050831075930.GH22171@solemn.turbinal.org> <43156AC4.6030000@epam.com> Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha1; protocol="application/pgp-signature"; boundary="CjAlqr6ZqJYkDGFX" Content-Disposition: inline In-Reply-To: <43156AC4.6030000@epam.com> Subject: [sisyphus] Re: I: Sisyphus-20050831 packages: +37! -1 +44 (4686) X-BeenThere: sisyphus@altlinux.ru X-Mailman-Version: 2.1.5 Precedence: list Reply-To: ALT Linux Sisyphus discussion list List-Id: ALT Linux Sisyphus discussion list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 07 Sep 2005 21:48:35 -0000 Archived-At: List-Archive: --CjAlqr6ZqJYkDGFX Content-Type: text/plain; charset=koi8-r Content-Disposition: inline Content-Transfer-Encoding: quoted-printable On Wed, Aug 31, 2005 at 11:31:00AM +0300, Sviataslau Svirydau wrote: > =EF=C7=D2=C1=CE=C9=DE=C5=CE=C9=C5 =CE=C1 alt - =C8=CF=D2=CF=DB=C9=CA =D7= =C1=D2=C9=C1=CE=D4. =F0=CC=C0=D3 =D0=CF=D3=D4=C1=D7=C9=D4=D8 =CF=C7=D2=C1= =CE=C9=DE=C5=CE=C9=C5 =CE=C1, > =D3=CB=C1=D6=C5=CD, =CD=C1=CB=D3=C9=CD=D5=CD 3 =D0=CF=D3=CC=C5=C4=CE=C9= =C5 =DA=C1=D0=C9=D3=C9 - =C9 =C4=CC=D1 =CE=C1=DE=C1=CC=C1 =D0=CF=C4=CF=CA= =C4=C5=D4. =E1 =D0=CF=D4=CF=CD > =D0=CF=D3=CD=CF=D4=D2=C9=CD - =DE=D4=CF =D0=CF=CE=D2=C1=D7=C9=D4=D3=D1 = =C9 =DE=D4=CF =CE=C5=D4, =C9 =D4=CF=C7=C4=C1 =CD=CF=D6=CE=CF =C2=D5=C4=C5= =D4 =D0=CF=C4=CB=CF=D2=D2=C5=CB=D4=C9=D2=CF=D7=C1=D4=D8. "the same packager, for last 3 months, no more than 3 entires" -rpm_lastchange() { rpm -qp --lastchange -- "$@" |sed -ne \ - 's/@\([[:alnum:]-]\+\)\.[[:alnum:]]\+>/@\1>/;/[[:alnum:]]/p'; } + +rpm_recent_changes() +{ + perl -MRPM::Header -Mstrict -l - "$@" <<'__EOF__' + my ($f) =3D @ARGV; + tie my %hdr, "RPM::Header", $f or die "$f: $RPM::err\n"; + my ($guy0, $time0); + for my $i (0 .. $#{$hdr{CHANGELOGTIME}}) { + use Date::Format qw(time2str); + my $time =3D $hdr{CHANGELOGTIME}[$i]; + my $date =3D time2str("%a %b %d %Y", $time); + my $info =3D "* $date $hdr{CHANGELOGNAME}[$i]"; + my $guy; + $info =3D~ s{(?<=3D<)([^<>]+?)(?=3D>)}{ + local $_ =3D $1; + s/ at /@/g; s/ dot /./g; + s/@([-\w._]+)[.]\w+\z/\@$1/; + $guy =3D $_; + }e; + print $info; + $guy0 =3D $guy if $i =3D=3D 0; + $time0 =3D $time if $i =3D=3D 0; + # the same packager, for last 3 months, no more than 3 entires + my $again =3D $guy eq $guy0 && $time+3600*24*30*3 > $time0 && $i < 3; + print $hdr{CHANGELOGTEXT}[$i] if $again || $i =3D=3D 0; + last if not $again; + } +__EOF__ +} --CjAlqr6ZqJYkDGFX Content-Type: application/pgp-signature Content-Disposition: inline -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.5 (GNU/Linux) iD8DBQFDH18YfBKgtDjnu0YRAiwpAKDKD5gTy0Dtr5/TBPLnjGRSejNpSACdE9hJ ylwhpdTz2rEi3s35HZnlxXc= =Nqv9 -----END PGP SIGNATURE----- --CjAlqr6ZqJYkDGFX--