/[pxelator]/lib/PXElator/config.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/config.pm

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

revision 506 by dpavlin, Wed Jul 21 15:35:09 2010 UTC revision 517 by dpavlin, Wed Jul 21 18:52:54 2010 UTC
# Line 17  our $mounted; Line 17  our $mounted;
17  our $server;  our $server;
18  our $server_ip;  our $server_ip;
19    
20  sub available { qw/katalog debian_live webconverger debirf tinycore nfsroot openvz printer wrt clonezilla ubuntu freedos/ };  sub available { qw/katalog debian_live webconverger debirf tinycore nfsroot openvz printer wrt clonezilla ubuntu memdisk/ };
21    
22  sub debian_live {  sub debian_live {
23          my ($ip) = @_;          my ($ip) = @_;
# Line 160  label linux Line 160  label linux
160          });          });
161  }  }
162    
163  sub freedos {  sub memdisk {
164          my $ip = shift;          my $ip = shift;
165    
166          my $dir = "$server::base_dir/tftp/freedos";          my $dir = "$server::base_dir/tftp/memdisk";
167          mkdir $dir unless -e $dir;          mkdir $dir unless -e $dir;
168    
169          symlink '/usr/lib/syslinux/memdisk', "$dir/memdisk" unless -e "$dir/memdisk";          symlink '/usr/lib/syslinux/memdisk', "$dir/memdisk" unless -e "$dir/memdisk";
170    
171          my $floppy = 'freedos.img';          my $image = client::conf( $ip => 'memdisk.image' );
172    
173          upstream::mirror_file 'http://www.ibiblio.org/pub/micro/pc-stuff/freedos/files/distributions/unofficial/balder/balder10.img' => "$dir/$floppy";          if ( ! $image ) {
174                    $image = 'freedos.gz';
175                    upstream::mirror_file 'http://www.ibiblio.org/pub/micro/pc-stuff/freedos/files/distributions/unofficial/balder/balder10.imz' => "$dir/$image";
176                    warn "using $image [default FreeDOS]\n";
177                    symlink "$dir/$image", client::ip_path $ip . '/memdisk.image';
178            } else {
179                    $image =~ s{^.+/tftp/memdisk/}{} && warn "using $image\n";
180            }
181    
182            if ( my $kvm = client::conf $ip => 'kvm' ) {
183                    client::conf $ip => 'kvm.bin', 'qemu-system-i386'; # FIXME kvm doesn't seem to work
184            }
185    
186          pxelinux::config_for_ip( $ip, qq{          pxelinux::config_for_ip( $ip, qq{
187    
188  default freedos  default $image
189  label freedos  label $image
190          kernel memdisk          kernel memdisk
191          append initrd=freedos.imz          append initrd=$image
192    
193          });          });
194  }  }
Legend:
Removed from v.506  
changed lines
  Added in v.517
  ViewVC Help
Powered by ViewVC 1.1.26