svn commit: r1667267 - /steve/trunk/www/cgi-bin/cast-vote.pl

[ji...@apache.org]

Author: jim
Date: Tue Mar 17 11:16:58 2015
New Revision: 1667267

URL: http://svn.apache.org/r1667267
Log:
not needed . In steve.pm

Modified:
    steve/trunk/www/cgi-bin/cast-vote.pl

Modified: steve/trunk/www/cgi-bin/cast-vote.pl
URL: http://svn.apache.org/viewvc/steve/trunk/www/cgi-bin/cast-vote.pl?rev=1667267&r1=1667266&r2=1667267&view=diff
==============================================================================
--- steve/trunk/www/cgi-bin/cast-vote.pl (original)
+++ steve/trunk/www/cgi-bin/cast-vote.pl Tue Mar 17 11:16:58 2015
@@ -237,43 +237,6 @@ sub fetch_voter {
     return;
 }
 
-sub get_hash_of {
-    my ($item) = @_;
-    my $md5 = Digest::MD5->new;
-    $md5->add($item);
-    return $md5->hexdigest;
-}
-
-sub get_group {
-    my ($groupfile) = @_;
-    local $_;
-    my @rv;
-
-    open(my $INFILE, $groupfile) || die "cannot open $groupfile: $!\n";
-    while (<$INFILE>) {
-        chomp;
-        s/#.*$//;
-        s/\s+$//;
-        s/^\s+//;
-        next if (/^$/);
-        push(@rv, $_);
-    }
-    close($INFILE);
-    return @rv;
-}
-
-sub filestuff {
-    my ($filename) = @_;
-    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
-        $atime,$mtime,$ctime,$blksize,$blocks);
-
-    ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
-     $atime,$mtime,$ctime,$blksize,$blocks) = stat($filename)
-         or die "Can't stat $filename: $!\n";
-
-    return "$ino:$mtime";
-}
-
 sub yna_form {
     my ($voter, $issue_name, $issue_content, $trailer) = @_;
     my $other_issues = other_issues($issue_name, $voter);