Revision history for Net::Plesk
+0.04 unreleased
+ - handle responses with an encoding= (though not actually the encoding)
+
0.03 Fri Mar 14 14:16:04 2008 EDT
- cite dependancies and other meta work
- not really an Exporter and no need for Data::Dumper
my $self = {};
bless($self, $class);
+ my $encoding = ''; #default
my $data = shift;
- if ($data =~ /^\<\?xml version=\"1.0\"\?\>(.*)$/s){
- $data=$1;
+ if ($data =~ /^\<\?xml version=\"1.0\"(\s+encoding="([\w\-]*)")?\?\>(.*)$/s){
+ $encoding = $2; #don't actually do anything with this yet
+ $data = $3;
}else{
$data =~ s/[^\w\s]/ /g; # yes, we lose stuff
$data = '<?xml version="1.0"?>' .