X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fmobile-phone-monitor;h=249f5a56087527d963c3d2e97eb557bd50746e72;hp=246cad502b0ed1c5a32c3b7fec8e1f021377b13d;hb=3473cb486d27fdfab3e9494d3e17bc70d8677e3f;hpb=22f39e42a78966d9c3827a79a1c64c54a0c44e97

diff --git a/perl/mobile-phone-monitor b/perl/mobile-phone-monitor
index 246cad5..249f5a5 100755
--- a/perl/mobile-phone-monitor
+++ b/perl/mobile-phone-monitor
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
-# Author: Tim Pope
+# $Id$
+# -*- perl -*- vim: ft=perl sw=4 sts=4
 
 # Monitors a bluetooth mobile phome for calls.  You'll need to bind rfcomm1 to
 # your mobile phone's SP service.  You'll also need my Device::Nokia module