[Codestriker-commits] CVS update: codestriker/bin CodestrikerClient.pm

[<si...@us...>]

  User: sits    
  Date: 08/06/19 21:29:36

  Modified:    bin      CodestrikerClient.pm
  Log:
  Also a part of Rob's work.
  
  
  
  Index: CodestrikerClient.pm
  ===================================================================
  RCS file: /cvsroot/codestriker/codestriker/bin/CodestrikerClient.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- CodestrikerClient.pm	5 Oct 2005 23:23:07 -0000	1.4
  +++ CodestrikerClient.pm	20 Jun 2008 04:29:36 -0000	1.5
  @@ -73,4 +73,28 @@
       return $rc ? $1 : undef;
   }
   
  +# Retrieve the details of a topic in XML format
  +# Filtered based on a bugid
  +sub get_topics_xml {
  +    my ($self, $bugid, $author, $reviewer, $cc, $text) = @_;
  +
  +    # Perform the HTTP Post.
  +    my $ua = new LWP::UserAgent;
  +    my $content = [ action => 'list_topics',
  +		    format => 'xml',
  +		    sbugid => $bugid,
  +		    sauthor => $author,
  +		    sreviewer => $reviewer,
  +		    scc => $cc,
  +		    stext => $text];
  +
  +    my $response =
  +	$ua->request(HTTP::Request::Common::POST($self->{url},
  +						 Content_Type => 'form-data',
  +						 Content => $content));
  +
  +    return $response->content;
  +}
  +
  +
   1;