first commit

Cobalt-CheckCODB.pl

@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+opendir(DIR, "/usr/sausalito/codb/objects");
+@FILES=readdir(DIR);
+@FILESSORT = sort { $a <=> $b }  @FILES;
+
+$lastvalidoid = -100;
+$i=0;
+$lastdash = 0;
+$oidslist = "";
+foreach(@FILESSORT)
+{
+	if ($_ =~ /^-?\d/)
+	{
+		if($FILESSORT[$i+1] == $_ + 1)
+		{
+			if($lastdash == 0)
+			{
+				$oidslist .= "$_-";
+			}
+			$lastdash = 1;
+		}else{
+			$lastdash = 0;
+			$oidslist .= "$_,";
+		}
+		$lastvalidoid = $_;
+	}
+	$i++;
+}
+if(substr($oidslist, -1, 1) == ",")
+{
+	chop($oidslist);
+}
+
+open FILE, ">myoids" or die $!;
+print FILE $oidslist;
+close FILE;