#!/usr/bin/perl
#updateTdo
use warnings;
use strict 'vars';#this is to protect unquotted string,bareword which come from Soap trace
use SOAP::Lite +trace;

my $thay =SOAP::Lite->new();
$thay->proxy('http://localhost:9002');
$thay->uri('Todo');

print "Enter Your to Update Acronym:\n";
my $acro=<STDIN>;
chomp $acro;

print "Enter ID\n";
my $id=<STDIN>;
chomp $id;

print "Enter updated Time(YYYY-MM-DD-hr:MM)\n";
my $time=<STDIN>;
chomp  $time;

print "Enter a updated text to your ToDoList\n";
my $text=<STDIN>;
chomp $text;

print "Enter The new Priority your ToDoList(1-10)\n";
my $prio=<STDIN>;
chomp $prio;

my $data = $thay->call(
    updateTodo=>( SOAP::Data->name("acronym")->value("$acro"),
		  SOAP::Data->name("time")->value("$time"),
		  SOAP::Data->name("note")->value("$text"),
		  SOAP::Data->name("priority")->value("$prio"),
		  SOAP::Data->name("id")->value("$id")
    )
    );