Lms+ dodatki +mysql

[ola23]

Witam

Stworzyłam sobie parę dodatków do LMS, ale utknęłam na pliku lms-mgc który jest pewnie napisany w perlu. Opiszę to dokładniej plik
lms-mgc
http://kaju007.twojhost.pl/lms-mgc.txt


config z którego korzysta plik lms-mgc

lms-mgc.ini

; $Id: lms-mgc.ini,v 1.11 2004/02/15 02:43:25 lukasz Exp $
;
; Plik konfiguracyjny LMS-MGC - czyli magicznego generatora configów

; ---------------------------------------------------------------------------
; Ustawienia bazy danych
; ---------------------------------------------------------------------------

[database]

; Typ bazy danych. Aktualnie w 100% supportowany jest 'mysql', ale jak
; narazie nie widać większych problemów z 'postgres'. 
; Domy¶lnie: mysql

 type			= mysql

; Host gdzie zainstalowana jest baza danych. Najczę¶ciej, localhost, ale
; można tutaj wstawić cokolwiek (ipek, domena, path to socketa w formacie
; 'localhost:/path/to/socket').
; Domy¶lnie: localhost

 host			= localhost

; Użytkownik do bazy danych. W wielu wypadkach (jeżeli postępowałe¶ zgodnie
; ze wskazówkami w doc/INSTALL) będzie to 'lms'. Jeżeli chcesz używać
; konta uprzywilejowanego, prawdopodobnie wpiszesz 'root' (MySQL na
; większo¶ci *nixów), 'mysql' (na PLD) b±dĽ 'postgres' (PostgreSQL).
; Domy¶lnie: root

 user			= lms

; Hasło do bazy danych. Domy¶lnie puste.
;
 password		= XXXX
; Nazwa bazy danych, domy¶lnie lms.
;
 database		= lms

; ---------------------------------------------------------------------------
; Wła¶ciwa konfiguracja mgc. Przykładowy config z istniej±cej sieci możecie
; znaleĽć w pliku lms-mgc-netx.ini
; ---------------------------------------------------------------------------

[mgc]


[mgc]

instances = rc.port

[mgc:rc.port]

outfile = /etc/rc.d/rc.port
;outfile = /etc/rc.d/rc.port

outfile_perm = 600

header = ###########

port = %ADRESIP-%PORT

Do pliku lms-mgc tego na początku dodaję nową instancję

my $port = $ini->val("mgc:$instanceno",'port') || '';

Później po środku dodaję wpis

	    if($port)
	{
		
		$dbq = $dbase->prepare("SELECT adresIP, port FROM lms_nowa.port");
		$dbq->execute();
		 my $row = $dbq->fetchrow_hashref();
		 my $ser = $port;	
				        		
		 $ser =~ s/\%ADRESIP/$row->{'adresIP'}/g;
                 $ser =~ s/\%PORT/$row->{'port'}/g;
                        
		$ser =~ s/\\n/\n/g;
		$ser =~ s/\\t/\t/g;

		print OUTFILE $ser."\n";
}		    
		$dbq->finish();

Po dodaniu tego wpisu i uruchomienie pliku lms-mgc zostanie wygenerowany plik rc.port ale tylko z jednym wpisem z bazy danych a jej ich teraz 11 a pewnie będzie więcej.

Jak poprawnie powinien wyglądać wpis żeby wygenerował wszystkie rekordy z danej tabeli?

Proszę o pomoc

[TQM]

lms-mgc bynajmniej nie wyglada na skrypt perla :P
dawno tego nie uzywalem ale z tego co pamietam to mgc przechowuje konfigi mgc, ktorych uzywaja skrypty (odpalane przez mgc) do generowania.

Pytanie o MGC to na forum LMSa raczej... ale jesli idzie o kod w perlu to sprawa prosta - doczytanie dokumentacji (a dokladnie mowiac przykladow) by pomoglo :-)

To co dodalem jest pogrubione:

$dbq = $dbase->prepare("SELECT adresIP, port FROM lms_nowa.port");
$dbq->execute();
while (my $row = $dbq->fetchrow_hashref()) {
  my $ser = $port;		
  $ser =~ s/\%ADRESIP/$row->{'adresIP'}/g;
  $ser =~ s/\%PORT/$row->{'port'}/g;                  
  $ser =~ s/\\n/\n/g;
  $ser =~ s/\\t/\t/g;
  print OUTFILE $ser."\n";
}
$dbq->finish;

