mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-01-31 18:59:33 +00:00
git-svn-id: https://svn.fhem.de/fhem/trunk@4282 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
pahenning
parent
404710f67b
commit
03f409c022
583
fhem/contrib/70_PT8005.pm
Normal file
583
fhem/contrib/70_PT8005.pm
Normal file
@ -0,0 +1,583 @@
|
||||
########################################################################################
|
||||
#
|
||||
# PT8005.pm
|
||||
#
|
||||
# FHEM module to read the data from a PeakTech PT8005 sound level meter
|
||||
#
|
||||
# Prof. Dr. Peter A. Henning, 2013
|
||||
#
|
||||
# Version 0.1 - November 2013
|
||||
#
|
||||
# Setup as:
|
||||
# define <name> PT8005 <device>
|
||||
#
|
||||
# where <name> may be replaced by any name string and <device>
|
||||
# is a serial (USB) device or the keyword "emulator".
|
||||
# In the latter case, a 4.5 kWP solar installation is simulated
|
||||
#
|
||||
# get <name> present => 1 if device present, 0 if not
|
||||
# get <name> reading => measurement for all channels
|
||||
#
|
||||
# Additional attributes are defined in fhem.cfg as
|
||||
# attr pt8005 room Noise
|
||||
# Monthly and yearly log file
|
||||
# attr pt8005 LogM NoiseLogM
|
||||
# attr pt8005 LogY NoiseLogY
|
||||
#
|
||||
########################################################################################
|
||||
#
|
||||
# This programm is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# The GNU General Public License can be found at
|
||||
# http://www.gnu.org/copyleft/gpl.html.
|
||||
# A copy is found in the textfile GPL.txt and important notices to the license
|
||||
# from the author is found in LICENSE.txt distributed with these scripts.
|
||||
#
|
||||
# This script is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
########################################################################################
|
||||
package main;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Device::SerialPort;
|
||||
|
||||
#-- Prototypes to make komodo happy
|
||||
use vars qw{%attr %defs};
|
||||
sub Log($$);
|
||||
|
||||
#-- globals
|
||||
my $freq ="db(A)"; # dB(A) or dB(C)
|
||||
my $speed="fast"; # response speed fast or slow
|
||||
my $mode ="normal"; # min/max/...
|
||||
my $range="50-100 dB"; # measurement range
|
||||
my $over =""; # over/underflow
|
||||
|
||||
#-- These we may get on request
|
||||
my %gets = (
|
||||
"present" => "",
|
||||
"reading" => "R",
|
||||
);
|
||||
|
||||
#-- These occur in a pulldown menu as settable values
|
||||
my %sets = (
|
||||
"Min/Max"=> "",
|
||||
"off" => "O",
|
||||
"rec" => "",
|
||||
"speed" => "",
|
||||
"range" => "", # toggle the measurement range
|
||||
"auto" => "", # set the measurement range to auto
|
||||
"dBA/C" => "", # toggle the frequency curve
|
||||
"freq" => "" # set the frequency curve to a value db(A) or db(C)
|
||||
);
|
||||
|
||||
#-- Single key commands to the PT8005
|
||||
my %SKC = ("Min/Max","\x11", "off","\x33", "rec","\x55", "speed","\x77", "range","\x88", "dBA/C","\x99");
|
||||
|
||||
|
||||
########################################################################################
|
||||
#
|
||||
# PT8005_Initialize
|
||||
#
|
||||
# Parameter hash
|
||||
#
|
||||
########################################################################################
|
||||
|
||||
sub PT8005_Initialize ($) {
|
||||
my ($hash) = @_;
|
||||
|
||||
$hash->{DefFn} = "PT8005_Define";
|
||||
$hash->{GetFn} = "PT8005_Get";
|
||||
$hash->{SetFn} = "PT8005_Set";
|
||||
# LogM, LogY = name of the monthly and yearly log file
|
||||
$hash->{AttrList}= "LogM LogY ".
|
||||
"loglevel ".
|
||||
$readingFnAttributes;
|
||||
}
|
||||
|
||||
########################################################################################
|
||||
#
|
||||
# PT8005_Define - Implements DefFn function
|
||||
#
|
||||
# Parameter hash, definition string
|
||||
#
|
||||
########################################################################################
|
||||
|
||||
sub PT8005_Define($$) {
|
||||
my ($hash, $def) = @_;
|
||||
my @a = split("[ \t][ \t]*", $def);
|
||||
|
||||
return "Define the serial device as a parameter"
|
||||
if(@a != 3);
|
||||
|
||||
my $dev = $a[2];
|
||||
|
||||
Log 1, "PT8005 opening device $dev";
|
||||
my $pt8005_serport = new Device::SerialPort ($dev);
|
||||
return "PT8005 Can't open $dev: $!" if(!$pt8005_serport);
|
||||
Log 1, "PT8005 opened device $dev";
|
||||
$hash->{USBDev} = $pt8005_serport;
|
||||
sleep(1);
|
||||
$pt8005_serport->close();
|
||||
|
||||
$hash->{DeviceName} = $dev;
|
||||
$hash->{INTERVAL} = 60; # call every 60 seconds
|
||||
|
||||
$modules{PT8005}{defptr}{$a[0]} = $hash;
|
||||
|
||||
#-- InternalTimer blocks if init_done is not true
|
||||
my $oid = $init_done;
|
||||
$init_done = 1;
|
||||
readingsSingleUpdate($hash,"state","initialized",1);
|
||||
|
||||
PT8005_GetStatus($hash);
|
||||
$init_done = $oid;
|
||||
return undef;
|
||||
}
|
||||
|
||||
########################################################################################
|
||||
#
|
||||
# PT8005_Cmd - Write command to meter
|
||||
#
|
||||
# Parameter hash, cmd = command
|
||||
#
|
||||
########################################################################################
|
||||
|
||||
sub PT8005_Cmd ($$) {
|
||||
my ($hash, $cmd) = @_;
|
||||
|
||||
my $res;
|
||||
my $dev= $hash->{DeviceName};
|
||||
my $name = $hash->{NAME};
|
||||
my $serport = new Device::SerialPort ($dev);
|
||||
|
||||
if(!$serport) {
|
||||
Log GetLogLevel($name,1), "PT8005: Can't open $dev: $!";
|
||||
return undef;
|
||||
}
|
||||
$serport->reset_error();
|
||||
$serport->baudrate(9600);
|
||||
$serport->databits(8);
|
||||
$serport->parity('none');
|
||||
$serport->stopbits(1);
|
||||
$serport->handshake('none');
|
||||
$serport->write_settings;
|
||||
|
||||
#-- calculate checksum and send
|
||||
#my $cmd="\x33";
|
||||
my $count_out = $serport->write($cmd);
|
||||
Log GetLogLevel($name,3), "PT8005 write failed\n" unless ($count_out);
|
||||
#-- sleeping 0.05 seconds
|
||||
select(undef,undef,undef,0.05);
|
||||
my ($count_in, $string_in) = $serport->read(4);
|
||||
#-- control
|
||||
#my ($i,$j,$k);
|
||||
#my $ans="receiving:";
|
||||
#for($i=0;$i<$count_in;$i++){
|
||||
# $j=int(ord(substr($string_in,$i,1))/16);
|
||||
# $k=ord(substr($string_in,$i,1))%16;
|
||||
# $ans.="byte $i = 0x$j$k\n";
|
||||
#}
|
||||
#Log 1, $ans;
|
||||
#-- sleeping 0.05 seconds
|
||||
select(undef,undef,undef,0.05);
|
||||
$serport->close();
|
||||
}
|
||||
|
||||
########################################################################################
|
||||
#
|
||||
# PT8005_Get - Implements GetFn function
|
||||
#
|
||||
# Parameter hash, argument array
|
||||
#
|
||||
########################################################################################
|
||||
|
||||
sub PT8005_Get ($@) {
|
||||
my ($hash, @a) = @_;
|
||||
|
||||
#-- check syntax
|
||||
return "PT8005_Get needs exactly one parameter" if(@a != 2);
|
||||
my $name = $hash->{NAME};
|
||||
my $v;
|
||||
|
||||
#-- get present
|
||||
if($a[1] eq "present") {
|
||||
$v = ($hash->{READINGS}{"state"}{VAL} =~ m/.*dB.*/) ? 1 : 0;
|
||||
return "$a[0] present => $v";
|
||||
}
|
||||
|
||||
#-- current reading
|
||||
if($a[1] eq "reading") {
|
||||
$v = PT8005_GetStatus($hash);
|
||||
if(!defined($v)) {
|
||||
Log GetLogLevel($name,2), "PT8005_Get $a[1] error";
|
||||
return "$a[0] $a[1] => Error";
|
||||
}
|
||||
$v =~ s/[\r\n]//g; # Delete the NewLine
|
||||
} else {
|
||||
return "PT8005_Get with unknown argument $a[1], choose one of " . join(",", sort keys %gets);
|
||||
}
|
||||
|
||||
Log GetLogLevel($name,3), "PT8005_Get $a[1] $v";
|
||||
return "$a[0] $a[1] => $v";
|
||||
}
|
||||
|
||||
#######################################################################################
|
||||
#
|
||||
# PT8005 - GetStatus - Called in regular intervals to obtain current reading
|
||||
#
|
||||
# Parameter hash
|
||||
#
|
||||
########################################################################################
|
||||
|
||||
sub PT8005_GetStatus ($) {
|
||||
my ($hash) = @_;
|
||||
my $name = $hash->{NAME};
|
||||
|
||||
my ($bcd,$i,$j,$k);
|
||||
my ($hour,$min,$sec,$time);
|
||||
my $data=0.0;
|
||||
my $nospeed=1;
|
||||
my $norange=1;
|
||||
my $nofreq=1;
|
||||
my $nodata=1;
|
||||
my $loop=0;
|
||||
|
||||
#-- restart timer for updates
|
||||
RemoveInternalTimer($hash);
|
||||
InternalTimer(gettimeofday()+ $hash->{INTERVAL}, "PT8005_GetStatus", $hash,1);
|
||||
#-- check if rec is really off
|
||||
PT8005_Unrec($hash);
|
||||
|
||||
#-- Obtain the current reading
|
||||
my $res;
|
||||
my $dev= $hash->{DeviceName};
|
||||
my $serport = new Device::SerialPort ($dev);
|
||||
|
||||
if(!$serport) {
|
||||
Log GetLogLevel($name,3), "PT8005_Read: Can't open $dev: $!";
|
||||
return undef;
|
||||
}
|
||||
$serport->reset_error();
|
||||
$serport->baudrate(9600);
|
||||
$serport->databits(8);
|
||||
$serport->parity('none');
|
||||
$serport->stopbits(1);
|
||||
$serport->handshake('none');
|
||||
$serport->write_settings;
|
||||
|
||||
#-- switch into recording mode
|
||||
my $count_out = $serport->write($SKC{"rec"});
|
||||
Log GetLogLevel($name,3), "PT8005_GetStatus: Switch to REC failed" unless ($count_out);
|
||||
#-- sleeping some time
|
||||
select(undef,undef,undef,0.15);
|
||||
|
||||
#-- loop for the data
|
||||
while ( ($nospeed+$norange+$nofreq+$nodata > 0) and ($loop <3) ){
|
||||
#my $string_in=PT8005_Read($hash);
|
||||
select(undef,undef,undef,0.02);
|
||||
my ($count_in, $string_in) = $serport->read(64);
|
||||
$loop++;
|
||||
|
||||
#--find data items
|
||||
if( index($string_in,"\xA5\x02") != -1){
|
||||
$nospeed=0;
|
||||
$speed="fast";
|
||||
} elsif( index($string_in,"\xA5\x03") != -1){
|
||||
$nospeed=0;
|
||||
$speed="slow";
|
||||
}
|
||||
|
||||
if( index($string_in,"\xA5\x04") != -1){
|
||||
$mode="max";
|
||||
}elsif( index($string_in,"\xA5\x05") != -1){
|
||||
$mode="min";
|
||||
}else{
|
||||
$mode="normal";
|
||||
}
|
||||
|
||||
if( index($string_in,"\xA5\x10") != -1){
|
||||
$norange=0;
|
||||
$range="30-80 dB";
|
||||
}elsif( index($string_in,"\xA5\x20") != -1){
|
||||
$norange=0;
|
||||
$range="50-100 dB";
|
||||
}elsif( index($string_in,"\xA5\x30") != -1){
|
||||
$norange=0;
|
||||
$range="80-130 dB";
|
||||
}elsif( index($string_in,"\xA5\x40") != -1){
|
||||
$norange=0;
|
||||
$range="30-130 dB";
|
||||
}
|
||||
|
||||
if( index($string_in,"\xA5\x07") != -1){
|
||||
$over="over";
|
||||
}elsif( index($string_in,"\xA5\x08") != -1){
|
||||
$over="under";
|
||||
}else{
|
||||
$over="";
|
||||
}
|
||||
|
||||
if( index($string_in,"\xA5\x1B") == -1){
|
||||
$nofreq=0;
|
||||
$freq="dB(A)";
|
||||
} elsif ( index($string_in,"\xA5\x1C") != -1){
|
||||
$nofreq=0;
|
||||
$freq="dB(C)";
|
||||
}
|
||||
|
||||
#-- time not needed
|
||||
#my $in_time = index($string_in,"\xA5\x06");
|
||||
#if( $in_time != -1 ){
|
||||
# $bcd=ord(substr($string_in,$in_time+2,1));
|
||||
# $hour=int($bcd/16)*10 + $bcd%16 - 20;
|
||||
# $bcd=ord(substr($string_in,$in_time+3,1));
|
||||
# $min = int($bcd/16)*10 + $bcd%16;
|
||||
# $bcd=ord(substr($string_in,$in_time+4,1));
|
||||
# $sec = int($bcd/16)*10 + $bcd%16;
|
||||
# $time=sprintf("%02d:%02d:%02d",$hour,$min,$sec);
|
||||
#} else {
|
||||
# $time="undef";
|
||||
# Log GetLogLevel($name,3),"PT8005_GetStatus: no time value obtained"
|
||||
#}
|
||||
|
||||
#-- data value
|
||||
my $in_data = index($string_in,"\xA5\x0D");
|
||||
if( $in_data != -1){
|
||||
$nodata=0;
|
||||
$bcd=ord(substr($string_in,$in_data+2,1));
|
||||
$data=(int($bcd/16)*10 + $bcd%16)*10;
|
||||
$bcd=ord(substr($string_in,$in_data+3,1));
|
||||
$data+=(int($bcd/16)*10 + $bcd%16)*0.1;
|
||||
}
|
||||
}
|
||||
|
||||
#-- sleeping some time
|
||||
select(undef,undef,undef,0.02);
|
||||
#-- leave recording mode
|
||||
$count_out = $serport->write($SKC{"rec"});
|
||||
#-- sleeping some time
|
||||
select(undef,undef,undef,0.02);
|
||||
#--
|
||||
$serport->close();
|
||||
|
||||
#-- could not find a value
|
||||
if( $nofreq==1 ){
|
||||
Log GetLogLevel($name,4), "PT8005_GetStatus: no dBA/C frequency curve value obtained";
|
||||
};
|
||||
if( $norange==1 ){
|
||||
Log GetLogLevel($name,4), "PT8005_GetStatus: no range value obtained";
|
||||
};
|
||||
if( $nospeed==1 ){
|
||||
Log GetLogLevel($name,4), "PT8005_GetStatus: no speed value obtained";
|
||||
};
|
||||
if( $nodata==1 ){
|
||||
Log GetLogLevel($name,4), "PT8005_GetStatus: no data value obtained";
|
||||
};
|
||||
|
||||
#-- addnl. messages
|
||||
if( $over eq "over"){
|
||||
Log GetLogLevel($name,4), "PT8005_GetStatus: Range overflow";
|
||||
}elsif( $over eq "under" ){
|
||||
Log GetLogLevel($name,4), "PT8005_GetStatus: Range underflow";
|
||||
}
|
||||
|
||||
#-- put into readings
|
||||
|
||||
$hash->{READINGS}{"soundlevel"}{UNIT} = $freq;
|
||||
$hash->{READINGS}{"soundlevel"}{UNITABBR} = $freq;
|
||||
|
||||
my $svalue = sprintf("%3.1f %s",$data,$freq);
|
||||
|
||||
#-- put into READINGS
|
||||
readingsBeginUpdate($hash);
|
||||
readingsBulkUpdate($hash,"speed",$speed)
|
||||
if( $nospeed ==0 );
|
||||
readingsBulkUpdate($hash,"mode",$mode);
|
||||
readingsBulkUpdate($hash,"range",$range)
|
||||
if( $norange ==0 );
|
||||
readingsBulkUpdate($hash,"overflow",$over);
|
||||
readingsBulkUpdate($hash,"soundlevel",$data)
|
||||
if( $nodata ==0 );
|
||||
#-- STATE
|
||||
readingsBulkUpdate($hash,"state",$svalue)
|
||||
if( $nodata ==0 );
|
||||
readingsEndUpdate($hash,1);
|
||||
}
|
||||
|
||||
########################################################################################
|
||||
#
|
||||
# PT8005_Set - Implements SetFn function
|
||||
#
|
||||
# Parameter hash, a = argument array
|
||||
#
|
||||
########################################################################################
|
||||
|
||||
sub PT8005_Set ($@) {
|
||||
my ($hash, @a) = @_;
|
||||
my $name = shift @a;
|
||||
my $res;
|
||||
|
||||
#-- for the selector: which values are possible
|
||||
#return join(" ", sort keys %sets) if(@a != 2);
|
||||
return "PT8005_Set: With unknown argument $a[0], choose one of " . join(" ", sort keys %sets)
|
||||
if(!defined($sets{$a[0]}));
|
||||
|
||||
my $dev= $hash->{DeviceName};
|
||||
|
||||
#-- Set single key value
|
||||
for (keys %SKC){
|
||||
if( $a[0] eq "$_" ){
|
||||
Log GetLogLevel($name,1),"PT8005_Set called with arg $_";
|
||||
PT8005_Cmd($hash,$SKC{$_});
|
||||
}
|
||||
}
|
||||
|
||||
#-- Set frequency curve to db(A) or db(C)
|
||||
if( $a[0] eq "freq" ){
|
||||
my $freqn = $a[1];
|
||||
if ( (!defined($freqn)) || (($freqn ne "dB(A)") && ($freqn ne "dB(C)")) ){
|
||||
return "PT8005_Set $name ".join(" ",@a)." with missing parameter, must be dB(A) or dB(C) ";
|
||||
}
|
||||
if ( (($freq eq "dB(A)") && ($freqn eq "dB(C)")) ||
|
||||
(($freq eq "dB(C)") && ($freqn eq "dB(A)")) ){
|
||||
Log GetLogLevel($name,1),"PT8005_Set freq $freqn";
|
||||
$res=PT8005_Cmd($hash,$SKC{"dBA/C"});
|
||||
}
|
||||
}
|
||||
|
||||
#-- Set measurement range to auto
|
||||
if( $a[0] eq "auto" ){
|
||||
if ($range eq "30-80 dB"){
|
||||
$res =PT8005_Cmd($hash,$SKC{"range"});
|
||||
select(undef,undef,undef,0.05);
|
||||
$res.=PT8005_Cmd($hash,$SKC{"range"});
|
||||
select(undef,undef,undef,0.05);
|
||||
$res.=PT8005_Cmd($hash,$SKC{"range"});
|
||||
}elsif ($range eq "50-100 dB"){
|
||||
$res =PT8005_Cmd($hash,$SKC{"range"});
|
||||
select(undef,undef,undef,0.05);
|
||||
$res.=PT8005_Cmd($hash,$SKC{"range"});
|
||||
}elsif ($range eq "80-130 dB"){
|
||||
$res=PT8005_Cmd($hash,$SKC{"range"});
|
||||
}
|
||||
|
||||
Log GetLogLevel($name,1),"PT8005_Set auto";
|
||||
}
|
||||
|
||||
Log GetLogLevel($name,3), "PT8005_Set $name ".join(" ",@a)." => $res";
|
||||
return "PT8005_Set $name ".join(" ",@a)." => $res";
|
||||
}
|
||||
|
||||
########################################################################################
|
||||
#
|
||||
# PT8005_Unrec - switch recording mode off
|
||||
#
|
||||
# Parameter hash
|
||||
#
|
||||
########################################################################################
|
||||
|
||||
sub PT8005_Unrec ($) {
|
||||
my ($hash) = @_;
|
||||
|
||||
my $res;
|
||||
my $dev= $hash->{DeviceName};
|
||||
my $name = $hash->{NAME};
|
||||
my $serport = new Device::SerialPort ($dev);
|
||||
|
||||
if(!$serport) {
|
||||
Log GetLogLevel($name,3), "PT8005_UnRec: Can't open $dev: $!";
|
||||
return undef;
|
||||
}
|
||||
$serport->reset_error();
|
||||
$serport->baudrate(9600);
|
||||
$serport->databits(8);
|
||||
$serport->parity('none');
|
||||
$serport->stopbits(1);
|
||||
$serport->handshake('none');
|
||||
$serport->write_settings;
|
||||
|
||||
for(my $i = 0; $i < 4; $i++) {
|
||||
#-- read data and look if it is nonzero
|
||||
my ($count_in, $string_in) = $serport->read(1);
|
||||
if( $string_in eq "" ){
|
||||
$serport->close();
|
||||
Log GetLogLevel($name,4),"PT8005_UnRec: REC is off ";
|
||||
return 1;
|
||||
} else {
|
||||
#-- leave recording mode
|
||||
select(undef,undef,undef,0.01);
|
||||
my $count_out = $serport->write($SKC{"rec"});
|
||||
#-- sleeping some time
|
||||
select(undef,undef,undef,0.01);
|
||||
}
|
||||
}
|
||||
$serport->close();
|
||||
Log GetLogLevel($name,4),"PT8005_UnRec: REC cannot be turned off ";
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
|
||||
=pod
|
||||
=begin html
|
||||
|
||||
<a name="PT8005"></a>
|
||||
<h3>PT8005</h3>
|
||||
<p>FHEM module to commmunicate with a PeakTech PT8005 soundlevel meter<br />
|
||||
</p>
|
||||
<h4>Example</h4>
|
||||
<p>
|
||||
<code>define pt8005 PT8005 /dev/ttyUSB0 </code>
|
||||
</p><br />
|
||||
<a name="PT8005define"></a>
|
||||
<h4>Define</h4>
|
||||
<p>
|
||||
<code>define <name> PT8005 <device> </code>
|
||||
<br /><br /> Define a PT8005 soundlevel meter</p>
|
||||
<ul>
|
||||
<li>
|
||||
<code><name></code>
|
||||
Serial device port
|
||||
</li>
|
||||
</ul>
|
||||
<a name="PT8005set"></a>
|
||||
<h4>Set</h4>
|
||||
<ul>
|
||||
<li><a name="pt8005_time">
|
||||
Not yet implemented</a></li>
|
||||
</ul>
|
||||
<br />
|
||||
<a name="PT8005get"></a>
|
||||
<h4>Get</h4>
|
||||
<ul>
|
||||
<li><a name="pt8005_reading">
|
||||
<code>get <name> reading</code></a>
|
||||
<br /> read all current data </li>
|
||||
<li><a name="pt8005_present">
|
||||
<code>get <name> present</code></a>
|
||||
<br /> 1 if device present, 0 if not </li>
|
||||
</ul>
|
||||
<br />
|
||||
<a name="PT8005attr"></a>
|
||||
<h4>Attributes</h4>
|
||||
<ul>
|
||||
<li>Standard attributes <a href="#alias">alias</a>, <a href="#comment">comment</a>, <a
|
||||
href="#event-on-update-reading">event-on-update-reading</a>, <a
|
||||
href="#event-on-change-reading">event-on-change-reading</a>, <a
|
||||
href="#stateFormat">stateFormat</a>, <a href="#room"
|
||||
>room</a>, <a href="#eventMap">eventMap</a>, <a href="#loglevel">loglevel</a>,
|
||||
<a href="#webCmd">webCmd</a></li>
|
||||
</ul>
|
||||
|
||||
=end html
|
||||
=cut
|
||||
|
||||
Loading…
Reference in New Issue
Block a user