summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakedm
Commit message (Expand)AuthorAgeFilesLines
* reuse mcc icons (if availlable) for windowsThierry Vignaud2004-09-021-0/+2
* Mandrake -> Mandrakelinux. Mark DM entries as translatable.Funda Wang2004-08-251-4/+4
* typo fixesThierry Vignaud2004-08-191-2/+2
* standalone tools are *not* chrootedThierry Vignaud2004-07-291-1/+1
* MandrakeSoft -> MandrakesoftPascal Rigaux2004-07-201-1/+1
* - typo fix (lost -> lose)Robert Vojta2004-07-081-1/+1
* warn the user before dm exit will kill the session (Robert Vojta, #10179)Thierry Vignaud2004-07-081-0/+1
* kill dead codeThierry Vignaud2004-06-081-1/+1
* switch to xorgPascal Rigaux2004-06-081-1/+1
* fix dm restartThierry Vignaud2004-03-171-1/+2
* update copyright noticesThierry Vignaud2004-01-221-1/+1
* perl_checker sometimes wrongly complainThierry Vignaud2004-01-131-1/+1
* perl_checker cleanupsThierry Vignaud2004-01-121-2/+2
* when offering to restart dm, offer yes/no as choice rather thanThierry Vignaud2004-01-121-1/+1
* follow std explanations policyThierry Vignaud2003-09-101-2/+2
* add higher level explanationsThierry Vignaud2003-09-101-1/+7
* in non expert mode, only display the list of *installed* display managers.Thierry Vignaud2003-08-311-1/+5
* explanations now work again thanks to pixel, no need to duplicate themThierry Vignaud2003-08-311-1/+0
* fix crash on service restartThierry Vignaud2003-06-241-0/+1
* fix #1743: offer to restart the dm serviceThierry Vignaud2003-05-201-0/+4
* perl_checker fixThierry Vignaud2003-05-131-1/+1
* fix #3701: return back to the display managers menu if one cancel theThierry Vignaud2003-04-291-1/+2
* it was designed in 2003, not 2002Thierry Vignaud2003-04-101-1/+1
* really sortThierry Vignaud2003-03-121-1/+1
* - check if dm package is installed and install it if neededThierry Vignaud2003-03-121-12/+18
* log system config changesThierry Vignaud2003-03-061-0/+1
* handle low case config variables despite they should have been upcaseThierry Vignaud2003-03-051-1/+1
* untabifyThierry Vignaud2003-02-261-1/+1
* on laurent request, strip the empty lines and add a end-of-line character onThierry Vignaud2003-02-261-1/+2
* remove no more used variableThierry Vignaud2003-02-191-1/+0
* pixelizeThierry Vignaud2003-02-181-1/+1
* just remove all DISPLAYMANAGER occurences and fix the case where thereThierry Vignaud2003-02-181-2/+2
* fixed English typoPablo Saratxaga2003-02-071-1/+1
* sanitizeThierry Vignaud2003-02-061-1/+1
* perl_checker fix (yeah, i was faster than perl_checko!)Thierry Vignaud2003-02-061-1/+1
* the result of David Sansome|Laurent Montel|Frederic Lepied|DavodThierry Vignaud2003-02-061-0/+59
generated by cgit v1.2.1 (git 2.21.0) at 2024-09-13 00:25:27 +0000
str">--default : save default directories. --debug : show all debug messages. --show-conf : list of files or directories to backup. --config-info : explain configuration file options (for non-X users). --daemon : use daemon configuration. --help : show this message. --version : show version number. "), 'drakboot' => N_("[--boot] [--splash] OPTIONS: --boot - enable to configure boot loader --splash - enable to configure boot theme default mode: offer to configure autologin feature"), 'drakbug' => N_("[OPTIONS] [PROGRAM_NAME] OPTIONS: --help - print this help message. --report - program should be one of Mandriva Linux tools --incident - program should be one of Mandriva Linux tools"), 'drakconnect' => N_("[--add] --add - \"add a network interface\" wizard --del - \"delete a network interface\" wizard --skip-wizard - manage connections --internet - configure internet --wizard - like --add"), 'drakfont' => N_(" Font Importation and monitoring application OPTIONS: --windows_import : import from all available windows partitions. --xls_fonts : show all fonts that already exist from xls --install : accept any font file and any directory. --uninstall : uninstall any font or any directory of font. --replace : replace all font if already exist --application : 0 none application. : 1 all application available supported. : name_of_application like so for staroffice : and gs for ghostscript for only this one."), 'draksec' => "[--debug] --debug: print debugging information", 'drakTermServ' => N_("[OPTIONS]... Mandriva Linux Terminal Server Configurator --enable : enable MTS --disable : disable MTS --start : start MTS --stop : stop MTS --adduser : add an existing system user to MTS (requires username) --deluser : delete an existing system user from MTS (requires username) --addclient : add a client machine to MTS (requires MAC address, IP, nbi image name) --delclient : delete a client machine from MTS (requires MAC address, IP, nbi image name)"), 'drakxtv' => "[--no-guess]", 'drakupdate_fstab' => " [--add | --del] <device>\n", 'keyboardrake' => N_("[keyboard]"), 'logdrake' => N_("[--file=myfile] [--word=myword] [--explain=regexp] [--alert]"), 'net_monitor' => N_("[OPTIONS] Network & Internet connection and monitoring application --defaultintf interface : show this interface by default --connect : connect to internet if not already connected --disconnect : disconnect to internet if already connected --force : used with (dis)connect : force (dis)connection. --status : returns 1 if connected 0 otherwise, then exit. --quiet : do not be interactive. To be used with (dis)connect."), 'printerdrake' => N_(" [--skiptest] [--cups] [--lprng] [--lpd] [--pdq]"), 'rpmdrake' => N_("[OPTION]... --no-confirmation do not ask first confirmation question in Mandriva Update mode --no-verify-rpm do not verify packages signatures --changelog-first display changelog before filelist in the description window --merge-all-rpmnew propose to merge all .rpmnew/.rpmsave files found"), 'scannerdrake' => N_("[--manual] [--device=dev] [--update-sane=sane_source_dir] [--update-usbtable] [--dynamic=dev]"), 'XFdrake' => N_(" [everything] XFdrake [--noauto] monitor XFdrake resolution"), ); $usages{$_} = $usages{rpmdrake} foreach qw(rpmdrake-remove Mandriva Update); $usages{Xdrakres} = $usages{XFdrake}; sub exit { explanations('### Program is exiting ###'); CORE::exit(@_); } sub __exit { explanations('### Program is exiting ###'); c::_exit(@_); } sub version() { print 'Drakxtools version 10 Copyright (C) 1999-2004 Mandriva by <install@mandriva.com> ', $::license, "\n"; } my ($i, @new_ARGV); foreach (@ARGV) { $i++; if (/^-(-help|h)$/) { version(); print N("\nUsage: %s [--auto] [--beginner] [--expert] [-h|--help] [--noauto] [--testing] [-v|--version] ", $progname), if_($usages{$progname}, common::translate($usages{$progname})), "\n"; # print N("\nUsage: "), $::usage, "\n" if $::usage; CORE::exit(0); } elsif (/^-(-version|v)$/) { version(); CORE::exit(0); } elsif (/^--embedded$/) { $::XID = splice @ARGV, $i, 1; $::isEmbedded = 1; } elsif (/^--expert$/) { $::expert = 1; } elsif (/^--noauto$/) { $::noauto = /-noauto/; } elsif (/^--auto$/) { $::auto = 1; } elsif (/^--testing$/) { $::testing = 1; } elsif (/^--beginner$/) { $::expert = 0; } else { push @new_ARGV, $_; } } @ARGV = @new_ARGV; ################################################################################ #- stuff will go to special /var/log/explanations file my $standalone_name; sub explanations { log::explanations("@_") } our @common_functs = qw(renamef linkf symlinkf output substInFile mkdir_p rm_rf cp_af touch setVarsInSh setExportedVarsInSh setExportedVarsInCsh update_gnomekderc); our @builtin_functs = qw(chmod chown __exit exit unlink link symlink rename system); our @drakx_modules = qw(Xconfig::card Xconfig::default Xconfig::main Xconfig::monitor Xconfig::parse Xconfig::proprietary Xconfig::resolution_and_depth Xconfig::screen Xconfig::test Xconfig::various Xconfig::xfree any bootloader bootlook c class_discard commands crypto detect_devices devices diskdrake diskdrake::hd_gtk diskdrake::interactive diskdrake::removable diskdrake::removable_gtk diskdrake::smbnfs_gtk fs fsedit http keyboard lang log loopback lvm modules::parameters modules mouse my_gtk network network::adsl network::ethernet network::isdn_consts network::isdn network::modem network::netconnect network::network network::nfs network::smb network::tools partition_table partition_table_bsd partition_table::dos partition_table::empty partition_table::gpt partition_table::mac partition_table::raw partition_table::sun printer printerdrake proxy raid run_program scanner services steps swap timezone network::drakfirewall network::shorewall); $SIG{SEGV} = sub { my $progname = $0; $progname =~ s|.*/||; exec("drakbug --incident $progname") }; sub import() { ($standalone_name = $0) =~ s|.*/||; c::openlog($standalone_name . "[$$]"); explanations('### Program is starting ###'); eval "*common::$_ = *$_" foreach @common_functs; foreach my $f (@builtin_functs) { eval "*$_" . "::$f = *$f" foreach @drakx_modules; eval "*" . caller() . "::$f = *$f"; } } sub renamef { explanations "moved file $_[0] to $_[1]"; goto &MDK::Common::File::renamef; } sub linkf { explanations "hard linked file $_[0] to $_[1]"; goto &MDK::Common::File::linkf; } sub symlinkf { explanations "symlinked file $_[0] to $_[1]"; goto &MDK::Common::File::symlinkf; } sub output { explanations "created file $_[0]"; goto &MDK::Common::File::output; } sub substInFile(&@) { explanations "modified file $_[1]"; goto &MDK::Common::File::substInFile; } sub mkdir_p { explanations "created directory $_[0] (and parents if necessary)"; goto &MDK::Common::File::mkdir_p; } sub rm_rf { explanations "removed files/directories (recursively) @_"; goto &MDK::Common::File::rm_rf; } sub cp_af { my $retval = MDK::Common::File::cp_af(@_); my $dest = pop @_; explanations "copied recursively @_ to $dest"; return $retval; } sub touch { explanations "touched file @_"; goto &MDK::Common::File::touch; } sub setVarsInSh { explanations "modified file $_[0]"; goto &MDK::Common::System::setVarsInSh; } sub setExportedVarsInSh { explanations "modified file $_[0]"; goto &MDK::Common::System::setExportedVarsInSh; } sub setExportedVarsInCsh { explanations "modified file $_[0]"; goto &MDK::Common::System::setExportedVarsInCsh; } sub update_gnomekderc { explanations "modified file $_[0]"; goto &MDK::Common::System::update_gnomekderc; } sub chmod { my $retval = CORE::chmod(@_); my $mode = shift @_; explanations sprintf("changed mode of %s to %o", $_, $mode) foreach @_; return $retval; } sub chown { my $retval = CORE::chown(@_); my $uid = shift @_; my $gid = shift @_; explanations sprintf("changed owner of $_ to $uid.$gid") foreach @_; return $retval; } sub unlink { explanations "removed files/directories @_"; CORE::unlink(@_); } sub link { explanations "hard linked file $_[0] to $_[1]"; CORE::link($_[0], $_[1]); } sub symlink { explanations "symlinked file $_[0] to $_[1]"; CORE::symlink($_[0], $_[1]); } sub rename { explanations "renamed file $_[0] to $_[1]" if -r $_[0]; CORE::rename($_[0], $_[1]); } sub system { explanations "launched command: @_"; CORE::system(@_); } 1;
generated by cgit v1.2.1 (git 2.21.0) at 2024-09-13 00:25:27 +0000