summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ChangeLog8
-rw-r--r--perl-install/detect_devices.pm6
-rw-r--r--perl-install/fs.pm12
-rw-r--r--perl-install/install_any.pm8
-rw-r--r--perl-install/printer.pm7
-rw-r--r--perl-install/printerdrake.pm2
6 files changed, 35 insertions, 8 deletions
diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index 3ea557f88..87d13abd0 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,3 +1,11 @@
+2000-03-20 Fran�ois Pons <fpons@mandrakesoft.com>
+
+ * detect_devices.pm, fs.pm, install_any.pm: added supports for
+ LS-120 floppy drive and icons on desktop of KDE (untested).
+ * printer.pm, printerdrake.pm: added supports for PPA interface in
+ new rhs-printfilters, always enable "Print text as postscript"
+ option for such printers.
+
2000-03-20 Pablo Saratxaga <pablo@mandrakesoft.com>
* keyboard.pm: changed XKB name for Swedish keyboard
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 2be192599..8207dadfa 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -36,6 +36,7 @@ sub get {
sub hds() { grep { $_->{type} eq 'hd' && ($::isStandalone || !isRemovableDrive($_)) } get(); }
sub zips() { grep { $_->{type} eq 'hd' && isZipDrive($_) } get(); }
#-sub jazzs() { grep { $_->{type} eq 'hd' && isJazDrive($_) } get(); }
+sub ls120s() { grep { $_->{type} =~ /.d/ && isLS120Drive($_) } get(); }
sub cdroms() {
my @l = grep { $_->{type} eq 'cdrom' } get();
if (my @l2 = getIDEBurners()) {
@@ -57,7 +58,8 @@ sub floppies() {
sub isZipDrive() { $_[0]->{info} =~ /ZIP\s+\d+/ } #- accept ZIP 100, untested for bigger ZIP drive.
#-sub isJazzDrive() { $_[0]->{info} =~ /JAZZ?\s+/ } #- untested.
-sub isRemovableDrive() { &isZipDrive } #-or &isJazzDrive }
+sub isLS120Drive() { $_[0]->{info} =~ /LS-?120/ } #- accept ZIP 100, untested for bigger ZIP drive.
+sub isRemovableDrive() { &isZipDrive || &isLS120Drive } #-or &isJazzDrive }
sub hasSCSI() {
local *F;
@@ -86,7 +88,7 @@ sub getSCSI() {
$_ = <F>; my ($vendor, $model) = /^\s*Vendor:\s*(.*?)\s+Model:\s*(.*?)\s+Rev:/ or return &$err();
$_ = <F>; my ($type) = /^\s*Type:\s*(.*)/ or &$err();
my $device;
- if ($type =~ /Direct-Access/) {
+ if ($type =~ /Direct-Access/) { #- what about LS-120 floppy drive, assuming there are Direct-Access...
$type = 'hd';
$device = "sd" . chr($driveNum++ + ord('a'));
} elsif ($type =~ /Sequential-Access/) {
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 855fb5fd0..ed88ea3ee 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -307,14 +307,22 @@ sub write($$$$) {
[ "/mnt/cdrom$i", "/mnt/cdrom$i", "supermount", "fs=iso9660,dev=/dev/cdrom$i", 0, 0 ] :
[ "/dev/cdrom$i", "/mnt/cdrom$i", "auto", "user,noauto,nosuid,exec,nodev,ro", 0, 0 ];
} detect_devices::cdroms()),
- (map_index { #- for zip drives, the right partition is the 4th.
+ (map_index { #- for zip drives, the right partition is the 4th by default.
my $i = $::i ? $::i + 1 : '';
mkdir "$prefix/mnt/zip$i", 0755 or log::l("failed to mkdir $prefix/mnt/zip$i: $!");
symlinkf "$_->{device}4", "$prefix/dev/zip$i" or log::l("failed to symlink $prefix/dev/zip$i: $!");
$useSupermount ?
[ "/mnt/zip$i", "/mnt/zip$i", "supermount", "fs=vfat,dev=/dev/zip$i", 0, 0 ] :
[ "/dev/zip$i", "/mnt/zip$i", "auto", "user,noauto,nosuid,exec,nodev", 0, 0 ];
- } detect_devices::zips()));
+ } detect_devices::zips()),
+ (map_index { #- for LS-120 drives, there are no partitions by default.
+ my $i = $::i ? $::i + 1 : '';
+ mkdir "$prefix/mnt/floppy-ls$i", 0755 or log::l("failed to mkdir $prefix/mnt/floppy-ls$i: $!");
+ symlinkf $_->{device}, "$prefix/dev/floppy-ls$i" or log::l("failed to symlink $prefix/dev/floppy-ls$i: $!");
+ $useSupermount ?
+ [ "/mnt/floppy-ls$i", "/mnt/floppy-ls$i", "supermount", "fs=vfat,dev=/dev/floppy-ls$i", 0, 0 ] :
+ [ "/dev/floppy-ls$i", "/mnt/floppy-ls$i", "auto", "user,noauto,nosuid,exec,nodev", 0, 0 ];
+ } detect_devices::ls120s()));
write_fstab($fstab, $prefix, @to_add);
}
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 382e13c78..321c6731a 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -679,6 +679,10 @@ sub kdeicons_postinstall($) {
my %toreplace = ( device => $1, id => $2 );
template2userfile($prefix, "/usr/share/zip.fsdev.kdelnk.in", "Desktop/Zip". ($2 && " $2") .".kdelnk",
1, %toreplace);
+ } elsif (m|^/dev/(\S+)\s+/mnt/floppy-ls(\d*)\s+|) {
+ my %toreplace = ( device => $1, id => $2 );
+ template2userfile($prefix, "/usr/share/floppy.fsdev.kdelnk.in", "Desktop/LS-120". ($2 && " $2") .".kdelnk",
+ 1, %toreplace);
} elsif (m|^/dev/(\S+)\s+/mnt/floppy(\d*)\s+|) {
my %toreplace = ( device => $1, id => $2 );
template2userfile($prefix, "/usr/share/floppy.fsdev.kdelnk.in", "Desktop/Floppy". ($2 && " $2") .".kdelnk",
@@ -691,6 +695,10 @@ sub kdeicons_postinstall($) {
my %toreplace = ( id => $1 );
template2userfile($prefix, "/usr/share/zip.kdelnk.in", "Desktop/Zip". ($1 && " $1") .".kdelnk",
1, %toreplace);
+ } elsif (m|^/mnt/floppy-ls(\d*)\s+/mnt/floppy-ls\d*\s+supermount|) {
+ my %toreplace = ( id => $1 );
+ template2userfile($prefix, "/usr/share/floppy.kdelnk.in", "Desktop/LS-120". ($1 && " $1") .".kdelnk",
+ 1, %toreplace);
} elsif (m|^/mnt/floppy(\d*)\s+/mnt/floppy\d*\s+supermount|) {
my %toreplace = ( id => $1 );
template2userfile($prefix, "/usr/share/floppy.kdelnk.in", "Desktop/Floppy". ($1 && " $1") .".kdelnk",
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 68127f0ff..34a20336d 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -337,9 +337,10 @@ sub read_printer_db(;$) {
@available_devices{split /\s+/, $_} = () if /^\s+/;
}
}
+ close AVAIL;
+ $available_devices{ppa} = undef if -x "$prefix/usr/bin/pbm2ppa" && -x "$prefix/usr/bin/pnm2ppa";
delete $available_devices{''};
@available_devices{qw/POSTSCRIPT TEXT/} = (); #- these are always available.
- close AVAIL;
local $_; #- use of while (<...
local *DBPATH; #- don't have to do close ... and don't modify globals at least
@@ -589,8 +590,8 @@ sub configure_queue($) {
#- make general.cfg
($filein, $file) = &$get_name_file("general.cfg");
- $fieldname{ascps_trans} = $entry->{ASCII_TO_PS} ? "YES" : "NO";
- $fieldname{desiredto} = ($dbentry->{GSDRIVER} ne "TEXT") ? "ps" : "asc";
+ $fieldname{ascps_trans} = $entry->{ASCII_TO_PS} || $dbentry->{GSDRIVER} eq 'ppa' ? "YES" : "NO";
+ $fieldname{desiredto} = $dbentry->{GSDRIVER} ne "TEXT" ? "ps" : "asc";
$fieldname{papersize} = $entry->{PAPERSIZE} ? $entry->{PAPERSIZE} : "letter";
$fieldname{printertype} = $entry->{TYPE};
create_config_file($filein, $file, %fieldname);
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 9bf53776d..50b0fb4e4 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -158,7 +158,7 @@ _("Resolution") => { val => \$printer->{RESOLUTION}, type => 'list', not_edit =>
$is_uniprint ? (
_("Uniprint driver options") => { val => \$printer->{BITSPERPIXEL}, type => 'list', not_edit => 1, list => \@col } ) : (
_("Color depth options") => { val => \$printer->{BITSPERPIXEL}, type => 'list', not_edit => 1, list => \@col } ), ) : (),
-$db_entry{GSDRIVER} ne 'TEXT' && $db_entry{GSDRIVER} ne 'POSTSCRIPT' ? (
+$db_entry{GSDRIVER} ne 'TEXT' && $db_entry{GSDRIVER} ne 'POSTSCRIPT' && $db_entry{GSDRIVER} ne 'ppa' ? (
_("Print text as PostScript?") => { val => \$printer->{ASCII_TO_PS}, type => 'bool' }, ) : (),
_("Reverse page order") => { val => \$printer->{REVERSE_ORDER}, type => 'bool' },
$db_entry{GSDRIVER} ne 'POSTSCRIPT' ? (