added usage for banner2csv.pl

1 files changed, 14 insertions, 1 deletions

diff --git a/banner2csv.pl b/banner2csv.pl
index b1943ff..3a9d7e9 100755
--- a/banner2csv.pl
+++ b/banner2csv.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # FILE: "/home/evmik/src/my_src/GradeBook/banner2csv.pl"
-# LAST MODIFICATION: "Mon, 03 Sep 2012 21:05:25 -0400 (evmik)"
+# LAST MODIFICATION: "Fri, 17 Jan 2014 11:12:43 -0500 (evmik)"
 # (C) 2012 by Eugeniy Mikhailov, <evgmik@gmail.com>
 
 #use HTML::Entities;
@@ -10,6 +10,19 @@ use Encode;
 #use HTML::TableExtract qw(tree);
 use Data::Dumper;
 #use strict;
+
+if ( @ARGV < 1 )
+{
+	print "Converts a WM banner summary list to csv file with students info\n";
+	print "\n";
+	print "Usage:\n";
+	print "  " . $0 . "banner_html_file_to_parse\n";
+	print "\n";
+	print "Example:\n";
+	print "  " . $0 . "banner_class_summary_list.html\n";
+	die;
+}
+
 my $html_file = shift;
 open (F_HTML, "<", $html_file)  or  die "Failed to read file $html_file : $!";