Return to hash.pm CVS log

Up to [local] / wpscripts / ztransfer

Annotation of wpscripts/ztransfer/hash.pm, Revision 1.2

1.1       yason       1: #!/usr/bin/perl
1.2     ! yason       2: # $Id: hash.pm,v 1.1.1.1 2011/06/03 09:28:47 yason Exp $
1.1       yason       3: package hash;
                      4: use log;
                      5: use warnings;
                      6: use strict;
                      7:
1.2     ! yason       8: our $HASHFILE = "/var/run/ztransfer.hash";
1.1       yason       9: our %directoryhash = ();
                     10:
                     11: sub loadtable()
                     12: {
                     13:     # read table from $HASHFILE (if any) into %directoryhash
                     14:     # return number of records or return -1 on error
                     15:     my @lines;
                     16:     my @keys; #XXX
                     17:     my $line;
                     18:     my $lineno;        # for debug
                     19:     my $key;
                     20:     my $value;
                     21:     my $records = 0;
                     22:
                     23:     open(FILE, "<$HASHFILE") or return (-1);
                     24:
                     25:     @lines = <FILE>;
                     26:     foreach $line (@lines)
                     27:     {
                     28:        $lineno++;
                     29:
                     30:         # treat '#' ANYWHERE as invalid character leading to ignore whole line
                     31:        # so it may be used as a comment
                     32:        if ( ((index($line, '#', 0)) == -1) and $line ne "\n")
                     33:        {
                     34:            ($key, $value) = split(/\t+|\s+/, $line);
                     35:            # avoid null elements
                     36:            if ($value eq '')
                     37:            {
                     38:                return(0);
                     39:            }
                     40:
                     41:            # don't count "\n"s
                     42:            $records++;
                     43:            $directoryhash{$key} = $value;
                     44:        }
                     45:     }
                     46:     close(FILE);
                     47:
                     48:     return ($records);
                     49: }
                     50:
                     51:
                     52: sub lookup($)
                     53: {
                     54:     my $what = shift;
                     55:
                     56:     if ( defined($directoryhash{$what}) )
                     57:     {
                     58:        # return value for further substitution
                     59:        return( $directoryhash{$what} );
                     60:        # NOTREACHED
                     61:     }
                     62:     # else
                     63:     return "";
                     64: }
                     65:
                     66: return(1);