Initial check in of opiealarm/opieatd

This is a (tiny) replacement for ipaqalarm/qpe2uschedule/uscheduled
Made w2k-ppp only claim the needed files (not the whole etc dir)

1 files changed, 91 insertions, 0 deletions

diff --git a/core/opiealarm/opiealarm.c b/core/opiealarm/opiealarm.c
new file mode 100644
index 0000000..071cb24
--- a/dev/null
+++ b/core/opiealarm/opiealarm.c
@@ -0,0 +1,91 @@
+/* opiealarm.c
+*  This program is for extracting the event time/date out
+*  of /etc/resumeat and setting the RTC alarm to that time/date.
+*  It is designed to run via a script just before the iPaq
+*  is suspended.
+* 
+*  Roughly based on ipaqalarm from Benjamin Long
+*
+*  written by Robert Griebl <sandman@handhelds.org>
+*/
+
+#include <stdio.h>
+#include <linux/rtc.h>
+#include <sys/ioctl.h>
+#include <sys/time.h>
+#include <sys/types.h>
+#include <fcntl.h>
+#include <unistd.h>
+#include <errno.h>
+#include <time.h>
+#include <stdlib.h>
+
+
+void error_msg_and_die ( int perr, const char *msg )
+{
+	if ( perr )
+		perror ( msg );
+	else
+		fprintf ( stderr, "%s\n", msg );
+	exit ( 1 );
+}
+
+
+void extractevent ( ) 
+{
+	FILE *fp;
+	char buf [64];
+	time_t t;
+	struct tm *tm;
+	int fd;
+	
+	if (!( fp = fopen ( "/etc/resumeat", "r" ))) 
+		error_msg_and_die ( 1, "/etc/resumeat" );
+	
+	if ( !fgets ( buf, sizeof( buf ) - 1, fp ))
+		error_msg_and_die ( 1, "/etc/resumeat" );
+
+	fclose ( fp );
+	
+	t = atoi ( buf );
+	
+	if ( t == 0 )
+		error_msg_and_die ( 0, "/etc/resumeat contains an invalid time description" );
+	
+	/* subtract 5 sec from event time... */
+	t -= 5;
+	tm = gmtime ( &t );
+
+	/* Write alarm time to RTC */
+	fd = open ( "/dev/misc/rtc", O_RDWR );
+	if ( fd < 0 ) 
+		error_msg_and_die ( 1, "/dev/misc/rtc" );
+	
+	// set alarm time
+	if ( ioctl ( fd, RTC_ALM_SET, tm ) < 0 )
+		error_msg_and_die ( 1, "ioctl RTC_ALM_SET" );
+		
+	// enable alarm irq	
+	if ( ioctl ( fd, RTC_AIE_ON, 0 ) < 0 )
+		error_msg_and_die ( 1, "ioctl RTC_AIE_ON" );
+			
+	// wait for alarm irq
+	if ( read ( fd, buf, sizeof( unsigned long )) < 0 )
+		error_msg_and_die ( 1, "read rtc alarm" );
+	
+	// disable alarm irq
+	if ( ioctl ( fd, RTC_AIE_OFF, 0 ) < 0 ) 
+		error_msg_and_die ( 1, "ioctl RTC_AIE_OFF" );
+		
+	close ( fd );
+}
+
+
+int main ( ) 
+{
+	if ( geteuid ( ) != 0 )
+		error_msg_and_die ( 0, "You need root priviledges to run opiealarm." );
+
+	extractevent ( );
+	return 0;
+}