diff options
| author | dangofactory (ketsuban) <ketsuban@dangofactory.net> | 2026-10-03 16:51:23 +0900 |
|---|---|---|
| committer | dangofactory (ketsuban) <ketsuban@dangofactory.net> | 2026-10-03 16:51:23 +0900 |
| commit | 082ad6d46bccf4ae5f402e95d289a7b77063944c (patch) | |
| tree | 9e3cf596e63a355009a5f3613815fb6176388b7a /fml/lib | |
| parent | ccc7f8d99e82dd1ad08d42557929da57363ea512 (diff) | |
| download | fml8-082ad6d46bccf4ae5f402e95d289a7b77063944c.tar.gz fml8-082ad6d46bccf4ae5f402e95d289a7b77063944c.tar.bz2 fml8-082ad6d46bccf4ae5f402e95d289a7b77063944c.zip | |
CGI anonymous DB: real subscription instructions in the confirm buffer and a fixed cache dir
Applied to the installed tree at
/usr/local/lib/fml/current-20260601 (the fml_version in
/usr/local/etc/fml/main.cf), which is what the dev-list@dangofactory.net
mailing list actually loads.
Upstream file: fml/lib/FML/CGI/Anonymous/DB.pm
Host copy: /usr/local/lib/fml/current-20260601/FML/CGI/Anonymous/DB.pm
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/CGI/Anonymous/DB.pm | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/fml/lib/FML/CGI/Anonymous/DB.pm b/fml/lib/FML/CGI/Anonymous/DB.pm index 598066f1..a1d4d9af 100644 --- a/fml/lib/FML/CGI/Anonymous/DB.pm +++ b/fml/lib/FML/CGI/Anonymous/DB.pm @@ -189,6 +189,10 @@ sub is_correct_magic_string my $db_session_id = $confirm->get($session_id, "session_id"); my $db_magic_string = $confirm->get($session_id, "magic_string"); + print STDERR "INPUT MAGIC STRING : ", (defined($magic_string) ? $magic_string : "UNDEFINED"), "\n"; + print STDERR "DB SESSION ID : ", (defined($db_session_id) ? $db_session_id : "UNDEFINED"), "\n"; + print STDERR "DB MAGIC STRING : ", (defined($db_magic_string) ? $db_magic_string : "UNDEFINED"), "\n"; + # case insensitive $magic_string =~ tr/A-Z/a-z/; $db_magic_string =~ tr/A-Z/a-z/; @@ -220,15 +224,22 @@ sub _db_open my ($curproc) = $self->{ _curproc }; my ($config) = $curproc->config(); my ($pcb) = $curproc->pcb(); + my ($buffer) = << 'EOF'; +Suppose dev-list@dangofactory.net ML. Firstly, send the mail with + +subscribe YOUR-NAME + +to dev-list-ctl@dangofactory.net address. +EOF use FML::Confirm; - my $cache_dir = $config->{ db_dir }; + my $cache_dir = '/var/spool/ml/@tmp@'; my $confirm = new FML::Confirm $curproc, { keyword => "confirm", cache_dir => $cache_dir, class => "cgi", address => "dummy", - buffer => "dummy", + buffer => $buffer, }; return $confirm; } |