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

sms_message if lock_state=locking

Browse source
This commit is contained in:
Rainer Gümpelein 2022-03-07 17:14:24 +01:00
parent beb2d92f71
commit 7b24b1dca8
4 changed files with 100 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
copri4/main/src/Mod/APIfunc.pm
View file

@ -1257,7 +1257,10 @@ sub booking_update(){
$booking_values->{state} = "$dbt->{copri_conf}->{bike_state}->{$booking->{int10}}";
$booking_values->{lock_state} = "locked" if($booking->{int20} == 1);
$booking_values->{lock_state} = "unlocked" if($booking->{int20} == 2);
$booking_values->{lock_state} = "locking" if($booking->{int20} == 3);
if($booking->{int20} == 3){
$booking_values->{lock_state} = "locking";
system(`$varenv{basedir}/src/scripts/sms_message.pl $varenv{syshost} locking_progress $auth->{txt07} $booking->{c_id}`);
}
#fetch tracking distance on Ilockit cloud by summary trip if(tracking && deviceId && available)
$bw->log("Ilockit_trackingcloud.pl $varenv{syshost} get_tripsum",$booking,"") if($booking->{int25});

50
copri4/main/src/Mod/SMSTransport.pm
View file

@ -99,6 +99,56 @@ sub sms_ack_digest {
return $ret_json;
}
#used for sending message if lock_state=locking and after 45 sec no lock_state=locked
sub sms_message {
my $self = shift;
my $sms_to = shift;
my $bike = shift;
my $sms_from = "Mietradinfo";
my $sms_message = "";
#goes to test if devel or joke bsp nr
if($dbt->{copri_conf}->{stage} eq "test" || $sms_to =~ /17012345678/){
$sms_to = "$dbt->{copri_conf}->{sms_to}";
$sms_message = "* offline Test *";
}
if($sms_to =~ /^0/ || $sms_to !~ /\+[1-9]/){
my $sms_tosub = $sms_to;
$sms_tosub =~ s/^\+00/\+/;
$sms_tosub =~ s/^00/\+/;
$sms_tosub =~ s/^0/\+49/;
$sms_to = $sms_tosub;
}
$sms_message .= "Die Miete zu $bike wurde nicht beendet! Bitte überprüfe ob das Schloss wirklich geschlossen wurde. Ist ihr smartphone online?";
my $message = Encode::encode('iso-8859-1', Encode::decode('utf-8',"$sms_message"));
open(FILE,">>$dbt->{copri_conf}->{logdir}/sms_gtx.log");
print FILE "\n*** $now_dt 'sharee smsclient' \n";
my $request = {
from => $sms_from,
to => $sms_to,
text => $message,
};
print FILE "---> request:\n" . Dumper($request);
my $ret_json = $self->get_sms_gtx($request);
eval {
$response_in = decode_json($ret_json);
print FILE "<--- response_in:\n" . Dumper($response_in);
};
if ($@){
print FILE "<--- failure raw response_in:\n" . Dumper($ret_json) . "\n";
warn $@;
}
close(FILE);
return $ret_json;
}
#sms gtx http request
sub get_sms_gtx {