--- lib/PXElator/upstream.pm	2009/08/20 17:35:44	275
+++ lib/PXElator/upstream.pm	2009/08/20 17:36:17	276
@@ -6,8 +6,8 @@
 
 use Data::Dump qw/dump/;
 use LWP::Simple qw/mirror RC_NOT_MODIFIED/;
-use Storable;
 use server;
+use once;
 
 sub mirror_file {
 	my ( $url, $file ) = @_;
@@ -19,15 +19,6 @@
 		;
 }
 
-my $once_path = '/tmp/pxelator.once';
-our $just_once = retrieve $once_path if -e $once_path;
-sub first_time {
-	my $what = shift;
-	return if $just_once->{$what}++;
-	store $just_once, $once_path;
-	return 1;
-}
-
 sub iso {
 	my $url = shift;
 
@@ -44,7 +35,7 @@
 
 	my $iso = "$dir/$file";
 
-	mirror_file( $url, $iso ) if first_time $url;
+	mirror_file( $url, $iso ) if once::first_time $url;
 
 	$file =~ s{\.iso$}{}i;
 	my $mnt = "$server::base_dir/tftp/$name";
@@ -73,7 +64,7 @@
 
 	foreach my $file ( @files ) {
 		mirror_file( "$url/$file", "$path/$file" )
-			if ! -e "$path/$file" || first_time( "$url/$file" );
+			if ! -e "$path/$file" || once::first_time( "$url/$file" );
 	}
 }