X-Git-Url: https://gerrit.o-ran-sc.org/r/gitweb?a=blobdiff_plain;ds=sidebyside;f=bin%2Fget_last_trace.pl;h=503203b3b1e67804a6131a65fcbbc63d5869a14e;hb=07495effe193ca3f73c3bf0ce417068f9ac9dcdd;hp=b18962f5413cc542702e76dff4e330dfb959d8ab;hpb=93d248304a68de7a8f9daf4aa74f9ee4cd27410c;p=com%2Fgs-lite.git

diff --git a/bin/get_last_trace.pl b/bin/get_last_trace.pl
index b18962f..503203b 100755
--- a/bin/get_last_trace.pl
+++ b/bin/get_last_trace.pl
@@ -1,40 +1,40 @@
-#! /usr/bin/perl
-
-# ------------------------------------------------
-#   Copyright 2014 AT&T Intellectual Property
-#   Licensed under the Apache License, Version 2.0 (the "License");
-#   you may not use this file except in compliance with the License.
-#   You may obtain a copy of the License at
-#
-#     http://www.apache.org/licenses/LICENSE-2.0
-#
-#   Unless required by applicable law or agreed to in writing, software
-#   distributed under the License is distributed on an "AS IS" BASIS,
-#   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-#   See the License for the specific language governing permissions and
-#   limitations under the License.
-# -------------------------------------------
-
-
-$outfile = "last_tracefile.txt";
-$infl = "/var/log/gstrace";
-
-if(scalar(@ARGV)>0){
-	$infl = $ARGV[0];
-}
-
-open I,$infl or die "Can't open input log file $infl\n";
-
-open O,">$outfile";
-
-while($line=<I>){
-	if($line =~ /rts:\[.*\]: Started Logging/){
-		close O;
-		open O,">$outfile";
-	}
-	print O $line;
-}
-close O;
-
-
-
+#! /usr/bin/perl
+
+# ------------------------------------------------
+#   Copyright 2014 AT&T Intellectual Property
+#   Licensed under the Apache License, Version 2.0 (the "License");
+#   you may not use this file except in compliance with the License.
+#   You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+#   Unless required by applicable law or agreed to in writing, software
+#   distributed under the License is distributed on an "AS IS" BASIS,
+#   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#   See the License for the specific language governing permissions and
+#   limitations under the License.
+# -------------------------------------------
+
+
+$outfile = "last_tracefile.txt";
+$infl = "/var/log/gstrace";
+
+if(scalar(@ARGV)>0){
+	$infl = $ARGV[0];
+}
+
+open I,$infl or die "Can't open input log file $infl\n";
+
+open O,">$outfile";
+
+while($line=<I>){
+	if($line =~ /rts:\[.*\]: Started Logging/){
+		close O;
+		open O,">$outfile";
+	}
+	print O $line;
+}
+close O;
+
+
+