drakx - Mageia Installer and base platform for many utilities

Mageia Installer and base platform for many utilities

Thierry Vignaud [tv]

summary refs log tree commit diff stats

path: root/perl-install/diskdrake/dav.pm

	Commit message (Expand)	Author	Age	Files	Lines
*	simplify	Thierry Vignaud	2016-02-10	1	-2/+1
*	fix gtk+3 regression crash with --dav (mga#13204)	Thierry Vignaud	2015-05-14	1	-0/+1
*	kill $Id:$ tags	Thierry Vignaud	2014-06-07	1	-1/+1
*	perl_checker cleanups	Thierry Vignaud	2012-03-23	1	-1/+1
*	- perl -pi -e 's!mountpoint!mount point!'	Ahmad Samir	2011-04-04	1	-1/+1
*	Synthesized commit during git-svn import combining previous Mandriva history ...	Mageia SVN-Git Migration	2011-02-06	1	-1/+1
*	- diskdrake : added delete mountpoint support for davfs2	Aurélien Lefebvre	2009-08-17	1	-0/+11
*	- diskdrake : added the ability to exit the davfs2 mountpoint settings panel	Aurélien Lefebvre	2009-08-17	1	-2/+6
*	re-sync after the big svn loss	Pascal Rigaux	2007-04-25	1	-2/+2
*	many functions in fsedit don't modify anything, they are simply accessors.	Pascal Rigaux	2004-08-03	1	-2/+0
*	introduce ->ensure_binary_is_installed and use it	Pascal Rigaux	2004-08-02	1	-1/+1
*	- add field {fs_type} partially replacing {pt_type}	Pascal Rigaux	2004-07-27	1	-1/+1
*	big renaming of field {type} to {pt_type},	Pascal Rigaux	2004-07-05	1	-1/+1
*	remove "Quit" icon	Pascal Rigaux	2004-02-05	1	-1/+1
*	focus_first on the webdav server field	Pascal Rigaux	2003-08-26	1	-7/+9
*	remove unused variables or rename them with an underscore (eg: $o becomes $_o)	Pascal Rigaux	2002-12-04	1	-1/+1
*	- replace ... =~ 'foo' with ... =~ /foo/	Pascal Rigaux	2002-11-11	1	-1/+1
*	replace "_" with "N" and "__" with "N_"	Pascal Rigaux	2002-11-06	1	-15/+15
*	add nice description to the initial dialog box (thanks Stew!)	Pascal Rigaux	2002-09-05	1	-1/+5
*	add "Mount" and "Unmount"	Pascal Rigaux	2002-08-28	1	-1/+14
*	in "Mount point", by default choose the default proposition (asked by dadou f...	Pascal Rigaux	2002-08-28	1	-1/+1
*	add checking davfs is installed	Pascal Rigaux	2002-08-13	1	-0/+2
*	rough WebDAV gui	Pascal Rigaux	2002-08-13	1	-0/+96

'hunk'>@@ -2080,6 +2091,7 @@ sub setup_common {

my ($printer, $in, $makemodel, $device, $do_auto_detect, @autodetected) = @_;

+ local $::isEmbedded = 0;

#- Check whether the printer is an HP multi-function device and

#- configure HPOJ if it is one

@@ -2667,6 +2679,7 @@ sub setup_common {

sub choose_printer_name {

my ($printer, $in) = @_;

+ local $::isEmbedded = 0;

# Name, description, location

# $in->set_help('setupPrinterName') if $::isInstall;

my $default = $printer->{currentqueue}{queue};

@@ -2709,6 +2722,7 @@ N("Every printer needs a name (for example \"printer\"). The Description and Loc

sub get_db_entry {

my ($printer, $in) = @_;

+ local $::isEmbedded = 0;

#- Read the printer driver database if necessary

if (keys %printer::main::thedb == 0) {

my $_w = $in->wait_message(N("Printerdrake"),

@@ -2823,6 +2837,7 @@ sub get_db_entry {

sub is_model_correct {

my ($printer, $in) = @_;

+ local $::isEmbedded = 0;

# $in->set_help('chooseModel') if $::isInstall;

my $dbentry = $printer->{DBENTRY};

if (!$dbentry) {

@@ -2850,6 +2865,7 @@ For your printer Printerdrake has found:

sub choose_model {

my ($printer, $in) = @_;

+ local $::isEmbedded = 0;

# $in->set_help('chooseModel') if $::isInstall;

#- Read the printer driver database if necessary

if (keys %printer::main::thedb == 0) {

@@ -2906,6 +2922,7 @@ Please check whether Printerdrake did the auto-detection of your printer model c

sub installppd {

my ($printer, $in) = @_;

+ local $::isEmbedded = 0;

# Install a manufacturer-supplied PPD file

# The dialogs to choose the PPD file should appear as extra

@@ -2998,6 +3015,7 @@ my %drv_x125_options = (

sub get_printer_info {

my ($printer, $in) = @_;

+ local $::isEmbedded = 0;

my $queue = $printer->{OLD_QUEUE};

my $oldchoice = $printer->{OLD_CHOICE};

my $newdriver = 0;

@@ -3271,6 +3289,7 @@ sub unhexify {

sub setup_options {

my ($printer, $in) = @_;

+ local $::isEmbedded = 0;

my @simple_options =

("PageSize", # Media properties

"MediaType",

@@ -3554,6 +3573,7 @@ You should make sure that the page size and the ink type/printing mode (if avail

sub setasdefault {

my ($printer, $in) = @_;

+ local $::isEmbedded = 0;

# $in->set_help('setupAsDefault') if $::isInstall;

if ($printer->{DEFAULT} eq '' || # We have no default printer,

# so set the current one as default

@@ -3565,6 +3585,7 @@ sub setasdefault {

sub print_testpages {

my ($printer, $in, $upNetwork) = @_;

+ local $::isEmbedded = 0;

# $in->set_help('printTestPages') if $::isInstall;

# print test pages

my $res2 = 0;

@@ -3685,6 +3706,7 @@ It may take some time before the printer starts.\n");

sub printer_help {

my ($printer, $in) = @_;

+ local $::isEmbedded = 0;

my $spooler = $printer->{SPOOLER};

$spooler = "cups" if $spooler eq "rcups";

my $queue = $printer->{QUEUE};

@@ -3896,6 +3918,7 @@ sub photocard_help {

sub copy_queues_from {

my ($printer, $in, $oldspooler) = @_;

+ local $::isEmbedded = 0;

# $in->set_help('copyQueues') if $::isInstall;

my $newspooler = $printer->{SPOOLER};

my @oldqueues;

@@ -4007,6 +4030,7 @@ You can also type a new name or skip this printer.",

sub start_network {

my ($in, $upNetwork) = @_;

+ local $::isEmbedded = 0;

my $_w = $in->wait_message(N("Printerdrake"),

N("Starting network..."));

if ($::isInstall) {

@@ -4039,6 +4063,7 @@ sub check_network {

my ($printer, $in, $upNetwork, $b_dontconfigure) = @_;

+ local $::isEmbedded = 0;

# Any additional dialogs caused by this subroutine should appear as

# extra windows and not embedded in the "Add printer" wizard.

local $::isWizard = 0;

@@ -4113,6 +4138,7 @@ sub security_check {

# user whether he really wants to configure printing.

my ($spooler, $security, $o_in) = @_;

+ local $::isEmbedded = 0;

# Any additional dialogs caused by this subroutine should appear as

# extra windows and not embedded in the "Add printer" wizard.

local $::isWizard = 0;

@@ -4163,6 +4189,7 @@ sub start_spooler_on_boot {

# PDQ has no daemon, so nothing needs to be started :

return unless $b_service;

+ local $::isEmbedded = 0;

# Any additional dialogs caused by this subroutine should appear as

# extra windows and not embedded in the "Add printer" wizard.

local $::isWizard = 0;

@@ -4186,6 +4213,7 @@ Do you want to have the automatic starting of the printing system turned on agai

sub install_spooler {

# installs the default spooler and start its daemon

my ($printer, $security, $do_pkgs, $o_in, $o_upNetwork, $b_silentspooleronboot) = @_;

+ local $::isEmbedded = 0;

return 1 if $::testing;

my $spooler = $printer->{SPOOLER};

# If the user refuses to install the spooler in high or paranoid

@@ -4283,6 +4311,7 @@ sub install_spooler {

sub assure_remote_server_is_set {

my ($printer, $in) = @_;

+ local $::isEmbedded = 0;

# Check if a remote CUPS server is specified

if (!$printer->{remote_cups_server}) {

my ($daemonless_cups, $remote_cups_server) =

@@ -4342,6 +4371,7 @@ sub assure_default_printer_is_set {

sub set_cups_daemon_mode {

my ($printer, $in) = @_;

+ local $::isEmbedded = 0;

my ($modechoice, $daemonless_cups, $remote_cups_server);

if ($in->ask_from_

@@ -4405,6 +4435,7 @@ sub set_cups_daemon_mode {

sub setup_default_spooler {

my ($printer, $security, $in, $upNetwork) = @_;

+ local $::isEmbedded = 0;

my $oldspooler = $printer->{SPOOLER};

$printer->{SPOOLER} ||= 'cups';

my @spoolerlist = printer::main::spooler();

@@ -4451,6 +4482,7 @@ sub setup_default_spooler {

sub configure_queue {

my ($printer, $in) = @_;

+ local $::isEmbedded = 0;

my $_w = $in->wait_message(N("Printerdrake"),

N("Configuring printer \"%s\"...",

$printer->{currentqueue}{queue}))

@@ -4469,6 +4501,7 @@ sub configure_queue {

sub install_foomatic {

my ($in) = @_;

+ local $::isEmbedded = 0;

if (!$::testing &&

!files_exist(qw(/usr/bin/foomatic-configure

/usr/bin/foomatic-rip

@@ -4490,6 +4523,7 @@ sub install_foomatic {

sub wizard_close {

my ($in, $mode) = @_;

+ local $::isEmbedded = 0;

# Leave wizard mode with congratulations screen if $mode = 1

$::Wizard_no_previous = 1;

$::Wizard_no_cancel = 1;

@@ -4852,15 +4886,17 @@ sub add_printer {

spooler => $printer->{SPOOLER},

};

#- Do all the configuration steps for a new queue

- step_0:

- #if (!$::isEmbedded && !$::isInstall &&

if (!$::isInstall &&

$in->isa('interactive::gtk')) {

+ local $::isEmbedded = 0;

+ undef $::WizardTable;

+ undef $::WizardWindow;

# Enter wizard mode (only after installation)

$::Wizard_pix_up = "printerdrake.png";

$::Wizard_title = N("Add a new printer");

$::isWizard = 1;

# Wizard welcome screen

+ step_0:

$::Wizard_no_previous = 1;

undef $::Wizard_no_cancel; undef $::Wizard_finished;

wizard_welcome($printer, $in, $upNetwork) or do {