add new node type: servlet endpoints, rather than the ususal db table…

… endpoints
daveloyall · Apr 2, 2013 · 9fd3e68 · 9fd3e68
1 parent e757b2e
commit 9fd3e68
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/ne.gov/go.pl b/ne.gov/go.pl
@@ -48,11 +48,15 @@
 
 sub process_service {
    my ($twig, $s) = @_;
-   return unless ($s->first_child('Action')->first_child('QueueId'));
    my $name =            $s->first_child('Name')->text;
    my $action_name =     $s->first_child('Action')->first_child('Name')->text;
-   my $action_queue_id = $s->first_child('Action')->first_child('QueueId')->text;
-   add_edge($name . " / " . $action_name, $action_queue_id);
+   if ($s->first_child('Action')->first_child('QueueId')) {
+       my $action_queue_id = $s->first_child('Action')->first_child('QueueId')->text;
+       add_edge($name . " / " . $action_name, $action_queue_id);
+   } else {
+       my $action_servlet = $s->first_child('Action')->first_child('Url')->text;
+       add_edge($name . " / " . $action_name, $action_servlet);
+   }
 }