--- sms.alert	2003/01/13 16:04:11	1.1
+++ sms.alert	2003/02/04 15:39:44	1.3
@@ -1,11 +1,12 @@
 #!/usr/bin/perl -w
 #
-# sms.alert - send an alert via smstools
+# sms.alert - send an alert via smstools available at
+#             http://www.isis.de/~s.frings/smstools/
 #
 # based on qpage.alert by Jim Trocki, trockij@transmeta.com
 #
 # usage:
-# 	sms.alter [-f][-l][-u] 385abxxxxxx
+# 	sms.alter [-f][-l][-u] 385abxxxxxx|name[ 12345|name...]
 #
 # flags:
 # 	-u	this is upalert
@@ -54,7 +55,7 @@
 $sms .= "\n$ALERT $opt{g}/$opt{s} $summary ($wday $mon $day $tm)\n";
 $sms .= join("\n",@MSG) if $opt{'l'};
 
-foreach my $to (@ARGV) {
+foreach my $to (shift @ARGV) {
 	if (open(SMS, "> $sms_outgoing/mon$$")) {
 		my $phone = $to;
 		$phone = $name2phone{lc($to)} if ($name2phone{lc($to)});