rename "/tmp/.phone-status.new", "/tmp/.phone-status" || die $!;
}
+sub daemonize {
+ chdir "/";
+ my $pid=fork();
+ if($pid) {
+ exit(0)
+ }
+ elsif(defined($pid))
+ {
+ close STDIN;
+ close STDOUT;
+ close STDERR;
+ }
+ else { exit(1); }
+}
+
sub death {
$gsm->disconnect() if($gsm);
unlink "/tmp/.phone-status.new", "/tmp/.phone-status";