Add a little more parsing of stitcher error output so that we can classify

errors properly (not enough nodes, not enough bandwidth, etc) rather then
everything just getting "stitcher error". This will make the numbers on the
dashboard page look much better!

apt/create_instance.in

@@ -1421,6 +1421,10 @@ sub RunStitcher()
 		while (<SLOG>) {
 		    if ($_ =~ /^Allocation of slivers in .* failed:/) {
 			$morestuff = $_;
+
+			if ($_ =~ /protogeni AM code: (\d*):/) {
+			    $errcode = $1;
+			}
 		    }
 		    elsif (defined($morestuff)) {
 			if ($_ =~ /^Allocate slivers in slice .* failed/) {