summaryrefslogtreecommitdiffstats
path: root/perl-install/loopback.pm
blob: 45505bda4e10c9c6dc777981156fd00631410e1c (plain) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
-rw-r--r--perl-install/ChangeLog37
1 files changed, 37 insertions, 0 deletions
diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index 1719ee5a6..e1116e73c 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,3 +1,40 @@
+2001/08/02 Guillaume Cottenceau <gc@mandrakesoft.com>
+
+ * mdk-stage1/adsl.c:
+ - fix problem of clashing user/pass between adsl and ftp/http in case
+ of automatic installs
+ - update doc on automatic install parameters (doc/TECH-INFOS)
+
+ * mdk-stage1/doc/TECH-INFOS:
+ - small update
+ - fix problem of clashing user/pass between adsl and ftp/http in case
+ of automatic installs
+ - update doc on automatic install parameters (doc/TECH-INFOS)
+
+2001/08/02 Pablo Saratxaga <pablo@mandrakesoft.com>
+
+ * share/po/no.po: updated Norwegian file
+
+2001/08/02 Pixel <pixel@mandrakesoft.com>
+
+ * install_any.pm: instead of testing if ref($in) or ref($o) contains
+ /gtk/, test if interactive_gtk is in ISA of the object
+ add jfs support
+
+ * install_steps_interactive.pm, services.pm, install_interactive.pm,
+ network/netconnect.pm, Xconfigurator.pm: instead of testing if ref($in)
+ or ref($o) contains /gtk/, test if interactive_gtk is in ISA of the
+ object
+
+ * partition_table.pm: JFS support
+ add jfs support
+
+ * fsedit.pm, diskdrake.pm: JFS support
+
+ * tools/ntp_servers.pl, timezone.pm: update ntp servers list
+
+ * fs.pm, share/list: add jfs support
+
2001/08/02 Pixel <pixel@mandrakesoft.com>
* tools/ntp_servers.pl, timezone.pm: update ntp servers list
generated by cgit v1.2.1 (git 2.21.0) at 2024-12-22 22:33:09 +0000
ready in $all_hds my $base_mntpoint = $part->{mntpoint}; my $check; $check = sub { my ($part, @seen) = @_; push @seen, $part->{mntpoint} || return; @seen > 1 && $part->{mntpoint} eq $base_mntpoint and die \N("Circular mounts %s\n", join(", ", @seen)); if (my $part = fs::up_mount_point($part->{mntpoint}, $fstab)) { #- '/' carrier is a special case, it will be mounted first $check->($part, @seen) if !carryRootLoopback($part); } if (isLoopback($part)) { $check->($part->{loopback_device}, @seen); } }; $check->($part) if !($base_mntpoint eq '/' && isLoopback($part)); #- '/' is a special case, no loop check } sub carryRootCreateSymlink { my ($part, $prefix) = @_; carryRootLoopback($part) or return; my $mntpoint = "$prefix$part->{mntpoint}"; unless (-e $mntpoint) { eval { mkdir_p(dirname($mntpoint)) }; #- do non-relative link for install, should be changed to relative link before rebooting symlink "/initrd/loopfs", $mntpoint; mkdir_p("/initrd/loopfs/lnx4win/boot"); symlink "/initrd/loopfs/lnx4win/boot", "$prefix/boot"; } #- indicate kernel to keep initrd mkdir_p("$prefix/initrd"); } sub format_part { my ($part, $prefix) = @_; fs::mount_part($part->{loopback_device}, $prefix); create($part, $prefix); fs::real_format_part($part); } sub create { my ($part, $prefix) = @_; my $f = $part->{device} = "$prefix$part->{loopback_device}{mntpoint}$part->{loopback_file}"; return if -e $f; eval { mkdir_p(dirname($f)) }; log::l("creating loopback file $f ($part->{size} sectors)"); my $block_size = 128; my $s = "\0" x (512 * $block_size); sysopen(my $F, $f, 2 | c::O_CREAT()) or die "failed to create loopback file"; for (my $i = 0; $i < $part->{size}; $i += $block_size) { syswrite $F, $s or die "failed to create loopback file"; } } sub getFree { my ($dir, $part) = @_; my $freespace = $dir ? 2 * (MDK::Common::System::df($dir))[1] : #- df in KiB $part->{size}; $freespace - sum map { $_->{size} } @{$part->{loopback} || []}; } #- returns the size of the loopback file if it already exists #- returns -1 is the loopback file can't be used sub verifFile { my ($dir, $file, $part) = @_; -e "$dir$file" and return -s "$dir$file"; $_->{loopback_file} eq $file and return -1 foreach @{$part->{loopback} || []}; undef; } sub prepare_boot() { my $r = readlink "$::prefix/boot"; unlink "$::prefix/boot"; mkdir_p("$::prefix/boot"); [$r, $::prefix]; } sub save_boot { my ($loop_boot, $prefix) = @{$_[0]}; $loop_boot or return; my @files = glob_("$prefix/boot/*"); cp_af(@files, $loop_boot) if @files; rm_rf("$prefix/boot"); symlink $loop_boot, "$prefix/boot"; } 1;
generated by cgit v1.2.1 (git 2.21.0) at 2024-12-22 22:33:09 +0000