Machine Shop RFID:rfid edituser.pl

#!/usr/bin/perl
#
# RFID access control database editor v1.0
#
# Copyright (c) 2016, Zach Metzinger
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without 
# modification, are permitted provided that the following conditions 
# are met:
#
# 1. Redistributions of source code must retain the above copyright 
#    notice, this list of conditions and the following disclaimer.
#
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in 
#    the documentation and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 
# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 
# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR 
# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, 
# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, 
# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 
# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY 
# OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 
# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
# EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 
#
# $Id: rfid_edituser.pl,v 1.1 2016/01/02 23:15:39 zmetzing Exp $

use warnings;
use strict;
use DB_File;

# Local variables
my (%auth_tags, $k, $v);

# Name of database file
my $db_fn = "nfc_auth_tags.db";

# Command line arguments
my ($cmd, $tag_id, $username) = @ARGV;

if (!defined($cmd)) {
    die "usage: $0 (add/del/list) [hex tag ID] [username first_last]\n";
}

# Attempt to open database
if (-e $db_fn) {
    tie %auth_tags, "DB_File", $db_fn, O_RDWR | O_EXCL, 0600, $DB_HASH 
	or die "Cannot open file $db_fn: $!\n";
} else {
    print "Creating new database $db_fn\n";
    tie %auth_tags, "DB_File", $db_fn, O_RDWR | O_CREAT | O_EXCL, 0600, $DB_HASH 
	or die "Cannot create file $db_fn: $!\n";
}

# Parse commands. Could be done more intelligently, but this works for now
if ($cmd =~ /list/) {
    print "Access list\n";
    print "-----------\n";
    # This bit lifted from the DB_File perldoc
    while (($k, $v) = each %auth_tags) {
	print "$k -> $v\n";
    }
} else {
    if ($cmd =~ /add/) {
	if (!defined($tag_id) || !defined($username)) {
	    untie %auth_tags;
	    die "Please specify tag id and username (eg. \"$0 add 10008751C204 zach_metzinger\")\n";
	}
	if ($auth_tags{$tag_id}) {
	    warn "Tag $tag_id already exists in database. Overwriting value with new username $username\n";
	}
	print "Adding tag id $tag_id for user $username\n";
	$auth_tags{$tag_id} = $username;
    } else {
	if ($cmd =~ /del/) {
	    if (!defined($tag_id)) {
		untie %auth_tags;
		die "Please specify tag id to delete (eg. \"$0 del 10008751C204\")\n";
	    }
	    if ($auth_tags{$tag_id}) {
		print "Deleting tag id $tag_id\n";
		delete $auth_tags{$tag_id};
	    } else {
		print "Tag id $tag_id was not fond in database\n";
	    }
	} else {
	    warn "Unknown command $1\n";
	}
    }
}

# Close the database
untie %auth_tags;