bill вер. 4.5 сборка 126 от 17.10.2008 11:05:36
   dialup вер. 4.5 сборка 88 от 14.10.2008 17:27:19
   email вер. 4.5 сборка 89 от 14.10.2008 17:27:19
   ipn вер. 4.5 сборка 108 от 14.10.2008 17:27:20
   mps вер. 4.5 сборка 83 от 12.12.2008 13:11:20
   npay вер. 4.5 сборка 88 от 14.10.2008 17:27:30
   reports вер. 4.5 сборка 88 от 14.10.2008 17:27:30
   rscm вер. 4.5 сборка 88 от 21.10.2008 13:50:43
   ru.bitel.bgbilling.plugins.cashcheck вер. 4.5 сборка 15 от 09.12.2008 13:06:23
   ru.bitel.bgbilling.plugins.cladr вер. 4.5 сборка 50 от 09.12.2008 13:06:55
   ru.bitel.bgbilling.plugins.crm вер. 4.5 сборка 106 от 15.10.2008 16:03:45
   ru.bitel.bgbilling.plugins.documents вер. 4.5 сборка 51 от 21.10.2008 13:51:45
   ru.bitel.bgbilling.plugins.helpdesk вер. 4.5 сборка 77 от 17.10.2008 15:07:29
   trayinfo вер. 4.5 сборка 78 от 14.10.2008 17:27:31
   wm вер. 4.5 сборка 78 от 09.12.2008 13:06:50

HTTP Status 404 - /
--------------------------------------------------------------------------------
type Status report
message /
description The requested resource (/) is not available.
--------------------------------------------------------------------------------
Apache Tomcat/6.0.18

#!/usr/bin/perl -W
# linux версия

use strict;
use Getopt::Std;

my %opts;
getopts("d:",\%opts);

sub main {
        usage() unless $opts{d};
        if (-d $opts{d}) {
                copy_xsl();
        } else {
                print "[!] Указанная директория не найдена: $opts{d}\n";
                exit;
        }
}

sub usage {
        print qq~
Скрипт для копирования шаблонов биллинга BG перед обновлением
Использование: $0 -d [полный путь до директории с шаблонами]

~;
exit;
}

sub copy_xsl {
        use File::Copy;

        my $err = 1;
        my $rewrite = 0;
        my $some_dir=$opts{d};
        opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
        my @mfiles =  grep(/.+xsl$/,readdir(DIR));
        closedir DIR;

        my $n = @mfiles;

                if($n < 1) {
                        print "[!] Файлов для копирования не найдено\n";
                        exit;
                }

        print "[+] Найдено $n файлов для копирования\n";
                for(@mfiles){
                        my $full_old = "$some_dir" . "/$_";
                        my $full_new = "$some_dir" . "/$_" . ".orig";

        if($rewrite != 1){

                if(-e $full_new) {
                        print "[~] Существует файл с именем '$full_new', желаете переписать его? (a - переписать все такие файлы, y - переписать только этот файл, n - не переписывать, q - выйти из скрипта)\n[~] ";
                        while(<>) {
                                        if(/^q$/) {
                                                print "[-] Выход без копирования\n";
                                                exit;
                                        } elsif(/^a$/) {
                                                $rewrite = 1;
                                                last;

                                        } elsif(/^y$/) {
                                                print "[+] Файл с именем $full_new перезаписывается..\n";
                                                last;
                                        } elsif(/^n$/) {
                                                print "[-] Файл с именем $full_new СОХРАНЕН, без перезаписи\n";
                                                $rewrite = 2;
                                                last;
                                        } else {
                                                print "[!] Ответьте однозначно\n[~] ";
                                        }
                        }

                }
        }
                        if($rewrite != 2) {
                        my $ret = copy("$full_old","$full_new");
                                        if($ret != 1){
                                                $err = 2;
                                                print "[!] Ошибка при копировании файла $full_old\n";
                                        }
                        }
                }

                print "[+] Работа завершена\n" if($err == 1);


}

main;

#!/bin/sh

base_dir='/path/to/bgb/server/dir'

app_list='data_loader scheduler server'

for i in $app_list; do
    ./$i"_stop.sh" stop
done

./bg_installer.sh update

cp -v -R $base_dir/update_backup/ $base_dir

for i in $app_list; do
    ./$i"_start.sh" start
done

update_backup /
                data /
                        log4j_dataloader.properties
                        log4j_scheduler.properties
                        log4j_server.properties
update_backup / webroot /
                          help /
                                 cookies.html
                                 javascript.html
                          xsl /
                                 common.xsl
                                 dialup.xsl
                                 error.xsl
                                 layout.xsl
                                 login.xsl
                                 main.xsl