#!/usr/bin/env perl

sub prompt {
  ($question, $default) = @_;
  if ( "$default" ne "" ) {
    $question = "$question [$default]";
  }
  print "$question: ";

  $response = <STDIN>;

  # Kill blank space
  $response =~ s/^\s+//;
  $response =~ s/\s+$//;

  # Check if default needs to be set
  if ( "$response" eq  "" ) {
    $response = $default;
  }
  return $response;
}

$NODE = prompt "Which node do you like to edit","CNodeRabo";
#$NODE = 'CNodeRabo';

require "./$NODE/wleiden.conf";

$LOCATION = prompt "Location",$location;