projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6022e7e
)
*** empty log message ***
author
ivan
<ivan>
Thu, 29 Jul 1999 19:13:06 +0000
(19:13 +0000)
committer
ivan
<ivan>
Thu, 29 Jul 1999 19:13:06 +0000
(19:13 +0000)
TODO
patch
|
blob
|
history
fs_signup/fs_signup_server
patch
|
blob
|
history
diff --git
a/TODO
b/TODO
index
e24c993
..
6702016
100644
(file)
--- a/
TODO
+++ b/
TODO
@@
-1,10
+1,27
@@
-$Id: TODO,v 1.3
5 1999-07-16 00:20:53
ivan Exp $
+$Id: TODO,v 1.3
6 1999-07-29 19:13:06
ivan Exp $
If you are interested in helping with any of these, please join the mailing
list (send a blank message to ivan-freeside-subscribe@sisd.com) to avoid
duplication of effort.
---
If you are interested in helping with any of these, please join the mailing
list (send a blank message to ivan-freeside-subscribe@sisd.com) to avoid
duplication of effort.
---
+
+A web version of the fs_passwd stuff would be nifty.
+
+If you have Cistron authenticating directly from MySQL, you can replicate
+in real-time instead of exporting periodically. See
+<http://www.mysql.com/Manual_chapter/manual_Common_problems.html#Replication>.
+
+these go in docs:
+<http://www.sisd.com/freeside/list-archive/msg00546.html>, and
+<http://www.sisd.com/freeside/list-archive/msg00554.html>
+
+and http://www.sisd.com/freeside/list-archive/msg00423.html
+
+> > 5: Is there anyway to get freeside to send a sysadmin a warning when a
+> > credit card has expired?
+No, but there should be.
+
Put this in the doc (quoting Mark Wells <mark@pc-intouch.com>):
>Of course, thanks to the sheer coolness of SQL and MyODBC, you can do
>whatever reports you want in basically whatever application you want.
Put this in the doc (quoting Mark Wells <mark@pc-intouch.com>):
>Of course, thanks to the sheer coolness of SQL and MyODBC, you can do
>whatever reports you want in basically whatever application you want.
diff --git
a/fs_signup/fs_signup_server
b/fs_signup/fs_signup_server
index
cb0e693
..
5feed4c
100755
(executable)
--- a/
fs_signup/fs_signup_server
+++ b/
fs_signup/fs_signup_server
@@
-1,36
+1,64
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# fs_
passwd
_server
+# fs_
signup
_server
#
#
-# portions of this script are copied from the `passwd' script in the original
-# (perl 4) camel book, now archived at
-# http://www.perl.com/CPAN/scripts/nutshell/ch6/passwd
-#
-# ivan@sisd.com 98-mar-9
-#
-# crypt-aware, s/password/_password/; ivan@sisd.com 98-aug-23
use strict;
use IO::Handle;
use FS::SSH qw(sshopen2);
use FS::UID qw(adminsuidsetup);
use FS::Record qw(qsearchs);
use strict;
use IO::Handle;
use FS::SSH qw(sshopen2);
use FS::UID qw(adminsuidsetup);
use FS::Record qw(qsearchs);
-use FS::svc_acct;
+use FS::cust_main_county;
+use FS::cust_main;
+
+use vars qw( $opt );
my $user = shift or die &usage;
adminsuidsetup $user;
my $user = shift or die &usage;
adminsuidsetup $user;
-my($shellmachine)=shift or die &usage;
+my $machine = shift or die &usage;
+
+my $agentnum = shift or die &usage;
+my $agent = qsearchs( 'agent', { 'agentnum' => $agentnum } ) or die &usage;
+#my %part_pkg = %{ $agent->pkgpart_hashref };
+
+my $refnum = shift or die &usage;
$SIG{CHLD} = sub { wait() };
$SIG{CHLD} = sub { wait() };
-my($fs_
passwdd)="/usr/local/sbin/fs_passwd
d";
+my($fs_
signupd)="/usr/local/sbin/fs_signup
d";
while (1) {
my($reader,$writer)=(new IO::Handle, new IO::Handle);
$writer->autoflush(1);
while (1) {
my($reader,$writer)=(new IO::Handle, new IO::Handle);
$writer->autoflush(1);
- sshopen2($shellmachine,$reader,$writer,$fs_passwdd);
+ sshopen2($shellmachine,$reader,$writer,$fs_signupd);
+
+ #send fs_signupd state/county/country
+ @cust_main_county = qsearch('cust_main_county', {} );
+ print $writer join("\n",
+ scalar(@cust_main_county),
+ map {
+ $_->taxnum,
+ $_->state,
+ $_->county,
+ $_->country,
+ } @cust_main_county
+ ),"\n";
+
+ #send fs_signupd package definitions
+
+ #send fs_signupd POPs
+
+
+
while (1) {
while (1) {
+ my( $first, $last, $ss, $company, $address1, $address2, $city, $county,
+ $state, $zip, $country, $daytime, $night, $fax, $payby, $payinfo,
+ $paydate, $payname, $username, $password, $popnum,
+ );
+
+
+
my($username,$old_password,$new_password,$new_gecos,$new_shell);
defined($username=<$reader>) or last;
defined($old_password=<$reader>) or last;
my($username,$old_password,$new_password,$new_gecos,$new_shell);
defined($username=<$reader>) or last;
defined($old_password=<$reader>) or last;
@@
-72,6
+100,6
@@
while (1) {
}
sub usage {
}
sub usage {
- die "Usage:\n\n fs_
passwd_server user shellmachine
\n";
+ die "Usage:\n\n fs_
signup_server user machine agentnum refnum
\n";
}
}