Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
#! /usr/bin/perl -w
package main;
use strict;
use POSIX;
use vars qw($COMNAME %SIG $ARG0);
use File::Copy;
use Debian::Defoma::Common;
use Debian::Defoma::Font;
use Debian::Defoma::Id;
use Debian::Defoma::Subst;
use Debian::Defoma::User;
import Debian::Defoma::Common qw(&mylock &arg_check &arg_check_category
&get_files &SUBSTRULEDIR &ERROR &readfile);
import Debian::Defoma::User qw(&defoma_user_init &defoma_user_update_font);
$ARG0 = $0;
$ARG0 =~ /(.*)\/(.*)/;
$COMNAME = $2;
my $Type;
printv(join(' ', $ARG0, ARGS));
$SIG{'HUP'} = \&exitfunc;
$SIG{'INT'} = \&exitfunc;
$SIG{'QUIT'} = \&exitfunc;
$SIG{'TERM'} = \&exitfunc;
sub exitfunc {
printw('Teminate Signal!');
term_all();
mylock(0);
exit ERROR;
}
sub usage {
if ($COMNAME eq 'defoma-font' || $COMNAME eq 'defoma') {
printm("defoma-font [option..] register ..");
printm("defoma-font [option..] unregister ");
printm("defoma-font [option..] reregister ..");
printm("defoma-font [option..] purge ");
printm("defoma-font [option..] register-all ");
printm("defoma-font [option..] unregister-all ");
printm("defoma-font [option..] reregister-all ");
printm("defoma-font [option..] purge-all ");
printm("defoma-font [option..] register-one ");
printm("defoma-font [option..] unregister-one ");
printm("defoma-font [option..] reregister-one ");
printm("defoma-font [option..] purge-one ");
}
if ($COMNAME eq 'defoma-app' || $COMNAME eq 'defoma') {
printm("defoma-app [option..] clean|update|ignore [..]");
printm("defoma-app [option..] purge ");
}
if ($COMNAME eq 'defoma-subst' || $COMNAME eq 'defoma') {
printm("defoma-subst [option..] new-rule ..");
printm("defoma-subst [option..] add-rule ..");
printm("defoma-subst [option..] remove-rule ..");
printm("defoma-subst [option..] edit-rule ");
printm("defoma-subst check-rule ");
}
if ($COMNAME eq 'defoma-id' || $COMNAME eq 'defoma') {
printm("defoma-id [option..] list-cache ");
printm("defoma-id [option..] install [/] ");
printm("defoma-id [option..] exclude [/] ");
printm("defoma-id [option..] unset [/] ");
printm("defoma-id [option..] add-alias [/] ");
printm("defoma-id [option..] remove-alias [/] ");
}
if ($COMNAME eq 'defoma-user' || $COMNAME eq 'defoma') {
printm("defoma-user [options..] update");
printm("defoma-user [options..] reconfigure");
}
}
sub usage_and_exit {
usage();
exit ERROR;
}
sub init_all {
defoma_font_init();
defoma_user_init() if (USERSPACE);
&Debian::Defoma::Configure::init();
&Debian::Defoma::Configure::init2(@_);
defoma_user_update_font() if (USERSPACE);
}
sub term_all {
&Debian::Defoma::Configure::term();
defoma_font_term();
}
usage_and_exit() if (@ARGV == 0);
if ($COMNAME eq 'defoma') {
$Type = shift(@ARGV);
unless (defined($Type)) {
usage_and_exit;
}
} else {
$COMNAME =~ /^defoma-(.*)$/;
$Type = $1;
}
my $command = shift(@ARGV) || usage_and_exit;
if ($command =~ /^-/) {
printe("Unknown option: $command.");
exit ERROR;
}
if ($Type =~ /^(font|app|subst|id|user)$/) {
require("/usr/share/defoma/libdefoma-$Type.pl");
main($command);
}
usage_and_exit();