REDROOM

Edit File Size: 2.13 KB

//usr/share/perl5/Debconf/FrontEnd/Editor.pm

Text Base64

#!/usr/bin/perl
# This file was preprocessed, do not edit!

package Debconf::FrontEnd::Editor;
use warnings;
use strict;
use Debconf::Encoding q(wrap);
use Debconf::TmpFile;
use Debconf::Gettext;
use base qw(Debconf::FrontEnd::ScreenSize);

my $fh;

sub init {
	my $this=shift;

$this->SUPER::init(@_);
	$this->interactive(1);
}

sub comment {
	my $this=shift;
	my $comment=shift;

print $fh wrap('# ','# ',$comment);
	$this->filecontents(1);
}

sub divider {
	my $this=shift;

print $fh ("\n".('#' x ($this->screenwidth - 1))."\n");
}

sub item {
	my $this=shift;
	my $name=shift;
	my $value=shift;

print $fh "$name=\"$value\"\n\n";
	$this->filecontents(1);
}

sub go {
	my $this=shift;
	my @elements=@{$this->elements};
	return 1 unless @elements;

$fh = Debconf::TmpFile::open('.sh');

$this->comment(gettext("You are using the editor-based debconf frontend to configure your system. See the end of this document for detailed instructions."));
	$this->divider;
	print $fh ("\n");

$this->filecontents('');
	foreach my $element (@elements) {
		$element->show;
	}

if (! $this->filecontents) {
		Debconf::TmpFile::cleanup();
		return 1;
	}

$this->divider;
	$this->comment(gettext("The editor-based debconf frontend presents you with one or more text files to edit. This is one such text file. If you are familiar with standard unix configuration files, this file will look familiar to you -- it contains comments interspersed with configuration items. Edit the file, changing any items as necessary, and then save it and exit. At that point, debconf will read the edited file, and use the values you entered to configure the system."));
	print $fh ("\n");
	close $fh;

my $editor=$ENV{EDITOR} || $ENV{VISUAL} || '/usr/bin/editor';
	system "$editor ".Debconf::TmpFile->filename;

my %eltname=map { $_->question->name => $_ } @elements;
	open (my $in, "<", Debconf::TmpFile::filename());
	while (<$in>) {
		next if /^\s*#/;

if (/(.*?)="(.*)"/ && $eltname{$1}) {
			$eltname{$1}->value($2);
		}
	}
	close $in;

Debconf::TmpFile::cleanup();

return 1;
}

sub screenwidth {
	my $this=shift;

$Debconf::Encoding::columns=$this->SUPER::screenwidth(@_);
}

Exit & Reset Text mode: syntax highlighting auto-detects file type.

Name	Size	Perms	Modified	Actions
Dialog.pm	7.65 KB	lrw-r--r--	2024-04-12 12:40:53	Edit Download recursive recursive
Editor.pm	2.13 KB	lrw-r--r--	2024-04-12 12:40:53	Edit Download recursive recursive
Gnome.pm	7.34 KB	lrw-r--r--	2024-04-12 12:40:53	Edit Download recursive recursive
Kde.pm	2.04 KB	lrw-r--r--	2024-04-12 12:40:53	Edit Download recursive recursive
Noninteractive.pm	744 B	lrw-r--r--	2024-04-12 12:40:53	Edit Download recursive recursive
Passthrough.pm	6.98 KB	lrw-r--r--	2024-04-12 12:40:53	Edit Download recursive recursive
Readline.pm	3.57 KB	lrw-r--r--	2024-04-12 12:40:53	Edit Download recursive recursive
ScreenSize.pm	892 B	lrw-r--r--	2024-04-12 12:40:53	Edit Download recursive recursive
Teletype.pm	1.54 KB	lrw-r--r--	2024-04-12 12:40:53	Edit Download recursive recursive
Text.pm	166 B	lrw-r--r--	2024-04-12 12:40:53	Edit Download recursive recursive
Web.pm	2.60 KB	lrw-r--r--	2024-04-12 12:40:53	Edit Download recursive recursive

Directory Contents