diff options
| author | Frederic Lepied <flepied@mandriva.com> | 2004-10-11 04:35:42 +0000 |
|---|---|---|
| committer | Frederic Lepied <flepied@mandriva.com> | 2004-10-11 04:35:42 +0000 |
| commit | 9d309fd1d214fc379c42f5fcded71a42505e77cc (patch) | |
| tree | c56d04548c2be6a02c5a01cd1ab7237861c56395 | |
| parent | 588d1dccb412efe891b1a8715d0ac4ed4d3a7cd5 (diff) | |
| download | mgaonline-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
| -rw-r--r-- | mdkonline.pm | 2 |
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) |