<h2>Editing File: /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/HTTP/Headers/ETag.pm</h2><form method='post'><textarea name='content' class='file-edit'>package HTTP::Headers::ETag;

use strict;
use warnings;

our $VERSION = '7.00';

require HTTP::Date;

require HTTP::Headers;
package
    HTTP::Headers;

sub _etags
{
    my $self = shift;
    my $header = shift;
    my @old = _split_etag_list($self-&gt;_header($header));
    if (@_) {
	$self-&gt;_header($header =&gt; join(&quot;, &quot;, _split_etag_list(@_)));
    }
    wantarray ? @old : join(&quot;, &quot;, @old);
}

sub etag          { shift-&gt;_etags(&quot;ETag&quot;, @_); }
sub if_match      { shift-&gt;_etags(&quot;If-Match&quot;, @_); }
sub if_none_match { shift-&gt;_etags(&quot;If-None-Match&quot;, @_); }

sub if_range {
    # Either a date or an entity-tag
    my $self = shift;
    my @old = $self-&gt;_header(&quot;If-Range&quot;);
    if (@_) {
	my $new = shift;
	if (!defined $new) {
	    $self-&gt;remove_header(&quot;If-Range&quot;);
	}
	elsif ($new =~ /^\d+$/) {
	    $self-&gt;_date_header(&quot;If-Range&quot;, $new);
	}
	else {
	    $self-&gt;_etags(&quot;If-Range&quot;, $new);
	}
    }
    return unless defined(wantarray);
    for (@old) {
	my $t = HTTP::Date::str2time($_);
	$_ = $t if $t;
    }
    wantarray ? @old : join(&quot;, &quot;, @old);
}


# Split a list of entity tag values.  The return value is a list
# consisting of one element per entity tag.  Suitable for parsing
# headers like C&lt;If-Match&gt;, C&lt;If-None-Match&gt;.  You might even want to
# use it on C&lt;ETag&gt; and C&lt;If-Range&gt; entity tag values, because it will
# normalize them to the common form.
#
#  entity-tag	  = [ weak ] opaque-tag
#  weak		  = &quot;W/&quot;
#  opaque-tag	  = quoted-string


sub _split_etag_list
{
    my(@val) = @_;
    my @res;
    for (@val) {
        while (length) {
            my $weak = &quot;&quot;;
	    $weak = &quot;W/&quot; if s,^\s*[wW]/,,;
            my $etag = &quot;&quot;;
	    if (s/^\s*(\&quot;[^\&quot;\\]*(?:\\.[^\&quot;\\]*)*\&quot;)//) {
		push(@res, &quot;$weak$1&quot;);
            }
            elsif (s/^\s*,//) {
                push(@res, qq(W/&quot;&quot;)) if $weak;
            }
            elsif (s/^\s*([^,\s]+)//) {
                $etag = $1;
		$etag =~ s/([\&quot;\\])/\\$1/g;
	        push(@res, qq($weak&quot;$etag&quot;));
            }
            elsif (s/^\s+// || !length) {
                push(@res, qq(W/&quot;&quot;)) if $weak;
            }
            else {
	 	die &quot;This should not happen: '$_'&quot;;
            }
        }
   }
   @res;
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

HTTP::Headers::ETag

=head1 VERSION

version 7.00

=head1 AUTHOR

Gisle Aas &lt;gisle@activestate.com&gt;

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 1994 by Gisle Aas.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2F3rdparty%2Fperl%2F542%2Fcpanel-lib%2FHTTP%2FHeaders'>Back to Directory</a>