} elsif ( $processor eq 'cybercash3.2' ) {
%result = &CCMckDirectLib3_2::SendCC2_1Server(@full_xaction);
} else {
- return "Unkonwn real-time processor $processor\n";
+ return "Unknown real-time processor $processor\n";
}
#if ( $result{'MActionCode'} == 7 ) { #cybercash smps v.1.1.3
}
} else {
- return "Unkonwn real-time processor $processor\n";
+ return "Unknown real-time processor $processor\n";
}
} else { #batch card
=head1 VERSION
-$Id: cust_main.pm,v 1.8 2001-01-23 05:03:50 ivan Exp $
+$Id: cust_main.pm,v 1.9 2001-01-31 07:21:00 ivan Exp $
=head1 BUGS
if qsearchs( 'svc_acct', { 'username' => $self->username } );
my $part_svc = qsearchs( 'part_svc', { 'svcpart' => $self->svcpart } );
- return "Unkonwn svcpart" unless $part_svc;
+ return "Unknown svcpart" unless $part_svc;
return "uid in use"
if $part_svc->svc_acct__uid_flag ne 'F'
&& qsearchs( 'svc_acct', { 'uid' => $self->uid } )
$recref->{popnum} =~ /^(\d*)$/ or return "Illegal popnum: ".$recref->{popnum};
$recref->{popnum} = $1;
- return "Unkonwn popnum" unless
+ return "Unknown popnum" unless
! $recref->{popnum} ||
qsearchs('svc_acct_pop',{'popnum'=> $recref->{popnum} } );
=head1 VERSION
-$Id: svc_acct.pm,v 1.13 2000-07-17 13:51:07 ivan Exp $
+$Id: svc_acct.pm,v 1.14 2001-01-31 07:21:00 ivan Exp $
=head1 BUGS
-$Id: TODO,v 1.56 2000-12-26 23:51:40 ivan Exp $
+$Id: TODO,v 1.57 2001-01-31 07:21:00 ivan Exp $
If you are interested in helping with any of these, please join the
*development* mailing list (send a blank message to
---
+(future templating)
+.
+(at least) These questions need to be answered for Mason, Apache::ASP and
+eperl. If eperl becomes too much of a pain, I'm okay with forgetting
+about it - it's not well-maintained. The answers below are for Mason.
+.
+How do you interpolate a value? <% $value %>
+.
+How do you interpolate a value without escaping HTML? <% $value |n %>
+.
+How do you interpolate a (possibly non-stand-alone, non-interpolated)
+control structure? With an inital % - for example:
+.
+ % for each $value ( @values ) {
+ <OPTION><% $value %></OPTION>
+ % }
+.
+This is one of the things I worry that the webmonkey HTML editors will not
+like about Mason. That and the <%INIT> and <%PERL> tags.
+
+
+in the context of a state machine (& MySQL and Pg locking) for LDAP export:
+.
+Also note that Pg locks are for the duration of the transaction, so
+Freeside needs to start using transactions for this to happen.
+FS::UID::adminsuidsetup should explicitly set AutoCommit false and export
+some functions to begin and end transactions on $FS::UID::dbh. (Well,
+eventually FS::UID should be an overloaded subclass of a DBI handle, but
+we don't have to worry about that until perl threads + mod_perl + threaded
+Apache 2.0 is stable, i.e. quite some time).
+
+Postfix
+also supports virtual domains in a way that's somewhat similar (but not
+compatible with) the way sendmail does. In the postfix world, all virtual
+domain info is contained in one file (similar to the virtusertable), but
+is formatted as such:
+bar.com virtual
+foo@bar.com some@other.net
+quux@bar.com localuser1
+...
+and so on. After the file is generated, it gets compiled into a hash db
+using, "postmap /etc/postfix/virtual".
+
+
+steal all the play-nice-with-cache stuff back from RT
+
Use this for email checking:
libemail-valid-perl - Check validity of Internet email addresses
.
first package select field in edit/cust_main.cgi isn't sticky on errors, yuck
+(also referral isn't sticky either? yuck)
> 1. A Web Form to the user get his account added automatically . The
> /etc/raddb/users and /etc/passwd would be updated automatically (these
#!/usr/bin/perl -Tw
#
-# $Id: svc_acct.cgi,v 1.11 2000-12-03 20:25:20 ivan Exp $
+# $Id: svc_acct.cgi,v 1.12 2001-01-31 07:21:00 ivan Exp $
#
# Usage: svc_acct.cgi svcnum
# http://server.name/path/svc_acct.cgi?svcnum
# displays arbitrary radius attributes ivan@sisd.com 98-aug-16
#
# $Log: svc_acct.cgi,v $
-# Revision 1.11 2000-12-03 20:25:20 ivan
+# Revision 1.12 2001-01-31 07:21:00 ivan
+# fix tyops
+#
+# Revision 1.11 2000/12/03 20:25:20 ivan
# session monitor updates
#
# Revision 1.10 1999/04/14 11:27:06 ivan
$query =~ /^(\d+)$/;
$svcnum = $1;
$svc_acct = qsearchs('svc_acct',{'svcnum'=>$svcnum});
-die "Unkonwn svcnum" unless $svc_acct;
+die "Unknown svcnum" unless $svc_acct;
$cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
$pkgnum = $cust_svc->getfield('pkgnum');
}
$part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
-die "Unkonwn svcpart" unless $part_svc;
+die "Unknown svcpart" unless $part_svc;
$p = popurl(2);
print $cgi->header( '-expires' => 'now' ), header('Account View', menubar(