my $module = 'LWP::Simple';

my $return_val = $module->use;


if ($return_val)
  {
   $raw_data = get($command_args->{url}); 
   
   $result = "";
   
   if ($raw_data =~ m@<channel>(.*?)</channel>@s)
     {
      $channel_data = $1;
      
      $channel_data =~ s@\[@<lftsqbrk/>@g;
      $channel_data =~ s@\]@<rtsqbrk/>@g;
      $channel_data =~ s@\(@<lftbrk/>@g;
      $channel_data =~ s@\)@<rtbrk/>@g;
      $channel_data =~ s@\+@<plus/>@g;
      $channel_data =~ s@\?@<ques/>@g;
      $channel_data =~ s@\&apos;@<apos/>@g;
      $channel_data =~ s@\$@<dollar/>@g;
      
      #these escapes are needed for the regex's below to 
      #work properly.

      while ($channel_data =~ m@<item>(.*?)</item>@s)
        {
         $item_info = $1;
         $mask = $data;
         
         #the output mask is set to a copy of the data  
         #handed to the plugin

         while ($mask =~ m@<d>(.*?)</d>@s)
              {
               $get_item = $1;
               
               my $item_string;
               
               if ($item_info =~ m@<$get_item>(.*?)</$get_item>@s) { $item_string = $1; }
                 
               $mask =~ s@<d>$get_item</d>@$item_string@;
              }
              
         $result .= $mask;
         
         $channel_data =~ s@<item>$item_info</item>@@; 
        }
     }
   else
     {
      $result = "<error>Couldnt find channel tag</error>";
     }
    
  }
else
  {
   $result = "<error>Couldnt retrieve url</error>";
  }