Advertisement
Guest User

Untitled

a guest
Dec 9th, 2019
207
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.47 KB | None | 0 0
  1. #!/usr/bin/perl
  2.  
  3. package GardenSystem;
  4.  
  5. use strict;
  6. use warnings;
  7.  
  8. out %config = (
  9.     'sqlite_file' => '/blah/sql.db',
  10.     'sqlite_user' => 'garden',
  11.     'sqlite_pass' => 'password123',
  12.     'sensors' => {
  13.         'temphum' => {
  14.             'type' => 'DHT11',
  15.             'gpio' => '11'
  16.         },
  17.         'rain' => {
  18.             'type' => '',
  19.             'gpio' => '15'
  20.         }
  21.     },
  22.     'relays' => {
  23.         '1' => '29',
  24.         '2' => '31',
  25.         '3' => '33',
  26.         '4' => '35'
  27.     }
  28. );
  29.  
  30. 1;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement