roko.li/sharee.bike
5
0
Fork 0
mirror of https://gitlab.com/t6353/sharee.bike.git synced 2025-05-10 05:56:27 +02:00
Code Issues Projects Releases Packages Wiki Activity

Adding fibu fee for operator accounting

Browse source
This commit is contained in:
ragu 2023-05-05 07:30:00 +02:00
parent 7fca481632
commit 9da4bd0cb0
11 changed files with 111 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

22
copri4/main/src/Mod/Shareework.pm
View file

@ -4,7 +4,7 @@ package Shareework;
# Copyright (c) Rainer Gümpelein, TeilRad GmbH
#
#disable for syntax check
#use lib qw(/var/www/copri4/shareeapp-primary/src);
#use lib qw(/var/www/copri-bike/shareeapp-primary/src);
use strict;
use warnings;
@ -766,27 +766,33 @@ sub smsack(){
#Send email after payable check and !int04
sub emailack(){
my $self = shift;
my $c_id = shift;
my %varenv = $cf->envonline();
system(`$varenv{basedir}/src/Mod/newsletter_tink.pl "$varenv{basedir}" "$varenv{wwwhost}" "emailack" "$c_id" ""`);
my $varenv = shift;
my $adr_id = shift || "";
system(`$varenv->{basedir}/src/Mod/newsletter_tink.pl "$varenv->{basedir}" "$varenv->{wwwhost}" "emailack" "$adr_id" ""`);
#TODO
#system("$dbt->{copri_conf}->{basedir}/$varenv->{syshost}/src/scripts/mailTransportcms.pl '$varenv->{syshost}' 'send_emailack' '$adr_id' ''");
}
#Password forgotten send email
sub send_password(){
my $self = shift;
my ($email,$coo,$owner) = @_;
my %varenv = $cf->envonline();
my $varenv = shift;
my $email = shift || "";
my $coo = shift || "";
my $owner = shift || "";
$email = $q->escapeHTML($email);
$email =~ s/\s//g;
$bw->log("$varenv{basedir}/src/Mod/newsletter_tink.pl",$email,"");
my $pwmd5 = md5_hex($coo) || "";
if($email && $email =~ /\w\@\w/ && $pwmd5 && length($pwmd5) > 20 && $email !~ /$dbt->{copri_conf}->{test_accounts}/i){
my $pwsha256=sha256_base64($pwmd5) || "";
$db->updater("contentadr","1","1","txt04","$pwsha256","$owner","txt08","ilike","$email");
system(`$varenv{basedir}/src/Mod/newsletter_tink.pl "$varenv{basedir}" "$varenv{wwwhost}" "send_password" "$email" "$coo"`);
system(`$varenv->{basedir}/src/Mod/newsletter_tink.pl "$varenv->{basedir}" "$varenv->{wwwhost}" "send_password" "$email" "$coo"`);
#TODO
#system("$dbt->{copri_conf}->{basedir}/$varenv->{syshost}/src/scripts/mailTransportcms.pl '$varenv->{syshost}' 'send_password' '$c_id' ''");
}
}