lib/PXElator/upstream.pm

package upstream;

use warnings;
use strict;
use autodie;

use LWP::Simple qw/mirror RC_NOT_MODIFIED/;
use server;

our $just_once;

sub iso {
        my $url = shift;

        return if $just_once->{$url}++;

        my $name = (caller(1))[3];
        $name =~ s{config::}{} || die "caller isn't package config !";

        warn "$name $url";

        my $dir = "$server::base_dir/iso";
        mkdir $dir unless -e $dir;

        my $file = $1 if $url =~ m{/([^/]+\.iso$)}i;
        die "can't find iso file in $url" unless $file;

        my $iso = "$dir/$file";

        print STDERR "$name mirror $url";
        mirror( $url, $iso )
                == RC_NOT_MODIFIED
                && warn(" not modified\n")
                || warn(" done ", -s $iso, " bytes\n")
                ;

        $file =~ s{\.iso$}{}i;
        my $mnt = "$server::base_dir/tftp/$name";
        mkdir $mnt unless -d $mnt;
        $mnt .= '/iso';
        mkdir $mnt unless -d $mnt;

        system("mount -t iso9660 | grep $mnt || sudo mount $iso $mnt -o loop -t iso9660 -v") == 0;
}

1;
1	dpavlin	138	package upstream;
2
3			use warnings;
4			use strict;
5			use autodie;
6
7			use LWP::Simple qw/mirror RC_NOT_MODIFIED/;
8			use server;
9
10			our $just_once;
11
12			sub iso {
13			my $url = shift;
14
15			return if $just_once->{$url}++;
16
17			my $name = (caller(1))[3];
18			$name =~ s{config::}{} \|\| die "caller isn't package config !";
19
20			warn "$name $url";
21
22			my $dir = "$server::base_dir/iso";
23			mkdir $dir unless -e $dir;
24
25			my $file = $1 if $url =~ m{/([^/]+\.iso$)}i;
26			die "can't find iso file in $url" unless $file;
27
28			my $iso = "$dir/$file";
29
30			print STDERR "$name mirror $url";
31			mirror( $url, $iso )
32			== RC_NOT_MODIFIED
33			&& warn(" not modified\n")
34			\|\| warn(" done ", -s $iso, " bytes\n")
35			;
36
37			$file =~ s{\.iso$}{}i;
38			my $mnt = "$server::base_dir/tftp/$name";
39			mkdir $mnt unless -d $mnt;
40			$mnt .= '/iso';
41			mkdir $mnt unless -d $mnt;
42
43			system("mount -t iso9660 \| grep $mnt \|\| sudo mount $iso $mnt -o loop -t iso9660 -v") == 0;
44			}
45
46			1;