From 1a52af777b36e92b5c8414b1438d0889c42ad8de Mon Sep 17 00:00:00 2001
From: zecke <zecke>
Date: Tue, 23 Jul 2002 12:21:02 +0000
Subject: some neat KDE scripts which makes living with

cvs more easy
Carsten said I should commit then
---
(limited to 'scripts/cvslastchange')

diff --git a/scripts/cvslastchange b/scripts/cvslastchange
new file mode 100644
index 0000000..ca77297
--- a/dev/null
+++ b/scripts/cvslastchange
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use File::Basename;
+
+die "need a filename!" if (!length($ARGV[0]));
+
+$cvsversion= dirname($0) . "/cvsversion";
+$version=`$cvsversion $ARGV[0]`;
+
+chop $version;
+my $vold = $version;
+my $vnew = $version;
+
+if ($version=~/^(.*)\.1$/) {
+  $vold = $1 if ($version=~/^([^.]\.[^.])\.[^.]\.[^.]$/);
+}
+else {
+  if ($version=~/^(.*)\.([^.]*)$/) { $v1 = $1; $v2 = $2 } 
+  $v2old = ${v2}-1;
+  $vold = $v1 . '.' . $v2old;
+}
+print "cvs -f log -N -r$vnew $ARGV[0]\n";
+system("cvs -f log -N -r$vnew $ARGV[0]");
+print "cvs -f diff -bp -u -r$vold -r$vnew $ARGV[0]\n";
+system("cvs -f diff -bp -u -r$vold -r$vnew $ARGV[0]");
--
cgit v0.9.0.2