--- lib/PXElator/client.pm	2009/08/28 19:36:36	325
+++ lib/PXElator/client.pm	2009/08/28 21:55:41	329
@@ -6,6 +6,7 @@
 
 use File::Slurp;
 use Net::Ping;
+use Data::Dump qw/dump/;
 
 use server;
 use format;
@@ -171,4 +172,20 @@
 	rmdir "$server::conf/ip/$ip";
 }
 
+sub arp_mac_dev {
+	my $arp = {
+		map {
+			my @c = split(/\s+/,$_);
+			if ( $#c == 5 ) {
+				client::save_ip_mac( $c[0], $c[3] );
+				( uc $c[3] => $c[5] )
+			} else {
+			}
+		} read_file('/proc/net/arp')
+	};
+
+	warn "# arp ",dump( $arp );
+	return $arp;
+}
+
 1;