summaryrefslogtreecommitdiffstats
path: root/mdkonline.pm
diff options
context:
space:
mode:
authorFrederic Lepied <flepied@mandriva.com>2004-10-11 04:35:42 +0000
committerFrederic Lepied <flepied@mandriva.com>2004-10-11 04:35:42 +0000
commit9d309fd1d214fc379c42f5fcded71a42505e77cc (patch)
treec56d04548c2be6a02c5a01cd1ab7237861c56395 /mdkonline.pm
parent588d1dccb412efe891b1a8715d0ac4ed4d3a7cd5 (diff)
downloadmgaonline-9d309fd1d214fc379c42f5fcded71a42505e77cc.tar
mgaonline-9d309fd1d214fc379c42f5fcded71a42505e77cc.tar.gz
mgaonline-9d309fd1d214fc379c42f5fcded71a42505e77cc.tar.bz2
mgaonline-9d309fd1d214fc379c42f5fcded71a42505e77cc.tar.xz
mgaonline-9d309fd1d214fc379c42f5fcded71a42505e77cc.zip
more robust to bogus answer to get the key
Diffstat (limited to 'mdkonline.pm')
-rw-r--r--mdkonline.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/mdkonline.pm b/mdkonline.pm
index fbd17fb4..ac235e4c 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -158,7 +158,7 @@ sub send_config {
my $response = $ua->request(POST $link,
Content_Type => 'form-data',
Content => [ %$content ]);
- if ($response->is_success && $response->content =~ /^TRUE(.*)/) {
+ if ($response->is_success && $response->content =~ /^TRUE(.*?)([^a-zA-Z0-9].*)?$/) {
($res, $key) = ('TRUE', $1);
}
($res, $key)