--- lib/PXElator/ip.pm	2009/08/19 12:46:07	265
+++ lib/PXElator/ip.pm	2009/08/20 19:44:19	278
@@ -100,5 +100,22 @@
 	return @devs;
 }
 
+sub default_route_dev {
+	my @routes = ip::lines 'route';
+
+	return
+		map { $_->{dev} }
+		grep { $_->{route} eq 'default' }
+		splice @routes, 1 # FIXME ship header
+	;
+}
+
+sub to_int {
+	pack( 'C*', split(/\./, shift) )
+}
+
+sub from_int {
+	join( '.', unpack('C4', shift) )
+}
 
 1;