/[pxelator]/lib/PXElator/pxe.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/pxe.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 45 by dpavlin, Wed Jul 29 22:04:58 2009 UTC revision 63 by dpavlin, Thu Jul 30 16:16:18 2009 UTC
# Line 2  package pxe; Line 2  package pxe;
2    
3  use warnings;  use warnings;
4  use strict;  use strict;
5    use autodie;
6    
7  use File::Slurp;  use File::Slurp;
8    
9  use server;  use httpd;
10  use tftpd;  use tftpd;
11    
12  our $file = 'gpxelinux.0';  our $file = 'gpxelinux.0';
# Line 13  my $path = "$tftpd::dir/$file"; Line 14  my $path = "$tftpd::dir/$file";
14  symlink '/usr/lib/syslinux/gpxelinux.0', $path unless -l $path;  symlink '/usr/lib/syslinux/gpxelinux.0', $path unless -l $path;
15  warn "file $path ", -s $path;  warn "file $path ", -s $path;
16    
17  my $url = "http://$server::ip/pxelator/debian-live/";  my $url = $httpd::url;
18    $url = "tftp://$server::ip/"; # fallback to tftp
19    $url = "http://$server::ip/pxelator/";
20    
21  my $squash = tftpd::path('debian-live/*squashfs');  my $squash = tftpd::path('debian-live/*squashfs');
22    
23    sub config_for_ip {
24    
25            my $ip = shift;
26            $ip = uc sprintf "%02x%02x%02x%02x", split /\./,$ip;
27    
28            my $config = "$tftpd::dir/pxelinux.cfg";
29            mkdir $config unless -d $config;
30            $config .= '/' . $ip;
31    
32  my $config = "$ftpd::dir/pxelinux.cfg/default";          write_file $config, qq{
33    
34  write_file $config, qq{          default linux
35            label linux
36                    kernel $url/debian-live/vmlinuz1
37                    append initrd=$url/debian-live/initrd1.img boot=live union=aufs noswap noprompt vga=normal fetch=$url/$squash
38    
39  default linux          };
 label linux  
         kernel $url/vmlinuz1  
         append initrd=$url/initrd1.img boot=live union=aufs noswap noprompt vga=normal fetch=$url/$squash  
40    
41  };          warn "config $config ", -s $config;
42    
43  warn "config $config ", -s $config;  }
44    
45  warn "loaded";  warn "loaded";
46    
Legend:
Removed from v.45  
changed lines
  Added in v.63
  ViewVC Help
Powered by ViewVC 1.1.26