[deliverable/titan.core.git] / regression_test / XML / HN15589 / log2xml.pl

#!/usr/bin/perl -wln
###############################################################################
# Copyright (c) 2000-2015 Ericsson Telecom AB
# All rights reserved. This program and the accompanying materials
# are made available under the terms of the Eclipse Public License v1.0
# which accompanies this distribution, and is available at
# http://www.eclipse.org/legal/epl-v10.html
###############################################################################
use strict;

next unless my ($txt) = m{Action: '[\da-fA-F]+'O \("(.+)"\)};

$txt =~ s/\\n/\n/g;
$txt =~ s/\\t/\t/g;

print $txt;
Commit	Line	Data
970ed795 EL	1	#!/usr/bin/perl -wln
970ed795 EL	2	###############################################################################
3abe9331	3	# Copyright (c) 2000-2015 Ericsson Telecom AB
970ed795 EL	4	# All rights reserved. This program and the accompanying materials
	5	# are made available under the terms of the Eclipse Public License v1.0
	6	# which accompanies this distribution, and is available at
	7	# http://www.eclipse.org/legal/epl-v10.html
	8	###############################################################################
	9	use strict;
	10
	11	next unless my ($txt) = m{Action: '[\da-fA-F]+'O \("(.+)"\)};
	12
	13	$txt =~ s/\\n/\n/g;
	14	$txt =~ s/\\t/\t/g;
	15
	16	print $txt;