ispman/lib ISPMan.pm,1.33,1.34

Update of /cvsroot/ispman/ispman/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6278/lib

Modified Files:
	ISPMan.pm 
Log Message:
removed ^M endings


Index: ISPMan.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- ISPMan.pm	14 Jan 2004 15:48:24 -0000	1.33
+++ ISPMan.pm	1 Feb 2004 15:59:26 -0000	1.34
@@ -135,8 +135,8 @@
    $self->{'mday'}=$mday;
 
 	if (defined $Config->{'convert_encoding'} && $Config->{'convert_encoding'}){
-		require Unicode::String;
-		import Unicode::String 	qw(latin1 utf8 utf16);
+		require Unicode::String;
+		import Unicode::String 	qw(latin1 utf8 utf16);
 	}
 
 
@@ -417,15 +417,15 @@
    return $self->{'dnsdata'}{$dn} if $type eq "soarecords";
    return $self->as_array($self->{'dnsdata'}{$dn}{'record'});
 }
-
-
 
 
 
-sub utf2lat {
-	my $self=shift;
+
+
+sub utf2lat {
+	my $self=shift;
    return $_[0]  unless (defined $self->{'Config'}{'convert_encoding'} && $self->{'Config'}{'convert_encoding'});
-	my $string=shift;
+	my $string=shift;
    if (ref $string eq "ARRAY") {
       my @newstring=();
       my $str;
@@ -436,12 +436,12 @@
    } else {
       return utf8($string)->latin1;
    }
-}
-
-sub lat2utf {
-	my $self=shift;
+}
+
+sub lat2utf {
+	my $self=shift;
     return $_[0]  unless (defined $self->{'Config'}{'convert_encoding'} && $self->{'Config'}{'convert_encoding'});
-	my $string=shift;
+	my $string=shift;
    if (ref $string eq "ARRAY") {
       my @newstring=();
       my $str;
@@ -452,18 +452,18 @@
    } else {
       return latin1($string)->utf8;
    }
-}
+}
 
 
 sub xutf2lat {
-   my $self=shift;
+   my $self=shift;
    #return $_[0]  unless (defined $self->{'Config'}{'convert_encoding'} && $self->{'Config'}{'convert_encoding'});
    #my $converter=new Text::Iconv $self->{'Config'}{'encoding'}{'utf8'}, $self->{'Config'}{'encoding'}{'local'};
    #return $self->convert_encoding($converter, @_);
 }
 
 sub xlat2utf {
-   my $self=shift;
+   my $self=shift;
    #return $_[0] unless (defined $self->{'Config'}{'convert_encoding'} && $self->{'Config'}{'convert_encoding'});
    #my $converter=new Text::Iconv $self->{'Config'}{'encoding'}{'local'}, $self->{'Config'}{'encoding'}{'utf8'};
    #return $self->convert_encoding($converter, @_);



-------------------------------------------------------
The SF.Net email is sponsored by EclipseCon 2004
Premiere Conference on Open Tools Development and Integration
See the breadth of Eclipse activity. February 3-5 in Anaheim, CA.
http://www.eclipsecon.org/osdn