-rw-r--r-- | core/opiealarm/opiealarm.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/core/opiealarm/opiealarm.c b/core/opiealarm/opiealarm.c index 70e5415..bb2e684 100644 --- a/core/opiealarm/opiealarm.c +++ b/core/opiealarm/opiealarm.c | |||
@@ -115,254 +115,255 @@ int fork_with_pidfile ( void ) | |||
115 | else { | 115 | else { |
116 | perror ( PIDFILE ); | 116 | perror ( PIDFILE ); |
117 | return 0; | 117 | return 0; |
118 | } | 118 | } |
119 | } | 119 | } |
120 | 120 | ||
121 | int kill_with_pidfile ( void ) | 121 | int kill_with_pidfile ( void ) |
122 | { | 122 | { |
123 | FILE *fp; | 123 | FILE *fp; |
124 | pid_t pid; | 124 | pid_t pid; |
125 | int res = 0; | 125 | int res = 0; |
126 | 126 | ||
127 | // terminate a running opiealarm child process | 127 | // terminate a running opiealarm child process |
128 | // return 1 if we really killed one | 128 | // return 1 if we really killed one |
129 | 129 | ||
130 | if (( fp = fopen ( PIDFILE, "r" ))) { | 130 | if (( fp = fopen ( PIDFILE, "r" ))) { |
131 | if ( fscanf ( fp, "%d", &pid ) == 1 ) | 131 | if ( fscanf ( fp, "%d", &pid ) == 1 ) |
132 | res = ( kill ( pid, SIGUSR2 ) == 0 ) ? 1 : 0; | 132 | res = ( kill ( pid, SIGUSR2 ) == 0 ) ? 1 : 0; |
133 | fclose ( fp ); | 133 | fclose ( fp ); |
134 | } | 134 | } |
135 | return res; | 135 | return res; |
136 | } | 136 | } |
137 | 137 | ||
138 | void remove_pidfile ( void ) | 138 | void remove_pidfile ( void ) |
139 | { | 139 | { |
140 | // child is about to exit - cleanup | 140 | // child is about to exit - cleanup |
141 | 141 | ||
142 | unlink ( PIDFILE ); | 142 | unlink ( PIDFILE ); |
143 | signal ( SIGUSR2, SIG_DFL ); | 143 | signal ( SIGUSR2, SIG_DFL ); |
144 | } | 144 | } |
145 | 145 | ||
146 | 146 | ||
147 | int main ( int argc, char **argv ) | 147 | int main ( int argc, char **argv ) |
148 | { | 148 | { |
149 | int mode = 0; | 149 | int mode = 0; |
150 | int ac_resusp = 0; | 150 | int ac_resusp = 0; |
151 | int fix_rtc = 0; | 151 | int fix_rtc = 0; |
152 | int opt; | 152 | int opt; |
153 | 153 | ||
154 | while (( opt = getopt ( argc, argv, "a:frs" )) != EOF ) { | 154 | while (( opt = getopt ( argc, argv, "a:frs" )) != EOF ) { |
155 | switch ( opt ) { | 155 | switch ( opt ) { |
156 | case 's': | 156 | case 's': |
157 | mode = 's'; | 157 | mode = 's'; |
158 | break; | 158 | break; |
159 | case 'r': | 159 | case 'r': |
160 | mode = 'r'; | 160 | mode = 'r'; |
161 | break; | 161 | break; |
162 | case 'a': | 162 | case 'a': |
163 | ac_resusp = atoi ( optarg ); | 163 | ac_resusp = atoi ( optarg ); |
164 | if ( ac_resusp < 30 ) { | 164 | if ( ac_resusp < 30 ) { |
165 | ac_resusp = 120; | 165 | ac_resusp = 120; |
166 | 166 | ||
167 | fprintf ( stderr, "Warning: resuspend timeout must be >= 30 sec. -- now set to 120 sec\n" ); | 167 | fprintf ( stderr, "Warning: resuspend timeout must be >= 30 sec. -- now set to 120 sec\n" ); |
168 | } | 168 | } |
169 | break; | 169 | break; |
170 | case 'f': | 170 | case 'f': |
171 | fix_rtc = 1; | 171 | fix_rtc = 1; |
172 | break; | 172 | break; |
173 | default: | 173 | default: |
174 | usage ( ); | 174 | usage ( ); |
175 | } | 175 | } |
176 | } | 176 | } |
177 | 177 | ||
178 | if ( geteuid ( ) != 0 ) { | 178 | if ( geteuid ( ) != 0 ) { |
179 | fprintf ( stderr, "You need root priviledges to run opiealarm." ); | 179 | fprintf ( stderr, "You need root priviledges to run opiealarm." ); |
180 | return 2; | 180 | return 2; |
181 | } | 181 | } |
182 | 182 | ||
183 | if ( !mode ) | 183 | if ( !mode ) |
184 | usage ( ); | 184 | usage ( ); |
185 | 185 | ||
186 | 186 | ||
187 | parent_pid = getpid ( ); | 187 | parent_pid = getpid ( ); |
188 | 188 | ||
189 | // kill running opiealarm | 189 | // kill running opiealarm |
190 | opiealarm_was_running = kill_with_pidfile ( ); | 190 | opiealarm_was_running = kill_with_pidfile ( ); |
191 | remove_pidfile ( ); | 191 | remove_pidfile ( ); |
192 | 192 | ||
193 | switch ( mode ) { | 193 | switch ( mode ) { |
194 | case 'r': opt = resume ( ac_resusp ); | 194 | case 'r': opt = resume ( ac_resusp ); |
195 | break; | 195 | break; |
196 | case 's': | 196 | case 's': |
197 | default : opt = suspend ( fix_rtc ); | 197 | default : opt = suspend ( fix_rtc ); |
198 | break; | 198 | break; |
199 | } | 199 | } |
200 | 200 | ||
201 | parent_pid = 0; | 201 | parent_pid = 0; |
202 | return opt; | 202 | return opt; |
203 | } | 203 | } |
204 | 204 | ||
205 | 205 | ||
206 | int suspend ( int fix_rtc ) | 206 | int suspend ( int fix_rtc ) |
207 | { | 207 | { |
208 | FILE *fp; | 208 | FILE *fp; |
209 | char buf [64]; | 209 | char buf [64]; |
210 | time_t alrt, syst, rtct; | 210 | time_t alrt, syst, rtct; |
211 | struct tm alr, sys, rtc; | 211 | struct tm alr, sys, rtc; |
212 | int fd; | 212 | int fd; |
213 | int rtc_sys_diff; | 213 | int rtc_sys_diff; |
214 | 214 | ||
215 | 215 | ||
216 | if ( !fork_with_pidfile ( )) | 216 | if ( !fork_with_pidfile ( )) |
217 | return 3; | 217 | return 3; |
218 | 218 | ||
219 | // we are the child process from here on ... | 219 | // we are the child process from here on ... |
220 | 220 | ||
221 | tzset ( ); // not sure if it is really needed -- it probably doesn't hurt ... | 221 | tzset ( ); // not sure if it is really needed -- it probably doesn't hurt ... |
222 | 222 | ||
223 | do { // try/catch simulation | 223 | do { // try/catch simulation |
224 | 224 | ||
225 | // read the wakeup time from /etc/resumeat | 225 | // read the wakeup time from /etc/resumeat |
226 | if (!( fp = fopen ( "/etc/resumeat", "r" ))) | 226 | if (!( fp = fopen ( "/etc/resumeat", "r" ))) |
227 | break; // ( 1, "/etc/resumeat" ); | 227 | break; // ( 1, "/etc/resumeat" ); |
228 | 228 | ||
229 | if ( !fgets ( buf, sizeof( buf ) - 1, fp )) | 229 | if ( !fgets ( buf, sizeof( buf ) - 1, fp )) |
230 | break; // ( 1, "/etc/resumeat" ); | 230 | break; // ( 1, "/etc/resumeat" ); |
231 | 231 | ||
232 | fclose ( fp ); | 232 | fclose ( fp ); |
233 | 233 | ||
234 | alrt = atoi ( buf ); // get the alarm time | 234 | alrt = atoi ( buf ); // get the alarm time |
235 | if ( alrt == 0 ) | 235 | if ( alrt == 0 ) |
236 | break; // ( 0, "/etc/resumeat contains an invalid time description" ); | 236 | break; // ( 0, "/etc/resumeat contains an invalid time description" ); |
237 | alrt -= 5; // wake up 5 sec before the specified time | 237 | alrt -= 5; // wake up 5 sec before the specified time |
238 | alr = *gmtime ( &alrt ); | 238 | alr = *gmtime ( &alrt ); |
239 | 239 | ||
240 | time ( &syst );// get the UNIX system time | 240 | time ( &syst );// get the UNIX system time |
241 | sys = *localtime ( &syst ); | 241 | sys = *localtime ( &syst ); |
242 | 242 | ||
243 | if (( fd = open ( "/dev/misc/rtc", O_RDWR )) < 0 ) // open the RTC device | 243 | if (( fd = open ( "/dev/misc/rtc", O_RDWR )) < 0 ) |
244 | break; // ( 1, "/dev/misc/rtc" ); | 244 | if (( fd = open ( "/dev/rtc", O_RDWR )) < 0 ) |
245 | break; // ( 1, "rtc" ); | ||
245 | 246 | ||
246 | memset ( &rtc, 0, sizeof ( struct tm )); // get the RTC time | 247 | memset ( &rtc, 0, sizeof ( struct tm )); // get the RTC time |
247 | if ( ioctl ( fd, RTC_RD_TIME, &rtc ) < 0 ) | 248 | if ( ioctl ( fd, RTC_RD_TIME, &rtc ) < 0 ) |
248 | break; // ( 1, "ioctl RTC_RD_TIME" ); | 249 | break; // ( 1, "ioctl RTC_RD_TIME" ); |
249 | rtct = mktime ( &rtc ); | 250 | rtct = mktime ( &rtc ); |
250 | 251 | ||
251 | rtc_sys_diff = ( syst - rtct ) - sys. tm_gmtoff; // calculate the difference between system and hardware time | 252 | rtc_sys_diff = ( syst - rtct ) - sys. tm_gmtoff; // calculate the difference between system and hardware time |
252 | 253 | ||
253 | if ( fix_rtc && (( rtc_sys_diff < -3 ) || ( rtc_sys_diff > 3 ))) { | 254 | if ( fix_rtc && (( rtc_sys_diff < -3 ) || ( rtc_sys_diff > 3 ))) { |
254 | struct tm set; | 255 | struct tm set; |
255 | set = *gmtime ( &syst ); | 256 | set = *gmtime ( &syst ); |
256 | 257 | ||
257 | // if the difference between system and hardware time is more than 3 seconds, | 258 | // if the difference between system and hardware time is more than 3 seconds, |
258 | // we have to set the RTC (hwclock --systohc), or alarms won't work reliably. | 259 | // we have to set the RTC (hwclock --systohc), or alarms won't work reliably. |
259 | 260 | ||
260 | if ( ioctl ( fd, RTC_SET_TIME, &set ) < 0 ) | 261 | if ( ioctl ( fd, RTC_SET_TIME, &set ) < 0 ) |
261 | break; // ( 1, "ioctl RTC_SET_TIME" ); | 262 | break; // ( 1, "ioctl RTC_SET_TIME" ); |
262 | } | 263 | } |
263 | 264 | ||
264 | if ( ioctl ( fd, RTC_ALM_SET, &alr ) < 0 ) // set RTC alarm time | 265 | if ( ioctl ( fd, RTC_ALM_SET, &alr ) < 0 ) // set RTC alarm time |
265 | break; // ( 1, "ioctl RTC_ALM_SET" ); | 266 | break; // ( 1, "ioctl RTC_ALM_SET" ); |
266 | if ( ioctl ( fd, RTC_AIE_ON, 0 ) < 0 ) | 267 | if ( ioctl ( fd, RTC_AIE_ON, 0 ) < 0 ) |
267 | break; // ( 1, "ioctl RTC_AIE_ON" ); // enable RTC alarm irq | 268 | break; // ( 1, "ioctl RTC_AIE_ON" ); // enable RTC alarm irq |
268 | 269 | ||
269 | // tell the parent it is safe to exit now .. we have set the RTC alarm | 270 | // tell the parent it is safe to exit now .. we have set the RTC alarm |
270 | kill ( parent_pid, SIGUSR1 ); | 271 | kill ( parent_pid, SIGUSR1 ); |
271 | 272 | ||
272 | if ( read ( fd, buf, sizeof( unsigned long )) < 0 ) // wait for the RTC alarm irq | 273 | if ( read ( fd, buf, sizeof( unsigned long )) < 0 ) // wait for the RTC alarm irq |
273 | break; // ( 1, "read rtc alarm" ); | 274 | break; // ( 1, "read rtc alarm" ); |
274 | 275 | ||
275 | // iPAQ woke up via RTC irq -- otherwise we would have received a SIGUSR2 | 276 | // iPAQ woke up via RTC irq -- otherwise we would have received a SIGUSR2 |
276 | // from the "resume instance" of opiealarm. | 277 | // from the "resume instance" of opiealarm. |
277 | 278 | ||
278 | if ( ioctl ( fd, RTC_AIE_OFF, 0 ) < 0 ) // disable RTC alarm irq | 279 | if ( ioctl ( fd, RTC_AIE_OFF, 0 ) < 0 ) // disable RTC alarm irq |
279 | break; // ( 1, "ioctl RTC_AIE_OFF" ); | 280 | break; // ( 1, "ioctl RTC_AIE_OFF" ); |
280 | 281 | ||
281 | close ( fd ); | 282 | close ( fd ); |
282 | 283 | ||
283 | remove_pidfile ( ); // normal exit | 284 | remove_pidfile ( ); // normal exit |
284 | return 0; | 285 | return 0; |
285 | 286 | ||
286 | } while ( 0 ); | 287 | } while ( 0 ); |
287 | 288 | ||
288 | kill ( parent_pid, SIGUSR1 ); // parent is still running - it can exit now | 289 | kill ( parent_pid, SIGUSR1 ); // parent is still running - it can exit now |
289 | 290 | ||
290 | while ( 1 ) // pretend that we are waiting on RTC, so opiealarm -r can kill us | 291 | while ( 1 ) // pretend that we are waiting on RTC, so opiealarm -r can kill us |
291 | sleep ( 1000 ); // if we don't do this, the "resuspend on AC" would be triggerd | 292 | sleep ( 1000 ); // if we don't do this, the "resuspend on AC" would be triggerd |
292 | return 0; | 293 | return 0; |
293 | } | 294 | } |
294 | 295 | ||
295 | 296 | ||
296 | int onac ( void ) | 297 | int onac ( void ) |
297 | { | 298 | { |
298 | FILE *fp; | 299 | FILE *fp; |
299 | int on = 0; | 300 | int on = 0; |
300 | 301 | ||
301 | // check the apm proc interface for AC status | 302 | // check the apm proc interface for AC status |
302 | 303 | ||
303 | if (( fp = fopen ( APMFILE, "r" ))) { | 304 | if (( fp = fopen ( APMFILE, "r" ))) { |
304 | int ac = 0; | 305 | int ac = 0; |
305 | 306 | ||
306 | if ( fscanf ( fp, "%*[^ ] %*d.%*d 0x%*x 0x%x 0x%*x 0x%*x %*d%% %*i %*c", &ac ) == 1 ) | 307 | if ( fscanf ( fp, "%*[^ ] %*d.%*d 0x%*x 0x%x 0x%*x 0x%*x %*d%% %*i %*c", &ac ) == 1 ) |
307 | on = ( ac == 0x01 ) ? 1 : 0; | 308 | on = ( ac == 0x01 ) ? 1 : 0; |
308 | 309 | ||
309 | fclose ( fp ); | 310 | fclose ( fp ); |
310 | } | 311 | } |
311 | return on; | 312 | return on; |
312 | } | 313 | } |
313 | 314 | ||
314 | int resume ( int resuspend ) | 315 | int resume ( int resuspend ) |
315 | { | 316 | { |
316 | FILE *fp; | 317 | FILE *fp; |
317 | 318 | ||
318 | // re-suspend when on AC (optional) when woken up via RTC | 319 | // re-suspend when on AC (optional) when woken up via RTC |
319 | 320 | ||
320 | if ( !opiealarm_was_running ) { | 321 | if ( !opiealarm_was_running ) { |
321 | // if opiealarm -s didn't wake up via RTC, the old process gets killed | 322 | // if opiealarm -s didn't wake up via RTC, the old process gets killed |
322 | // by kill_by_pidfile(), which is recorded in opiealarm_was_running | 323 | // by kill_by_pidfile(), which is recorded in opiealarm_was_running |
323 | 324 | ||
324 | if ( resuspend && onac ( )) { | 325 | if ( resuspend && onac ( )) { |
325 | time_t start, now; | 326 | time_t start, now; |
326 | char *argv [4]; | 327 | char *argv [4]; |
327 | 328 | ||
328 | if ( !fork_with_pidfile ( )) | 329 | if ( !fork_with_pidfile ( )) |
329 | return 4; | 330 | return 4; |
330 | 331 | ||
331 | // we can't wait for the resuspend timeout in the parent process. | 332 | // we can't wait for the resuspend timeout in the parent process. |
332 | // so we fork and tell the parent it can exit immediatly | 333 | // so we fork and tell the parent it can exit immediatly |
333 | 334 | ||
334 | kill ( parent_pid, SIGUSR1 ); | 335 | kill ( parent_pid, SIGUSR1 ); |
335 | 336 | ||
336 | // sleep <resuspend> seconds - this method is much more precise than sleep() ! | 337 | // sleep <resuspend> seconds - this method is much more precise than sleep() ! |
337 | time ( &start ); | 338 | time ( &start ); |
338 | do { | 339 | do { |
339 | sleep ( 1 ); | 340 | sleep ( 1 ); |
340 | time ( &now ); | 341 | time ( &now ); |
341 | } while (( now - start ) < resuspend ); | 342 | } while (( now - start ) < resuspend ); |
342 | 343 | ||
343 | if ( onac ( )) { // still on ac ? | 344 | if ( onac ( )) { // still on ac ? |
344 | argv[0] = "qcop"; | 345 | argv[0] = "qcop"; |
345 | argv[1] = "QPE/Desktop"; | 346 | argv[1] = "QPE/Desktop"; |
346 | argv[2] = "suspend()"; | 347 | argv[2] = "suspend()"; |
347 | argv[3] = 0; | 348 | argv[3] = 0; |
348 | 349 | ||
349 | // hard coded for now ...but needed | 350 | // hard coded for now ...but needed |
350 | // another way would be to simulate a power-button press | 351 | // another way would be to simulate a power-button press |
351 | 352 | ||
352 | setenv ( "LOGNAME", "root", 1 ); | 353 | setenv ( "LOGNAME", "root", 1 ); |
353 | setenv ( "HOME", "/root", 1 ); | 354 | setenv ( "HOME", "/root", 1 ); |
354 | setenv ( "LD_LIBRARY_PATH", "/opt/QtPalmtop/lib", 1 ); | 355 | setenv ( "LD_LIBRARY_PATH", "/opt/QtPalmtop/lib", 1 ); |
355 | setenv ( "QTDIR", "/opt/QtPalmtop", 1 ); | 356 | setenv ( "QTDIR", "/opt/QtPalmtop", 1 ); |
356 | 357 | ||
357 | remove_pidfile ( ); | 358 | remove_pidfile ( ); |
358 | 359 | ||
359 | // no need for system() since this process is no longer usefull anyway | 360 | // no need for system() since this process is no longer usefull anyway |
360 | execv ( "/opt/QtPalmtop/bin/qcop", argv ); | 361 | execv ( "/opt/QtPalmtop/bin/qcop", argv ); |
361 | 362 | ||
362 | perror ( "exec for qcop failed" ); | 363 | perror ( "exec for qcop failed" ); |
363 | return 5; | 364 | return 5; |
364 | } | 365 | } |
365 | } | 366 | } |
366 | } | 367 | } |
367 | return 0; | 368 | return 0; |
368 | } | 369 | } |