Ok, I dont know how to write anything in perl, which is a problem itself. But, I am trying to get DotGo's account services feature to work. First, I think, a user has to send "username@example register" to get their number to register. Which I am not sure how to do that, because it is written in perl. If you have any experience w/ any of this, your help would be greatly appreciated! Oh, this is some perl code they provided (not sure what it does):
use strict;
my $user = chop(param($sys_corrected_path[0]));
WAIT--THIS SHOULD BE ARGUMENT, NOT PATH
my $password = password($user);
my $content;
if ($password) {
$content =<<EOF
<block>
<register password="$password"/>
<follow access="local"/>
<forward access="local"/>
</block>
EOF
;
} else {
$content =<<EOF
<message>
<content>No such user--try again</content>
</message>
EOF
;
}
print header;
print $content;
use strict;
my $user = chop(param($sys_corrected_path[0]));
WAIT--THIS SHOULD BE ARGUMENT, NOT PATH
my $password = password($user);
my $content;
if ($password) {
$content =<<EOF
<block>
<register password="$password"/>
<follow access="local"/>
<forward access="local"/>
</block>
EOF
;
} else {
$content =<<EOF
<message>
<content>No such user--try again</content>
</message>
EOF
;
}
print header;
print $content;