1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
#########################################################################################
# Package HiPi::Device::OneWire
# Description : 1-Wire Device
# Copyright : Copyright (c) 2013-2023 Mark Dootson
# License : This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#########################################################################################
package HiPi::Device::OneWire;
#########################################################################################
use strict;
use warnings;
use Carp;
use HiPi;
use parent qw( HiPi::Device );
our $VERSION ='0.91';
our %idmap = (
'01' => [ '2401/11', 'silicon serial number'],
'02' => [ '1425', 'multikey 1153bit secure'],
'04' => [ '2404', 'econoram time chip'],
'05' => [ '2405', 'Addressable Switch'],
'06' => [ '', '4k memory ibutton'],
'08' => [ '', '1k memory ibutton'],
'09' => [ '2502', '1k add-only memory'],
'0A' => [ '', '16k memory ibutton'],
'0B' => [ '2505', '16k add-only memory'],
'0C' => [ '', '64k memory ibutton'],
'0F' => [ '2506', '64k add-only memory'],
'10' => [ '18S20', 'high precision digital thermometer'],
'12' => [ '2406/2407', 'dual addressable switch plus 1k memory'],
'14' => [ '2430A', '256 eeprom'],
'1A' => [ '', '4k Monetary'],
'1B' => [ '2436', 'battery id/monitor chip'],
'1C' => [ '28E04-100', '4k EEPROM with PIO'],
'1D' => [ '2423', '4k ram with counter'],
'1F' => [ '2409', 'microlan coupler'],
'20' => [ '2450', 'quad a/d converter'],
'21' => [ '', 'Thermachron'],
'22' => [ '1822', 'Econo Digital Thermometer'],
'23' => [ '2433', '4k eeprom'],
'24' => [ '2415', 'time chip'],
'26' => [ '2438', 'smart battery monitor'],
'27' => [ '2417', 'time chip with interrupt'],
'28' => [ '18B20', 'programmable resolution digital thermometer'],
'29' => [ '2408', '8-channel addressable switch'],
'2C' => [ '2890', 'digital potentiometer'],
'2D' => [ '2431', '1k eeprom'],
'2E' => [ '2770', 'battery monitor and charge controller'],
'30' => [ '2760/61/62', 'high-precision li+ battery monitor'],
'31' => [ '2720', 'efficient addressable single-cell rechargable lithium protection ic'],
'33' => [ '2432', '1k protected eeprom with SHA-1'],
'36' => [ '2740', 'high precision coulomb counter'],
'37' => [ '', 'Password protected 32k eeprom'],
'3A' => [ '2413', 'dual channel addressable switch'],
'41' => [ '2422', 'Temperature Logger 8k mem'],
'51' => [ '2751', 'multichemistry battery fuel gauge'],
'81' => [ '', 'Serial ID Button'],
'84' => [ '2404S', 'dual port plus time'],
'89' => [ '2502-E48/UNW', '48 bit node address chip'],
'8B' => [ '2505-UNW', '16k add-only'],
'8F' => [ '2506-UNW', '64k add-only uniqueware'],
'FF' => [ 'LCD', 'LCD (Swart)'],
);
sub get_required_module_options {
my $moduleoptions = [
[ qw( w1_gpio wire ) ], # w1_therm is loaded on demand
];
return $moduleoptions;
}
sub list_devices {
my( $class ) = @_;
my @rlist = ();
my $slist = qx(/bin/cat /sys/bus/w1/devices/w1_bus_master1/w1_master_slaves);
if( $? ) {
return @rlist;
}
my @devices = split(/\n/, $slist);
for my $id ( @devices ) {
my ( $family, $discard ) = split(/-/, $id);
$family = '0' . $family if length($family) == 1;
my ($name, $desc) = ('','');
if(exists($idmap{$family})) {
$name = $idmap{$family}->[0];
$desc = $idmap{$family}->[1];
}
push(@rlist, { id => $id, family => $family, name => $name, description => $desc} );
}
return @rlist;
}
sub read_data {
my( $class, $id ) = @_;
# return data & or errors
my $data = qx(/bin/cat /sys/bus/w1/devices/$id/w1_slave);
chomp($data);
return $data;
}
sub id_exists {
my( $class, $id) = @_;
my $slist = qx(/bin/cat /sys/bus/w1/devices/w1_bus_master1/w1_master_slaves);
return ( $slist =~ /\Q$id\E/ && -e qq(/sys/bus/w1/devices/$id/w1_slave) ) ? 1 : 0;
}
## legacy calls
*HiPi::Device::OneWire::list_slaves = \&list_devices;
1;
|
