1 files changed, 8 insertions, 0 deletions
diff --git a/mdkonline.pm b/mdkonline.pm
index 6c67b54c..02399a66 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -50,6 +50,7 @@ our @EXPORT = qw(find_current_distro
                  $config_file
                  $product_id
                  $root);
+our @EXPORT_OK = qw(get_my_mdv_profile);
 
 our (%config, $product_id, $root);
 our $version = 1;
@@ -211,6 +212,13 @@ sub get_from {
     $response;
 }
 
+sub get_my_mdv_profile {
+    my ($email, $password) = @_;
+    xml2perl(mdkonline::get_from('https://my.mandriva.com/rest/authenticate',
+				 [ 'username', $email, 'password', $password, 
+				   'return', 'userdata' ]));
+}
+
 # callers need to require XML::Simple
 sub xml2perl {
     my ($res) = @_;