BTW - jaki ma sens zapis my $ser = $port; ?!?

[ola23]

cały plik lms-mgc jest podany w linku na samej górze. Sprawdzę za godzinę czy to działa

[ola23]

Hej Działa !!!! Tylko że generuje wszystkie wpisy 2x tz. np rekord 1,2,3,4,1,2,3,4
tak jak by robił 2 pętle

lms-mgc bynajmniej nie wyglada na skrypt perla :P
dawno tego nie uzywalem ale z tego co pamietam to mgc przechowuje konfigi mgc, ktorych uzywaja skrypty (odpalane przez mgc) do generowania.

Pytanie o MGC to na forum LMSa raczej... ale jesli idzie o kod w perlu to sprawa prosta - doczytanie dokumentacji (a dokladnie mowiac przykladow) by pomoglo :-)

To co dodalem jest pogrubione:

$dbq = $dbase->prepare("SELECT adresIP, port FROM lms_nowa.port");
$dbq->execute();
while (my $row = $dbq->fetchrow_hashref()) {
  my $ser = $port;		
  $ser =~ s/\%ADRESIP/$row->{'adresIP'}/g;
  $ser =~ s/\%PORT/$row->{'port'}/g;                  
  $ser =~ s/\\n/\n/g;
  $ser =~ s/\\t/\t/g;
  print OUTFILE $ser."\n";
}
$dbq->finish;

BTW - jaki ma sens zapis my $ser = $port; ?!?

[TQM]

Sprawdz czy przypadkiem 2x nie odpalasz skryptu :P

[ola23]

nie na pewno tylko raz

może sam plik lms-mgc ma coś w sobie że robi pętle 2 razy

To może inaczej to da się zrobić może jakiś nowy plik w którym będzie ten wpis do bazy i od razu jak żeby tworzył plik z odpowiednimi wpisami

[TQM]

Po pierwsze nie pisze sie 3 postow jeden za drugim tylko wrzuca edycje i dopisuje dalej do poprzedniego.

Po drugie, nie uzywam LMS, odpowiedz na temat mgc znajdziesz w dokumentacji albo na forum LMS.

Po trzecie - jesli sadzisz ze skrypt cos zle robi to dosc prosta sprawa - pokaz caly a nie tylko wycinek - wrozki dawno wyjechaly do cieplych krajow

[ola23]

Hej spokojnie nic innego w skryptach lms nie dodawałam, co do forum lms to sorry tam tylko można się dowiedzieć o ustawieniach i konfiguracji.

Zamieściła bym plik lms-mgc ale jest za długi i mam komunikat
" 1. Tekst, który próbujesz zamieścić jest za długi (24529 znaków). Proszę zredukuj jego długość do 10000 znaków."

Dla tego jest on zamieszczony w 1 poście jako link

[TQM]

ja absolutnie sie nie denerwuje i teraz chyba wiem o co chodzi :-)

Czy ja dobrze rozumiem, ze chcesz zmodyfikowac skrypt lms-mgc ktory przyszedl z LMS'em i chcesz zrobic to po to, aby wygenerowac plik konfiguracyjny ktory np odpali port forwarding?
Jesli tak to nie tedy droga - o ile pamietam nie ma potrzeby modyfikacji lms-mgc i ruszania Perla w ogole, calosc robi sie z poziomu lms-mgc.ini czy jak on sie tam zwie Bede za pare dni u znajomego to podpytam - on kiedys sie tym bawil.

[ola23]

Po części o to mi chodzi ale ja nie używam firewalla i innych skryptów z lms mam swoje pliki do podziału firewalla. I Stworzyłam dodatkową bazę w mysql bo tego w lms nie ma jak porty, włączone jakieś usługi na serwerze po prostu ułatwiam sobie robotę.

A chodzi mi o to tak jak wyżej w postach bo na podstawie tego jednego zrobię resztę.

Chcę żeby lms wygenerował mi pliki w których będą odpowiednie dane z bazy mysql a ja potem skryptem pociągnę te dane do firewalla.

Twój pomysł działa i pewnie nie będzie problemów jak firewall wypisze 2 razy tą samą regułkę iptables jeszcze nie sprawdzałam tego. Ale ja nie posiadam takiej wiedzy na temat perla jak TY.


A może faktycznie lepiej będzie zrobić osobny plik pomijając skrypt lms-mgc który po wywołaniu utworzy mi takie pliki?