/[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 498 by dpavlin, Mon Feb 1 14:40:18 2010 UTC revision 503 by dpavlin, Sat Jul 10 12:57:38 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/ };  sub available { qw/katalog debian_live webconverger debirf tinycore nfsroot openvz printer wrt clonezilla ubuntu/ };
21    
22  sub debian_live {  sub debian_live {
23          my ($ip) = @_;          my ($ip) = @_;
# Line 127  label linux Line 127  label linux
127          });          });
128  }  }
129    
130    sub clonezilla {
131            my $ip = shift;
132            upstream::iso( 'http://sourceforge.net/projects/clonezilla/files/clonezilla_live_alternative_testing/clonezilla-live-20100503-lucid.iso/download' );
133            pxelinux::config_for_ip( $ip, qq{
134    
135    default linux
136    label linux
137            kernel iso/live/vmlinuz
138            append initrd=iso/live/initrd.img boot=live union=aufs noswap noprompt vga=788 fetch=http://$server_ip:7777/clonezilla/iso/live/filesystem.squashfs
139    
140            });
141    }
142    
143    sub ubuntu {
144            my $ip = shift;
145            upstream::iso( 'http://mirrors.us.kernel.org/ubuntu-releases/lucid/ubuntu-10.04-desktop-i386.iso' );
146    
147            my $export = "$server::base_dir/tftp/ubuntu/iso";
148            my $exported = `exportfs | grep $export`;
149            if ( $exported ne $export ) {
150                    warn "exportfs $exported\n";
151                    system "sudo exportfs -i -o rw,async,no_root_squash,no_subtree_check,fsid=999 $ip:$export";
152            }
153            pxelinux::config_for_ip( $ip, qq{
154    
155    default linux
156    label linux
157            kernel iso/casper/vmlinuz
158            append initrd=iso/casper/initrd.lz boot=casper netboot=nfs nfsroot=$server_ip:$export --
159    
160            });
161    }
162    
163  sub in_chroot {  sub in_chroot {
164          my ( $dir, $command ) = @_;          my ( $dir, $command ) = @_;
165          write_file "$dir/tmp/inside.sh", $command;          write_file "$dir/tmp/inside.sh", $command;
# Line 185  sub nfsroot { Line 218  sub nfsroot {
218                    
219          }          }
220    
221            my $exported = `exportfs | grep $export`;
222            if ( $exported ne $export ) {
223                    warn "exportfs $exported\n";
224                    system "sudo exportfs -i -o rw,async,no_root_squash,no_subtree_check,fsid=999 $ip:$export";
225            }
226    
227          my $hostname = client::conf( $ip => 'hostname' ) || 'nfsroot';          my $hostname = client::conf( $ip => 'hostname' ) || 'nfsroot';
228          file::replace "$export/etc/hostname", $hostname;          file::replace "$export/etc/hostname", $hostname;
Legend:
Removed from v.498  
changed lines
  Added in v.503
  ViewVC Help
Powered by ViewVC 1.1.26