380 lines
8.7 KiB
Perl
380 lines
8.7 KiB
Perl
|
package SrvMngr::Controller::Printers;
|
||
|
|
|
||
|
|
#----------------------------------------------------------------------
|
||
|
|
# heading : System
|
||
|
|
# description : Printers
|
||
|
|
# navigation : 4000 800
|
||
|
|
#
|
||
|
|
#
|
||
|
|
# routes : end
|
||
|
|
#----------------------------------------------------------------------
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use Mojo::Base 'Mojolicious::Controller';
|
||
|
|
|
||
|
|
use Locale::gettext;
|
||
|
|
use SrvMngr::I18N;
|
||
|
|
|
||
|
|
use SrvMngr qw(theme_list init_session);
|
||
|
|
|
||
|
|
use esmith::FormMagick::Panel::printers;
|
||
|
|
|
||
|
|
our $adb = esmith::AccountsDB->open || die "Couldn't open accounts db";
|
||
|
|
|
||
|
|
sub main {
|
||
|
|
|
||
|
|
my $c = shift;
|
||
|
|
$c->app->log->info($c->log_req);
|
||
|
|
|
||
|
|
my %prt_datas = ();
|
||
|
|
my $title = $c->l('prt_FORM_TITLE');
|
||
|
|
|
||
|
|
$prt_datas{'trt'} = 'LIST';
|
||
|
|
|
||
|
|
my @printerDrivers;
|
||
|
|
if ($adb)
|
||
|
|
{
|
||
|
|
@printerDrivers = $adb->printers();
|
||
|
|
}
|
||
|
|
|
||
|
|
$c->stash( title => $title, prt_datas => \%prt_datas, printerDrivers => \@printerDrivers );
|
||
|
|
$c->render(template => 'printers');
|
||
|
|
|
||
|
|
};
|
||
|
|
|
||
|
|
|
||
|
|
sub do_display {
|
||
|
|
|
||
|
|
my $c = shift;
|
||
|
|
|
||
|
|
my $rt = $c->current_route;
|
||
|
|
my $trt = ($c->param('trt') || 'LIST');
|
||
|
|
my $printer = $c->param('printer') || '';
|
||
|
|
|
||
|
|
#$trt = 'DEL' if ( $printer );
|
||
|
|
#$trt = 'ADD' if ( $rt eq 'printeradd' );
|
||
|
|
|
||
|
|
my %prt_datas = ();
|
||
|
|
my $title = $c->l('prt_FORM_TITLE');
|
||
|
|
|
||
|
|
$prt_datas{'trt'} = $trt;
|
||
|
|
|
||
|
|
if ( $trt eq 'ADD' ) {
|
||
|
|
|
||
|
|
# nothing
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
if ( $trt eq 'DEL' ) {
|
||
|
|
|
||
|
|
my $rec = $adb->get($printer);
|
||
|
|
if ($rec and $rec->prop('type') eq 'printer') {
|
||
|
|
$prt_datas{printer} = $printer;
|
||
|
|
$prt_datas{description} = $rec->prop('Description') || '';
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
if ( $trt eq 'LIST' ) {
|
||
|
|
my @printerDrivers;
|
||
|
|
if ($adb)
|
||
|
|
{
|
||
|
|
@printerDrivers = $adb->printers();
|
||
|
|
}
|
||
|
|
$c->stash( printerDrivers => \@printerDrivers );
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
$c->stash( title => $title, prt_datas => \%prt_datas );
|
||
|
|
$c->render( template => 'printers' );
|
||
|
|
|
||
|
|
};
|
||
|
|
|
||
|
|
|
||
|
|
sub do_update {
|
||
|
|
|
||
|
|
my $c = shift;
|
||
|
|
$c->app->log->info($c->log_req);
|
||
|
|
|
||
|
|
my $rt = $c->current_route;
|
||
|
|
my $trt = ($c->param('trt') || 'LIST');
|
||
|
|
|
||
|
|
my %prt_datas = ();
|
||
|
|
my $title = $c->l('prt_FORM_TITLE');
|
||
|
|
$prt_datas{'trt'} = $trt;
|
||
|
|
|
||
|
|
my ($res, $result) = '';
|
||
|
|
|
||
|
|
if ( $trt eq 'ADD' ) {
|
||
|
|
|
||
|
|
my $name = ($c->param('Name') || '');
|
||
|
|
my $description = ($c->param('Description') || '');
|
||
|
|
my $location = ($c->param('Location') || '');
|
||
|
|
|
||
|
|
# controls
|
||
|
|
$res = $c->validate_printer( $name, $description, $location );
|
||
|
|
$result .= $res unless $res eq 'OK';
|
||
|
|
|
||
|
|
if ( $location eq 'remote' and ! $result) {
|
||
|
|
$prt_datas{'trt'} = 'NET';
|
||
|
|
$prt_datas{'name'} = $name;
|
||
|
|
$prt_datas{'description'} = $description;
|
||
|
|
$prt_datas{'location'} = $location;
|
||
|
|
$c->stash( title => $title, prt_datas => \%prt_datas );
|
||
|
|
return $c->render( template => 'printers' );
|
||
|
|
}
|
||
|
|
|
||
|
|
$res = '';
|
||
|
|
if ( ! $result ) {
|
||
|
|
$res = $c->new_printer( $name, $description, $location );
|
||
|
|
#$remoteName, $address );
|
||
|
|
$result .= $res unless $res eq 'OK';
|
||
|
|
if ( ! $result ) {
|
||
|
|
$result = $c->l('prt_CREATED_SUCCESSFULLY') . ' ' . $name;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ( $trt eq 'NET' ) {
|
||
|
|
|
||
|
|
my $name = ($c->param('Name') || '');
|
||
|
|
my $description = ($c->param('Description') || '');
|
||
|
|
my $location = ($c->param('Location') || '');
|
||
|
|
my $remoteName = ($c->param ('RemoteName') || '');
|
||
|
|
my $address = ($c->param ('Address') || '');
|
||
|
|
|
||
|
|
$prt_datas{'name'} = $name;
|
||
|
|
$prt_datas{'description'} = $description;
|
||
|
|
$prt_datas{'location'} = $location;
|
||
|
|
|
||
|
|
# controls
|
||
|
|
$res = $c->validate_network( $location, $remoteName, $address);
|
||
|
|
$result .= $res unless $res eq 'OK';
|
||
|
|
|
||
|
|
$res = '';
|
||
|
|
if ( ! $result ) {
|
||
|
|
$res = $c->new_printer( $name, $description, $location, $remoteName, $address );
|
||
|
|
$result .= $res unless $res eq 'OK';
|
||
|
|
if ( ! $result ) {
|
||
|
|
$result = $c->l('prt_CREATED_SUCCESSFULLY') . ' ' . $name;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ( $trt eq 'DEL' ) {
|
||
|
|
|
||
|
|
my $printer = ($c->param ('printer') || '');
|
||
|
|
|
||
|
|
if ($printer =~ /^([a-z][a-z0-9]*)$/) {
|
||
|
|
$printer = $1;
|
||
|
|
} else {
|
||
|
|
$result .= $c->l('prt_ERR_INTERNAL_FAILURE') . ':' . $printer;
|
||
|
|
}
|
||
|
|
|
||
|
|
my $rec = $adb->get($printer);
|
||
|
|
$result .= $c->l('prt_ERR_INTERNAL_FAILURE') . ':' . $printer unless ($rec);
|
||
|
|
|
||
|
|
$res = '';
|
||
|
|
if ( ! $result ) {
|
||
|
|
$res = $c->del_printer( $printer );
|
||
|
|
$result .= $res unless $res eq 'OK';
|
||
|
|
if ( ! $result ) {
|
||
|
|
$result = $c->l('prt_DELETED_SUCCESSFULLY') . ' ' . $printer;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# common parts
|
||
|
|
|
||
|
|
if ($res ne 'OK') {
|
||
|
|
$c->stash( error => $result );
|
||
|
|
$c->stash( title => $title, prt_datas => \%prt_datas );
|
||
|
|
return $c->render('printers');
|
||
|
|
}
|
||
|
|
|
||
|
|
my $message = "'Printers' updates ($trt) DONE";
|
||
|
|
$c->app->log->info($message);
|
||
|
|
$c->flash( success => $result );
|
||
|
|
#$c->flash( error => 'No changes applied !!' ); # for testing purpose
|
||
|
|
|
||
|
|
$c->redirect_to('/printers');
|
||
|
|
|
||
|
|
};
|
||
|
|
|
||
|
|
|
||
|
|
sub del_printer {
|
||
|
|
|
||
|
|
my ( $c, $printer ) = @_;
|
||
|
|
|
||
|
|
# Update the db account (1)
|
||
|
|
my $rec = $adb->get($printer);
|
||
|
|
|
||
|
|
$rec->set_prop('type', 'printer-deleted');
|
||
|
|
system ("/sbin/e-smith/signal-event printer-delete $printer") == 0
|
||
|
|
or return $c->error('ERR_DELETING');
|
||
|
|
|
||
|
|
$rec->delete();
|
||
|
|
|
||
|
|
return 'OK';
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub validate_printer {
|
||
|
|
|
||
|
|
my ($c, $name, $description, $location, $remoteName, $address ) = @_;
|
||
|
|
|
||
|
|
#------------------------------------------------------------
|
||
|
|
# Validate parameters and untaint them
|
||
|
|
#------------------------------------------------------------
|
||
|
|
|
||
|
|
if ($name =~ /^([a-z][a-z0-9]*)$/) {
|
||
|
|
$name = $1;
|
||
|
|
} else {
|
||
|
|
return $c->l('prt_ERR_UNEXPECTED_NAME') . ': ' . $name;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($description =~ /^([\'\w\s]+)$/) {
|
||
|
|
$description = $1;
|
||
|
|
} else {
|
||
|
|
return $c->l('prt_ERR_UNEXPECTED_DESC') . ': ' . $description;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($location =~ /^(lp[0-9]+|remote|usb\/lp[0-9]+)$/){
|
||
|
|
$location = $1;
|
||
|
|
} else {
|
||
|
|
$location = "lp0";
|
||
|
|
}
|
||
|
|
|
||
|
|
#------------------------------------------------------------
|
||
|
|
# Looks good. Find out if this printer has been taken
|
||
|
|
#------------------------------------------------------------
|
||
|
|
|
||
|
|
my $rec = $adb->get($name);
|
||
|
|
my $type;
|
||
|
|
if ($rec and ($type = $rec->prop('type'))) {
|
||
|
|
return $c->l('prt_ERR_EXISTS') . ' : ' . $name;
|
||
|
|
}
|
||
|
|
|
||
|
|
return 'OK';
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub validate_network {
|
||
|
|
|
||
|
|
my ($c, $location, $remoteName, $address ) = @_;
|
||
|
|
|
||
|
|
if ($location eq 'remote') {
|
||
|
|
|
||
|
|
my $msg = hostname_or_ip2 ( $c, $address );
|
||
|
|
return $msg unless $msg eq 'OK';
|
||
|
|
|
||
|
|
if ($address =~ /^([a-zA-Z0-9\.\-]+)$/) {
|
||
|
|
$address = $1;
|
||
|
|
} else {
|
||
|
|
return $c->l('prt_ERR_INVALID_ADDRESS') . ' : ' . $address;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($remoteName =~ /^([^\|]*)$/) {
|
||
|
|
$remoteName = $1;
|
||
|
|
} else {
|
||
|
|
return $c->l('prt_ERR_INVALID_REMOTE_NAME') . ' : ' . $remoteName;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return 'OK';
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub new_printer {
|
||
|
|
|
||
|
|
my ($c, $name, $description, $location, $remoteName, $address ) = @_;
|
||
|
|
|
||
|
|
#------------------------------------------------------------
|
||
|
|
# Printer name is available! Update printers database and
|
||
|
|
# signal the create-printer event.
|
||
|
|
#------------------------------------------------------------
|
||
|
|
|
||
|
|
my $result = '';
|
||
|
|
|
||
|
|
my $rec = $adb->new_record($name,
|
||
|
|
{type=>'printer',
|
||
|
|
Description => $description,
|
||
|
|
Address => $address,
|
||
|
|
RemoteName => $remoteName,
|
||
|
|
Location => $location});
|
||
|
|
|
||
|
|
system ("/sbin/e-smith/signal-event printer-create $name") == 0
|
||
|
|
or return $c->error('ERR_CREATING');
|
||
|
|
|
||
|
|
return 'OK',
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub hostname_or_ip2 {
|
||
|
|
|
||
|
|
my ($fm, $data) = @_;
|
||
|
|
if ($data =~ /^[\d\.]+$/) {
|
||
|
|
if (ip_number2($fm, $data) eq "OK")
|
||
|
|
{
|
||
|
|
return "OK";
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
return $fm->l('prt_MUST_BE_VALID_HOSTNAME_OR_IP');
|
||
|
|
}
|
||
|
|
}
|
||
|
|
elsif ($data =~ /^([a-zA-Z0-9\.\-]+)$/ )
|
||
|
|
{
|
||
|
|
return "OK";
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
return $fm->l('prt_MUST_BE_VALID_HOSTNAME_OR_IP');
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub ip_number2 {
|
||
|
|
# from CGI::FormMagick::Validator::ip_number($fm, $data)
|
||
|
|
|
||
|
|
my ($fm, $data) = @_;
|
||
|
|
|
||
|
|
return undef unless defined $data;
|
||
|
|
|
||
|
|
return 'FM_IP_NUMBER1' unless $data =~ /^[\d.]+$/;
|
||
|
|
|
||
|
|
my @octets = split /\./, $data;
|
||
|
|
my $dots = ($data =~ tr/.//);
|
||
|
|
|
||
|
|
return 'FM_IP_NUMBER2' unless (scalar @octets == 4 and $dots == 3);
|
||
|
|
|
||
|
|
foreach my $octet (@octets) {
|
||
|
|
return $fm->l("FM_IP_NUMBER3", {octet => $octet}) if $octet > 255;
|
||
|
|
}
|
||
|
|
|
||
|
|
return 'OK';
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
=head2 publicAccess_list
|
||
|
|
|
||
|
|
Returns the hash of public access settings for showing in the public
|
||
|
|
access drop down list.
|
||
|
|
|
||
|
|
=cut
|
||
|
|
|
||
|
|
sub printerLocation_list {
|
||
|
|
|
||
|
|
my $c = shift;
|
||
|
|
return [[ $c->l('prt_LOCAL_PRINTER_0') => 'lp0'],
|
||
|
|
[ $c->l('prt_LOCAL_PRINTER_1') => 'lp1'],
|
||
|
|
[ $c->l('prt_LOCAL_PRINTER_2') => 'lp2'],
|
||
|
|
[ $c->l('prt_NET_PRINTER') => 'remote' ],
|
||
|
|
[ $c->l('prt_FIRST_USB_PRINTER') => 'usb/lp0'],
|
||
|
|
[ $c->l('prt_SECOND_USB_PRINTER') => 'usb/lp1']];
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
1
|