[SCM] Packaging of Net::Citadel in Debian branch, master, updated. debian/0.16-1-45-gd21e85b

Robert James Clay jame at rocasa.us
Wed Jun 5 17:20:44 UTC 2013


The following commit has been merged in the master branch:
commit 0c3d9b71038b429d52d93896da503a72885cebb6
Author: Robert James Clay <jame at rocasa.us>
Date:   Sun Feb 3 09:09:06 2013 -0500

    Change example user name from RobertBarta to TestUser in lib/Net/Citadel.pm.

diff --git a/lib/Net/Citadel.pm b/lib/Net/Citadel.pm
index 0ee0717..7543cc5 100644
--- a/lib/Net/Citadel.pm
+++ b/lib/Net/Citadel.pm
@@ -610,9 +610,9 @@ sub create_user {
     my $pwd  = shift;
     my $s    = $self->{socket};
     print $s "CREU $name|$pwd\n";
-#CREU RobertBarta|xxx
+#CREU TestUser|xxx
     <$s> =~ /(\d).. (.*)/ and ($1 == 2 or croak $2);
-#200 User 'RobertBarta' created and password set.
+#200 User 'TestUser' created and password set.
     return 1;
 }
 
@@ -641,9 +641,9 @@ sub change_user {
     my $s    = $self->{socket};
 
     print $s "AGUP $name\n";
-#AGUP RobertBarta
+#AGUP TestUser
     <$s> =~ /(\d).. (.*)/ and ($1 == 2 or croak $2);
-#200 RobertBarta|ggg|10768|1|0|4|4|1191255938|0
+#200 TestUser|ggg|10768|1|0|4|4|1191255938|0
     my %user;
     my @attrs = ('name', 'password', 'flags', 'times_called', 'messages_posted', 'access_level', 'user_number', 'timestamp', 'purge_time');
     @user{ @attrs } = split /\|/, $2;
@@ -674,9 +674,9 @@ sub remove_user {
     my $s    = $self->{socket};
 
     print $s "AGUP $name\n";
-#AGUP RobertBarta
+#AGUP TestUser
     <$s> =~ /(\d).. (.*)/ and ($1 == 2 or croak $2);
-#200 RobertBarta|ggg|10768|1|0|4|4|1191255938|0
+#200 TestUser|ggg|10768|1|0|4|4|1191255938|0
     my %user;
     my @attrs = ('name', 'password', 'flags', 'times_called', 'messages_posted', 'access_level', 'user_number', 'timestamp', 'purge_time');
     @user{ @attrs } = split /\|/, $2;

-- 
Packaging of Net::Citadel in Debian



More information about the Pkg-perl-cvs-commits mailing list