summaryrefslogtreecommitdiffstats
path: root/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MG.pm
diff options
context:
space:
mode:
Diffstat (limited to 'chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MG.pm')
-rw-r--r--chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MG.pm100
1 files changed, 0 insertions, 100 deletions
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MG.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MG.pm
deleted file mode 100644
index c4950e20048..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/Net/DNS/RR/MG.pm
+++ /dev/null
@@ -1,100 +0,0 @@
-package Net::DNS::RR::MG;
-#
-# $Id: MG.pm 632 2007-03-12 13:24:21Z olaf $
-#
-use strict;
-BEGIN {
- eval { require bytes; }
-}
-use vars qw(@ISA $VERSION);
-
-@ISA = qw(Net::DNS::RR);
-$VERSION = (qw$LastChangedRevision: 632 $)[1];
-
-sub new {
- my ($class, $self, $data, $offset) = @_;
-
- if ($self->{"rdlength"} > 0) {
- ($self->{"mgmname"}) = Net::DNS::Packet::dn_expand($data, $offset);
- }
-
- return bless $self, $class;
-}
-
-sub new_from_string {
- my ($class, $self, $string) = @_;
-
- if ($string) {
- $string =~ s/\.+$//;
- $self->{"mgmname"} = $string;
- }
-
- return bless $self, $class;
-}
-
-sub rdatastr {
- my $self = shift;
-
- return exists $self->{"mgmname"} ? "$self->{mgmname}." : '';
-}
-
-sub rr_rdata {
- my ($self, $packet, $offset) = @_;
- my $rdata = "";
-
- if (exists $self->{"mgmname"}) {
- $rdata .= $packet->dn_comp($self->{"mgmname"}, $offset);
- }
-
- return $rdata;
-}
-
-
-sub _canonicalRdata {
- my $self=shift;
- my $rdata = "";
- if (exists $self->{"mgmname"}) {
- $rdata .= $self->_name2wire(lc($self->{"mgmname"}));
- }
- return $rdata;
-}
-
-
-1;
-__END__
-
-=head1 NAME
-
-Net::DNS::RR::MG - DNS MG resource record
-
-=head1 SYNOPSIS
-
-C<use Net::DNS::RR>;
-
-=head1 DESCRIPTION
-
-Class for DNS Mail Group (MG) resource records.
-
-=head1 METHODS
-
-=head2 mgmname
-
- print "mgmname = ", $rr->mgmname, "\n";
-
-Returns the RR's mailbox field.
-
-=head1 COPYRIGHT
-
-Copyright (c) 1997-2002 Michael Fuhr.
-
-Portions Copyright (c) 2002-2004 Chris Reinhardt.
-
-All rights reserved. This program is free software; you may redistribute
-it and/or modify it under the same terms as Perl itself.
-=head1 SEE ALSO
-
-L<perl(1)>, L<Net::DNS>, L<Net::DNS::Resolver>, L<Net::DNS::Packet>,
-L<Net::DNS::Header>, L<Net::DNS::Question>, L<Net::DNS::RR>,
-RFC 1035 Section 3.3.6
-
-=cut