CUxD-AddOn
14 |
15 | \n"; 41 | print INCFILE "
\n";
43 |
44 | # Run tail -2 /var/log/temperature and parse the output
45 | # The -2 depends on the number of sensors that you have.
46 | open( TEMPLOG, "tail -2 /var/log/temperature |") || die "Can't fork: $!";
47 |
48 | while(
\n";
59 | }
60 |
61 | if( $sensor eq '1' )
62 | {
63 | print INCFILE "The room is a ";
64 |
65 | if( $fahrenheight < 40.0 )
66 | {
67 | print INCFILE "Freezing";
68 | }
69 |
70 | if( $fahrenheight >= 40.0 and $fahrenheight < 70.0 )
71 | {
72 | print INCFILE "Chilly";
73 | }
74 |
75 | if( $fahrenheight >= 70.0 and $fahrenheight < 80.0 )
76 | {
77 | print INCFILE "Comfortable";
78 | }
79 |
80 | if( $fahrenheight >= 80.0 and $fahrenheight < 100.0 )
81 | {
82 | print INCFILE "Balmy";
83 | }
84 |
85 | if( $fahrenheight >= 100.0 )
86 | {
87 | print INCFILE "Blistering";
88 | }
89 |
90 |
91 | print INCFILE " $fahrenheight\xB0 F ($centigrade\xB0 C)
\n";
92 | }
93 | }
94 |
95 | print INCFILE "Last updated: $month $day $time
\n";
96 |
97 | print INCFILE "
\n"; 69 | print INCFILE "
\n";
73 |
74 | # Run tail -2 /var/log/temperature and parse the output
75 | # The -2 is the number of sensors you have (last 2 lines from logfile)
76 | open( TEMPLOG, "tail -2 $log_file |") || die "Can't fork: $!";
77 |
78 | # Parse the output of the tail program
79 | while(
\n";
90 | }
91 |
92 | if( $sensor eq '1' )
93 | {
94 | print INCFILE "The room is a ";
95 |
96 | if( $fahrenheight < 40.0 )
97 | {
98 | print INCFILE "freezing";
99 | }
100 |
101 | if( $fahrenheight >= 40.0 and $fahrenheight < 70.0 )
102 | {
103 | print INCFILE "chilly";
104 | }
105 |
106 | if( $fahrenheight >= 70.0 and $fahrenheight < 80.0 )
107 | {
108 | print INCFILE "comfortable";
109 | }
110 |
111 | if( $fahrenheight >= 80.0 and $fahrenheight < 100.0 )
112 | {
113 | print INCFILE "balmy";
114 | }
115 |
116 | if( $fahrenheight >= 100.0 )
117 | {
118 | print INCFILE "blistering";
119 | }
120 |
121 | print INCFILE " $fahrenheight\xB0 F ($centigrade\xB0 C)
\n";
122 | }
123 | }
124 |
125 | print INCFILE "Last updated: $month $day $time
\n";
126 |
127 | # Blantant advertisement These temperatures generated with ";
129 | print INCFILE "";
130 | print INCFILE "DigiTemp
\n";
131 | print INCFILE "