perltidy

cmlh · Dec 19, 2012 · ca7da37 · ca7da37
1 parent 0a1844a
commit ca7da37
Showing 1 changed file with 50 additions and 39 deletions.
diff --git a/Local_Transforms/Perl-Maltego/perl-maltego.pl b/Local_Transforms/Perl-Maltego/perl-maltego.pl
@@ -11,25 +11,33 @@
 
 # TODO use autodie qw(:all);
 use autodie;
+
 # use Smart::Comments;
 
 my $VERSION = "0.1_0"; # May be required to upload script to CPAN i.e. http://www.cpan.org/scripts/submitting.html
 
 # http://ctas.paterva.com/view/Specification#Message_Wrapper
-my $maltego_message_start_tag =	"<MaltegoMessage>\n";
-my $maltego_transform_response_message_start_tag ="\t<MaltegoTransformResponseMessage>\n";
-my $ui_messages_start_tag = "\t\t<UIMessages>\n";
-my $ui_messages_end_tag = "\t\t</UIMessages>\n";
+my $maltego_message_start_tag = "<MaltegoMessage>\n";
+my $maltego_transform_response_message_start_tag =
+  "\t<MaltegoTransformResponseMessage>\n";
+my $ui_messages_start_tag           = "\t\t<UIMessages>\n";
+my $ui_messages_end_tag             = "\t\t</UIMessages>\n";
 my $ui_message_type_debug_start_tag = "\t\t\t<UIMessage MessageType=\"Debug\">";
-my $ui_message_type_inform_start_tag = "\t\t\t<UIMessage MessageType=\"Inform\">";
-my $ui_message_type_partial_error_start_tag = "\t\t\t<UIMessage MessageType=\"PartialError\">";
-my $ui_message_type_fatal_error_start_tag = "\t\t\t<UIMessage MessageType=\"FatalError\">";
+my $ui_message_type_inform_start_tag =
+  "\t\t\t<UIMessage MessageType=\"Inform\">";
+my $ui_message_type_partial_error_start_tag =
+  "\t\t\t<UIMessage MessageType=\"PartialError\">";
+my $ui_message_type_fatal_error_start_tag =
+  "\t\t\t<UIMessage MessageType=\"FatalError\">";
 my $ui_message_end_tag = "</UIMessage>\n";
+
 # http://ctas.paterva.com/view/Specification#Entity_definition
 my $entities_start_tag = "\t\t<Entities>\n";
+
 # TODO <Entity Type><Value> and <AdditionalFields>
 my $entities_end_tag = "\t\t</Entities>\n";
-my $maltego_transform_response_message_end_tag = "\t</MaltegoTransformResponseMessage>\n";
+my $maltego_transform_response_message_end_tag =
+  "\t</MaltegoTransformResponseMessage>\n";
 my $maltego_message_end_tag = "</MaltegoMessage>\n";
 
 sub split_maltego_additional_fields {
@@ -53,45 +61,48 @@ sub split_maltego_additional_fields {
 }
 
 sub maltego_ui {
-	if (@_ < 2) {
-		#TODO print DEBUG "@_ is less than 2";
-		die();
-	}
-	my @uimessages = @_;
-	print "$maltego_message_start_tag";
-	print "$maltego_transform_response_message_start_tag";
-	print "$ui_messages_start_tag";
-	foreach my $uimessage (@uimessages) {
-		# TODO Other UIMessage MessageType
-		if ($uimessage eq "Inform") {
-			# TODO Check array element should be "odd" numbered;
-			print $ui_message_type_inform_start_tag;
-			next;
-		}
-		if ($uimessage eq "Fatal Error") {
-			# TODO Check array element should be "odd" numbered;
-			print $ui_message_type_fatal_error_start_tag;
-			next;
-		}
-		chomp $uimessage;
-		print $uimessage;
-		print $ui_message_end_tag;
-	}
-	print "$ui_messages_end_tag";
+    if ( @_ < 2 ) {
+
+        #TODO print DEBUG "@_ is less than 2";
+        die();
+    }
+    my @uimessages = @_;
+    print "$maltego_message_start_tag";
+    print "$maltego_transform_response_message_start_tag";
+    print "$ui_messages_start_tag";
+    foreach my $uimessage (@uimessages) {
+
+        # TODO Other UIMessage MessageType
+        if ( $uimessage eq "Inform" ) {
+
+            # TODO Check array element should be "odd" numbered;
+            print $ui_message_type_inform_start_tag;
+            next;
+        }
+        if ( $uimessage eq "Fatal Error" ) {
+
+            # TODO Check array element should be "odd" numbered;
+            print $ui_message_type_fatal_error_start_tag;
+            next;
+        }
+        chomp $uimessage;
+        print $uimessage;
+        print $ui_message_end_tag;
+    }
+    print "$ui_messages_end_tag";
 }
 
 sub maltego_error_no_entities_to_return {
-	print $entities_start_tag;
-	print $entities_end_tag;
-	maltego_message_end();
+    print $entities_start_tag;
+    print $entities_end_tag;
+    maltego_message_end();
 }
 
 sub maltego_message_end {
-	print $maltego_transform_response_message_end_tag;
-	print $maltego_message_end_tag;
+    print $maltego_transform_response_message_end_tag;
+    print $maltego_message_end_tag;
 }
 
-
 =head1 NAME
 
 perl-maltego.pl