[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