Массовая перекодировка

#!/usr/bin/perl

# Получаем аргументы
my $dir = $ARGV[0];
my $code = $ARGV[1];

if (length($code) < 2) { print "Введите кодировку после директории! Например:\nchange_coder.pl /etc/ utf-8\n"; exit; } # Получаем список файлов my @files = `find $dir`; # Удаляем лишние переходы на нову строку chomp @files; # интуитивно понятно... my $count = @files; my $a = 0; while ($a < $count){ # Парсим # Удаляем лишнее из строки $b = `file -i $files[$a] | awk '{ gsub(".+(charset=|binary)",""); print }'`; chomp $b; # удаляем, из строки нашу кодировку если наша кодировка $b =~ s/$code//; # если наша кодировкане найдена в строке if (length($b) > 1){
# перекодируем в темп
print "iconv -f $b -t $code $files[$a] -o /tmp/chk.tmp\n";
`iconv -f $b -t $code $files[$a] -o /tmp/chk.tmp`;

# переносим файл обратно с заменой ну и удаляем BOM если он там есть
print "mv /tmp/chk.tmp $files[$a]\n\n && sed -i '1 s/^\xef\xbb\xbf//' $files[$a]";
`mv /tmp/chk.tmp $files[$a] && sed -i '1 s/^\xef\xbb\xbf//' $files[$a]`;
}
$a++;
}

CUPS+SAMBA PRINTER

CUPS
http://localhost:631/admin/?ADVANCEDSETTINGS=YES
галки показать принеры
Протоколы: CUPS LDAP SLP
Разрешить совместный доступ к принтерам, подключенным к этой системе
Протоколы: CUPS

далее редактируем конфигурационный файл:
надо только изменить секцию:

# Allow shared printing...
Order allow,deny
Allow @LOCAL
AuthType None


Вот весь:

LogLevel warn
MaxLogSize 1m
SystemGroup lpadmin
# Allow remote access
Port 631
Listen /var/run/cups/cups.sock
# Enable printer sharing and shared printers.
Browsing On
BrowseOrder allow,deny
BrowseAllow all
BrowseRemoteProtocols cups ldap slp
BrowseAddress @LOCAL
BrowseLocalProtocols CUPS dnssd
DefaultAuthType Basic

# Allow shared printing...
Order allow,deny
Allow @LOCAL
AuthType None


# Restrict access to the admin pages...
Order allow,deny


AuthType Default
Require user @SYSTEM
# Restrict access to the configuration files...
Order allow,deny



Require user @OWNER @SYSTEM
Order deny,allow


AuthType Default
Require user @SYSTEM
Order deny,allow


AuthType Default
Require user @SYSTEM
Order deny,allow


Require user @OWNER @SYSTEM
Order deny,allow


Order deny,allow




AuthType Default
Order deny,allow


AuthType Default
Require user @OWNER @SYSTEM
Order deny,allow


AuthType Default
Require user @SYSTEM
Order deny,allow


AuthType Default
Require user @SYSTEM
Order deny,allow


AuthType Default
Require user @OWNER @SYSTEM
Order deny,allow


Order deny,allow



Samba:

[global]
workgroup = OSAR
server string = HELLO =)
security = SHARE
obey pam restrictions = Yes
log file = /var/log/samba/log.%m
dns proxy = No
panic action = /usr/share/samba/panic-action %d
create mask = 0644

[printers]
comment = All Printers
path = /var/spool/samba
browseable = no
printable = yes

[print$]
comment = Printer Drivers
browseable = yes
read only = yes

[archive_disk]
path = /my_files/share/archive_disk

[crashed_linux_home]
path = /my_files/share/crashed_linux_home

[distributives]
path = /my_files/share/distributives

[docs]
path = /my_files/share/docs

[upload]
path = /my_files/share/upload
read only = No