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;
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://sourceforge.net/services/buy/index.php
_______________________________________________
Codestriker-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/codestriker-commits
