1 files changed, 0 insertions, 375 deletions
diff --git a/perl-install/printer/office.pm b/perl-install/printer/office.pm
deleted file mode 100644
index 4a6ae02b5..000000000
--- a/perl-install/printer/office.pm
+++ /dev/null
@@ -1,375 +0,0 @@
-package printer::office;
-
-use strict;
-use common;
-use run_program;
-use printer::data;
-use printer::common;
-use printer::cups;
-
-# ------------------------------------------------------------------
-#   Star Office/OpenOffice.org
-# ------------------------------------------------------------------
-
-# OpenOffice.org stuff applies only for Star Office 6.x now, as our
-# OpenOffice.org is patched for native CUPS support
-
-our $suites = {
-    'OpenOffice.Org' => {
-	'make' => \&makeopenofficeprinterentry,
-	'remove' => \&removeopenofficeprinterentry,
-	'file_name' => '^(.*)/share/psprint/psprint.conf$',
-	'param' => ["Generic Printer", "Command="],
-	'perl' => '/usr/bin/perl -p -e "s=/euro /unused=/Euro /unused=" | /usr/bin/',
-	'files' => ["/usr/lib/office6*/share/psprint/psprint.conf",
-		    "/usr/local/lib/office6*/share/psprint/psprint.conf",
-		    "/usr/local/office6*/share/psprint/psprint.conf",
-		    "/opt/office6*/share/psprint/psprint.conf"],
-    },
-    'Star Office' => {
-	'make' => \&makestarofficeprinterentry,
-	'remove' => \&removestarofficeprinterentry,
-	'file_name' => '^(.*)/share/xp3/Xpdefaults$',
-	'param' => ["ports", "default_queue="],
-	'perl' => '/usr/bin/perl -p -e "s=16#80 /euro=16#80 /Euro=" | /usr/bin/',
-	'files' => ["/usr/lib/*/share/xp3/Xpdefaults",
-		    "/usr/local/lib/*/share/xp3/Xpdefaults",
-		    "/usr/local/*/share/xp3/Xpdefaults",
-		    "/opt/*/share/xp3/Xpdefaults"],
-    }
-};
-
-sub configureoffice {
-    my ($suite, $printer) = @_;
-    # Do we have Star Office installed?
-    my $configfilename = find_config_file($suite);
-    return 1 unless $configfilename;
-    my $configprefix = $1 if $configfilename =~ m!$suites->{$suite}{file_name}!;
-    # Load Star Office printer config file
-    my $configfilecontent = cat_("$::prefix$configfilename");
-    # Update remote CUPS queues
-    if (0 && $printer->{SPOOLER} eq "cups" && 
-	(-x "$::prefix/usr/bin/curl" || -x "$::prefix/usr/bin/wget")) {
-	my @printerlist = printer::cups::get_remote_queues();
-	foreach my $listentry (@printerlist) {
-	    next unless $listentry =~ /^([^\|]+)\|([^\|]+)$/;
-	    my $queue = $1;
-	    my $server = $2;
-	    if (-x "$::prefix/usr/bin/wget") {
-		eval(run_program::rooted(
-		      $::prefix, "/usr/bin/wget", "-O",
-		      "/etc/foomatic/$queue.ppd",
-		      "http://$server:631/printers/$queue.ppd"));
-	    } else {
-		eval(run_program::rooted(
-		      $::prefix, "/usr/bin/curl", "-o",
-		      "/etc/foomatic/$queue.ppd",
-		      "http://$server:631/printers/$queue.ppd"));
-	    }
-	    if (-r "$::prefix/etc/foomatic/$queue.ppd") {
-		$configfilecontent =
-		    $suites->{$suite}{make}($printer, $queue, 
-					    $configprefix,
-					    $configfilecontent);
-	    }
-	}
-    }
-    # Update local printer queues
-    foreach my $queue (keys(%{$printer->{configured}})) {
-	# Check if we have a PPD file
-	if (! -r "$::prefix/etc/foomatic/$queue.ppd") {
-	    if (-r "$::prefix/etc/cups/ppd/$queue.ppd") {
-		# If we have a PPD file in the CUPS config dir, link to it
-		run_program::rooted($::prefix, 
-				    "ln", "-sf",
-				    "/etc/cups/ppd/$queue.ppd",
-				    "/etc/foomatic/$queue.ppd");
-	    } elsif (-r "$::prefix/usr/share/postscript/ppd/$queue.ppd") {
-		# Check PPD directory of GPR, too
-		run_program::rooted($::prefix, 
-				    "ln", "-sf",
-				    "/usr/share/postscript/ppd/$queue.ppd",
-				    "/etc/foomatic/$queue.ppd");
-	    } else {
-		# No PPD file at all? We cannot set up this printer
-		next;
-	    }
-	}
-	$configfilecontent = 
-	    $suites->{$suite}{make}($printer, $queue, $configprefix,
-				    $configfilecontent);
-    }
-    # Patch PostScript output to print Euro symbol correctly also for
-    # the "Generic Printer"
-    my @parameters = @{$suites->{$suite}{param}};
-    $configfilecontent = removeentry($parameters[0], $parameters[1],
-				     $configfilecontent);
-    $configfilecontent =
-	addentry($parameters[0],
-		 $parameters[1] . $suites->{$suite}{perl} . 
-		 $spoolers{$printer->{SPOOLER}}{print_gui},
-		 $configfilecontent);
-    # Write back Star Office configuration file
-    return eval { output("$::prefix$configfilename", $configfilecontent) };
-}
-
-sub add_cups_remote_to_office {
-    my ($suite, $printer, $queue) = @_;
-    # Do we have Star Office installed?
-    my $configfilename = find_config_file($suite);
-    return 1 unless $configfilename;
-    my $configprefix = $1 if $configfilename =~ m!$suites->{$suite}{file_name}!;
-    # Load Star Office printer config file
-    my $configfilecontent = cat_("$::prefix$configfilename");
-    # Update remote CUPS queues
-    if ($printer->{SPOOLER} eq "cups" && 
-	(-x "$::prefix/usr/bin/curl" || -x "$::prefix/usr/bin/wget")) {
-	my @printerlist = printer::cups::get_remote_queues();
-	foreach my $listentry (@printerlist) {
-	    next unless $listentry =~ /^([^\|]+)\|([^\|]+)$/;
-	    my $q = $1;
-	    next if $q ne $queue;
-	    my $server = $2;
-	    # Remove server name from queue name
-	    $q =~ s/^([^@]*)@.*$/$1/;
-	    if (-x "$::prefix/usr/bin/wget") {
-		eval(run_program::rooted(
-		      $::prefix, "/usr/bin/wget", "-O",
-		      "/etc/foomatic/$queue.ppd",
-		      "http://$server:631/printers/$q.ppd"));
-	    } else {
-		eval(run_program::rooted(
-		      $::prefix, "/usr/bin/curl", "-o",
-		      "/etc/foomatic/$queue.ppd",
-		      "http://$server:631/printers/$q.ppd"));
-	    }
-	    # Does the file exist and is it not an error message?
-	    if (-r "$::prefix/etc/foomatic/$queue.ppd" &&
-		cat_("$::prefix/etc/foomatic/$queue.ppd") =~
-		/^\*PPD-Adobe/) {
-		$configfilecontent = 
-		    $suites->{$suite}{make}($printer, $queue,
-					    $configprefix,
-					    $configfilecontent);
-	    } else {
-		unlink "$::prefix/etc/foomatic/$queue.ppd";
-		return 0;
-	    }
-	    last if $suite eq 'Star Office';
-	}
-    }
-    # Write back Star Office configuration file
-    return eval { output("$::prefix$configfilename", $configfilecontent) };
-}
-
-sub remove_printer_from_office {
-    my ($suite, $printer, $queue) = @_;
-    # Do we have Star Office installed?
-    my $configfilename = find_config_file($suite);
-    return 1 unless $configfilename;
-    my $configprefix = $1 if $configfilename =~ m!$suites->{$suite}{file_name}!;
-    # Load Star Office printer config file
-    my $configfilecontent = cat_("$::prefix$configfilename");
-    # Remove the printer entry
-    $configfilecontent =
-	$suites->{$suite}{remove}($printer, $queue, $configprefix,
-				  $configfilecontent);
-    # Write back Star Office configuration file
-    return eval { output("$::prefix$configfilename", $configfilecontent) };
-}
-
-sub remove_local_printers_from_office {
-    my ($suite, $printer) = @_;
-    # Do we have Star Office installed?
-    my $configfilename = find_config_file($suite);
-    return 1 unless $configfilename;
-    my $configprefix = $1 if $configfilename =~ m!$suites->{$suite}{file_name}!;
-    # Load Star Office printer config file
-    my $configfilecontent = cat_("$::prefix$configfilename");
-    # Remove the printer entries
-    foreach my $queue (keys(%{$printer->{configured}})) {
-	$configfilecontent = 
-	    $suites->{$suite}{remove}($printer, $queue, $configprefix,
-				      $configfilecontent);
-    }
-    # Write back Star Office configuration file
-    return eval { output("$::prefix$configfilename", $configfilecontent) };
-}
-
-
-sub makestarofficeprinterentry {
-    my ($printer, $queue, $configprefix, $configfile) = @_;
-    # Set default printer
-    if ($queue eq $printer->{DEFAULT}) {
-	$configfile = removeentry("windows", "device=", $configfile);
-	$configfile = addentry("windows", 
-			       "device=$queue,$queue PostScript,$queue",
-			       $configfile);
-    }
-    # Make an entry in the "[devices]" section
-    $configfile = removeentry("devices", "$queue=", $configfile);
-    $configfile = addentry("devices", 
-			   "$queue=$queue PostScript,$queue",
-			   $configfile);
-    # Make an entry in the "[ports]" section
-    # The "perl" command patches the PostScript output to print the Euro
-    # symbol correctly.
-    $configfile = removeentry("ports", "$queue=", $configfile);
-    $configfile = addentry("ports", 
-			   qq($queue=/usr/bin/perl -p -e "s=16#80 /euro=16#80 /Euro=" | /usr/bin/) . $spoolers{$printer->{SPOOLER}}{print_command} . " -P $queue",
-			   $configfile);
-    # Make printer's section
-    $configfile = addsection("$queue,PostScript,$queue", $configfile);
-    # Load PPD file
-    my $ppd = cat_("$::prefix/etc/foomatic/$queue.ppd");
-    # Set the PostScript level
-    my $pslevel;
-    if ($ppd =~ /^\s*\*LanguageLevel:\s*\"?([^\s\"]+)\"?\s*$/m) {
-	$pslevel = $1;
-	$pslevel = "2" if $pslevel eq "3";
-    } else { $pslevel = "2" }
-    $configfile = removeentry("$queue.PostScript.$queue",
-			      "Level=", $configfile);
-    $configfile = addentry("$queue.PostScript.$queue", 
-			   "Level=$pslevel", $configfile);
-    # Set Color/BW
-    my $color = $ppd =~ /^\s*\*ColorDevice:\s*\"?([Tt]rue)\"?\s*$/m ? "1" : "0";
-    $configfile = removeentry("$queue.PostScript.$queue", "BitmapColor=", $configfile);
-    $configfile = addentry("$queue.PostScript.$queue", "BitmapColor=$color", $configfile);
-    # Set the default paper size
-    if ($ppd =~ /^\s*\*DefaultPageSize:\s*(\S+)\s*$/m) {
-	my $papersize = $1;
-	$configfile = removeentry("$queue.PostScript.$queue", "PageSize=", $configfile);
-	$configfile = removeentry("$queue.PostScript.$queue", "PPD_PageSize=", $configfile);
-	$configfile = addentry("$queue.PostScript.$queue", "PageSize=$papersize", $configfile);
-	$configfile = addentry("$queue.PostScript.$queue", "PPD_PageSize=$papersize", $configfile);
-    }
-    # Link the PPD file
-    run_program::rooted($::prefix, 
-			"ln", "-sf", "/etc/foomatic/$queue.ppd", 
-			"$configprefix/share/xp3/ppds/$queue.PS");
-    return $configfile;
-}
-
-sub makeopenofficeprinterentry {
-    my ($printer, $queue, $configprefix, $configfile) = @_;
-    # Make printer's section
-    $configfile = addsection($queue, $configfile);
-    # Load PPD file
-    my $ppd = cat_("$::prefix/etc/foomatic/$queue.ppd");
-    # "PPD_PageSize" line
-    if ($ppd =~ /^\s*\*DefaultPageSize:\s*(\S+)\s*$/m) {
-	my $papersize = $1;
-	$configfile = removeentry($queue,
-				  "PPD_PageSize=", $configfile);
-	$configfile = addentry($queue, 
-			       "PPD_PageSize=$papersize", $configfile);
-    }
-    # "Command" line
-    # The "perl" command patches the PostScript output to print the Euro
-    # symbol correctly.
-    $configfile = removeentry($queue, "Command=", $configfile);
-    $configfile = addentry($queue, 
-			   qq(Command=/usr/bin/perl -p -e "s=/euro /unused=/Euro /unused=" | /usr/bin/) . $spoolers{$printer->{SPOOLER}}{print_command} . " -P $queue",
-			   $configfile);
-    # "Comment" line 
-    $configfile = removeentry($queue, "Comment=", $configfile);
-    if ($printer->{configured}{$queue} &&
-	$printer->{configured}{$queue}{queuedata}{desc}) {
-	$configfile = addentry(
-	     $queue, 
-	     "Comment=$printer->{configured}{$queue}{queuedata}{desc}",
-	     $configfile);
-    } else {
-	$configfile = addentry($queue, 
-			       "Comment=",
-			       $configfile);
-    }
-    # "Location" line 
-    $configfile = removeentry($queue, "Location=", $configfile);
-    if ($printer->{configured}{$queue} &&
-	$printer->{configured}{$queue}{queuedata}{loc}) {
-	$configfile = addentry(
-	     $queue, 
-	     "Location=$printer->{configured}{$queue}{queuedata}{loc}",
-	     $configfile);
-    } else {
-	$configfile = addentry($queue, "Location=", $configfile);
-    }
-    # "DefaultPrinter" line
-    $configfile = removeentry($queue, "DefaultPrinter=", $configfile);
-    my $default = "0";
-    if ($queue eq $printer->{DEFAULT}) {
-	$default = "1";
-	# "DefaultPrinter=0" for the "Generic Printer"
-	$configfile = removeentry("Generic Printer", "DefaultPrinter=",
-				  $configfile);
-	$configfile = addentry("Generic Printer", 
-			       "DefaultPrinter=0",
-			       $configfile);	
-    }
-    $configfile = addentry($queue, "DefaultPrinter=$default", $configfile);
-    # "Printer" line 
-    $configfile = removeentry($queue, "Printer=", $configfile);
-    $configfile = addentry($queue, "Printer=$queue/$queue", $configfile);
-    # Link the PPD file
-    run_program::rooted($::prefix, 
-			"ln", "-sf", "/etc/foomatic/$queue.ppd", 
-			"$configprefix/share/psprint/driver/$queue.PS");
-    return $configfile;
-}
-
-sub removestarofficeprinterentry {
-    my ($_printer, $queue, $configprefix, $configfile) = @_;
-    # Remove default printer entry
-    $configfile = removeentry("windows", "device=$queue,", $configfile);
-    # Remove entry in the "[devices]" section
-    $configfile = removeentry("devices", "$queue=", $configfile);
-    # Remove entry in the "[ports]" section
-    $configfile = removeentry("ports", "$queue=", $configfile);
-    # Remove "[$queue,PostScript,$queue]" section
-    $configfile = removesection("$queue,PostScript,$queue", $configfile);
-    # Remove Link of PPD file
-    run_program::rooted($::prefix, 
-			"rm", "-f", 
-			"$configprefix/share/xp3/ppds/$queue.PS");
-    return $configfile;
-}
-
-sub removeopenofficeprinterentry {
-    my ($_printer, $queue, $configprefix, $configfile) = @_;
-    # Remove printer's section
-    $configfile = removesection($queue, $configfile);
-    # Remove Link of PPD file
-    run_program::rooted($::prefix, 
-			"rm", "-f", 
-			"$configprefix/share/psprint/driver/$queue.PS");
-    return $configfile;
-}
-
-sub find_config_file {
-    my ($suite) = @_;
-    my $configfilenames = $suites->{$suite}{files};
-    foreach my $configfilename (@$configfilenames) {
-	local *F;
-	if (open F, "ls -r $::prefix$configfilename 2> /dev/null |") {
-	    my $filename = <F>;
-	    close F;
-	    if ($filename) {
-		$filename =~ s/^$::prefix// if $::prefix;
-		# Work around a bug in the "ls" of "busybox". During
-		# installation it outputs the mask given on the command line
-		# instead of nothing when the mask does not match any file
-		next if $filename =~ /\*/;
-		return $filename;
-	    }
-	}
-    }
-    return "";
-}
-
-sub writesofficeconfigfile {
-    my ($file, $filecontent) = @_;
-    eval { output("$::prefix$file", $filecontent) };
-}
-