[Adium-commits] adium 1974:6158b743c19c: Since we no longer use Subversion, anyt...

[adium-commits at adiumx.com]

details:	http://hg.adiumx.com/adium/rev/6158b743c19c
revision:	1974:6158b743c19c
author:		Peter Hosey
date:		Sat Apr 25 08:30:04 2009 -0700

Since we no longer use Subversion, anything relating to it or svk is subject to burnination.

diffstat:

 Utilities/svkRevNum.pl |  57 ----------------------------
 1 files changed, 0 insertions(+), 57 deletions(-)

diffs (61 lines):

diff -r 5cc67b012731 -r 6158b743c19c Utilities/svkRevNum.pl
--- a/Utilities/svkRevNum.pl	Sat Apr 25 08:23:41 2009 -0700
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,57 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-
-my $dirToFigure = ".";
-my $line;
-my @currentDirInfo;
-my $depot;
-my @mirrorPaths;
-my $mirrorPath;
-my $currentRev;
-my $upstreamRev = 0;
-my @mirrorDirInfo;
-my $isMirrorDir = 0;
-my $foundMirror=0;
-
-$dirToFigure = $ARGV[0] if (scalar(@ARGV) > 0);
- at currentDirInfo = `svk info $dirToFigure`;
-
-
-foreach $line (@currentDirInfo) {
-	if ($line =~ m%Depot Path: /([^/]*)/.*%) {
-		$depot = $1;
-	}
-	if ($line =~ m%Revision: ([0-9]*)%) {
-		$currentRev = $1;
-	}
-	if ($line =~ m%Merged From: (/.*), Rev. ([0-9]*)%) {
-		if ( $upstreamRev == 0 || $2 > $upstreamRev ) {
-			push(@mirrorPaths,$1);
-			$upstreamRev = $2;
-		}
-	}
-}
-
-foreach $mirrorPath (@mirrorPaths) {
-	if ($foundMirror == 0) {
-		@mirrorDirInfo = `svk info /$depot/$mirrorPath`;
-		foreach $line (@mirrorDirInfo) {
-			if ($line =~ m%Mirrored From:%) {
-				$isMirrorDir = 1;
-			}
-		}
-		
-		if ($isMirrorDir) {
-			@mirrorDirInfo = `svk log -r $upstreamRev /$depot/$mirrorPath`;
-			foreach $line ( @mirrorDirInfo ) {
-				if ($line =~ m/r[0-9].*orig r([0-9]*).*/) {
-					$upstreamRev = $1;
-					$foundMirror=1;
-				}
-			}
-		}
-	}
-}
-
-print $upstreamRev . ", r" . $currentRev ."@".`hostname | sed 's/.local//'`;