Construct start message

Make the start message to correspond to the test expectation.

Grab the issue link first because that should tip us off that this is
the text that will give us the starter data.

Also chomp the newline from the test string to match the function
result.

1 files changed, 8 insertions, 0 deletions

diff --git a/hipchat-stfu.pl b/hipchat-stfu.pl
index 413380a..95bd0d4 100644
--- a/hipchat-stfu.pl
+++ b/hipchat-stfu.pl
@@ -15,6 +15,9 @@ $VERSION = '1.00';
 sub prettify_hipchat {
 	my ($input) = @_;
 	
+	# Grab browse link
+	my ($link) = $input =~ /"([^"]+\/browse\/[^"]+)"/;
+	
 	# Remove HTML tags
 	$input =~ s/<.+?>//g;
 	
@@ -24,6 +27,11 @@ sub prettify_hipchat {
 	# Trim whitespace between words
 	$input =~ s/(\s| ){2,}/ /g;
 	
+	# Construct start message
+	if ($link) {
+		$input =~ s/ Created by/\n$link\nCreated by/g;
+	}
+	
 	return $input;
 };