Update the string data source to use the new input metadata APIs

This commit is contained in:
ian%hixie.ch 2002-07-07 00:13:29 +00:00
parent 0cf7d7b879
commit 299f260287

View File

@ -230,30 +230,30 @@ sub getDefaultString {
} }
# Get the relevant headers from the input service:
# XXX The next four SO have to change...
sub acceptType { sub acceptType {
my $self = shift; my $self = shift;
my($app, $protocol) = @_; my($app, $protocol) = @_;
return $app->input->acceptType; return $app->input->getMetaData('acceptType');
} }
sub acceptEncoding { sub acceptEncoding {
my $self = shift; my $self = shift;
my($app, $protocol) = @_; my($app, $protocol) = @_;
return $app->input->acceptEncoding; return $app->input->getMetaData('acceptEncoding');
} }
sub acceptCharset { sub acceptCharset {
my $self = shift; my $self = shift;
my($app, $protocol) = @_; my($app, $protocol) = @_;
return $app->input->acceptCharset; return $app->input->getMetaData('acceptCharset');
} }
sub acceptLanguage { sub acceptLanguage {
my $self = shift; my $self = shift;
my($app, $protocol) = @_; my($app, $protocol) = @_;
return $app->input->acceptLanguage; return $app->input->getMetaData('acceptLanguage');
} }