Uzun zamandır denemeyi istediğim şeylerden biri de PERL veya PHP kullanarak SOAP arayüzü ile her hafta yaptığımız rutin bir cache operasyonunu otomatik hale getirmekti. Kısaca işlem, önceden hazırlanmış bir cache policy’yi otomatik olarak bir vserver’a bağlamak. (Ingilizcesi çok kolay da, Türkçe anlatması problem )

Netscaler SOAP arayüzüne erişmek için sadece NetScaler WDSL’e ve SOAP arayüzü adresine ihtiyacınız var. SOAP arayüzü adresine http://[netscaler-ip]/soap/ şeklinde istek gönderilebiliyor.

Otomatikleştirme scriptine gelince, aşağıdaki perl scripti işinizi görecektir. Scriptin cron ile çalışmasını ayarlayarak her şeyi otomatik hale getirmiş olursunuz. SOAP bağlantısı için gerekli perl modüllerini http://search.cpan.org adresinden bulabilirsiniz.

#!/usr/bin/perl

# SOAP ile baglanti icin gerekli perl modulleri.
use HTTP::Cookies;
use SOAP::Lite;
import SOAP::Data ‘name’;

# Ayarlar
my $option = shift;
my $NS = “10.10.1.1″;
my $username = “nsoperator”;
my $password = “operator_password”;
my $webhost = “web.example.org”;
my $policy = “WEB-CACHE”;
my $priority = “100″;
my $gotoexp = “END”;
my $type = “RESPONSE”;

my $cookies = HTTP::Cookies->new(ignore_discard => 1, hide_cookie2 => 1);
my $soap = SOAP::Lite -> proxy(“http://$NS/soap”, cookie_jar=>$cookies);
my $result = $soap->login( name(‘username’=>$username), name(‘password’=>$password) ) ->result;

if ($option eq ‘BIND’)
{
$result = $soap->bindlbvserver_policy(name(‘name’ => $webhost) , name(‘policyname’ => $policy) , name(‘priority’ => $priority) , name(‘gotopriorityexpress
ion’ => $gotoexp), name(‘type’ => $type) ) ->result;
$operand = “enabled”;
}
elsif ($option eq “UNBIND”)
{
$result = $soap->unbindlbvserver_policy(name(‘name’ => $webhost) , name(‘policyname’ => $policy) , name(‘type’ => $type) ) ->result;
$operand = “disabled”;
}
else
{
# Cache isleminin tipini secin, bind/unbind ?
print “Usage : nsmon [ BIND | UNBIND ]n”;
exit;
}
$message = $result->{‘message’};

# Policy atama islemi basarili degilse admine mail gonder.
if ($message ne “Done”)
{
print “Hmmm…i sense a disturbance in the force”;
system(“mail -s CACHE_BIND_OPERATION_ERROR admin@example.org < /tmp/error.txt");
}
$result = $soap->logout()->result;

Crontab ‘a eklenecek ayarlama; her perşembe saat 19:00 da cache ayarını aktif et, her perşembe saat 23:00′ da cache ayarını deaktif et.

# WEB-CACHE operation
00 19 * * 4 /usr/bin/perl /usr/local/bin/web_cache_operation.pl BIND
00 23 * * 4 /usr/bin/perl /usr/local/bin/web_cache_operation.pl UNBIND

mysql> select isim,email,dogumgunu from rehber limit 1;
+—————+——————+————+
| isim | email | dogumgunu |
+—————+——————+————+
| İsim CİSİM |isim@cisim.com.tr | 10/02/1977 |
+—————+——————+————+
1 row in set (0.00 sec)

Kutlama scriptimiz de aşağıdaki gibi olmalıdır.

# Otomatik dogum gunu kutlama scripti.
# A. Gurcan OZTURK

# Kutlama scriptimizin ayarlarını yapalım.
my $owner =” A. Gurcan Ozturk”; # Epostada görünecek isim
my $mail_prog = “/usr/sbin/sendmail”; # Sendmail binary
my $from = “gurcan@gurcanozturk.com”; # Eposta adresi
my $subject = “Dogum gununuz kutlu olsun.”; # Eposta konusu

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
$mon=$mon+1;
$len1= length($mon);
$len2= length($mday);

if ($len1 < 2 ) { $mon ="0"."$mon";}
if ($len2 < 2 ) { $mday ="0"."$mday";}

my $gun="$mday/$mon";

use DBI;
use strict;
my $dbh = DBI->connect(‘DBI:mysql:database_ismi:localhost’,'mysql_kullanici_adi’,'mysql_parolasi’,{ RaiseError => 1});
if (!$dbh) { die “Cannot connect to database” }

my $query = “SELECT isim,email FROM rehber WHERE dogumgunu=’$gun%’”;

my $sth = $dbh->prepare($query);
if (!$sth) { die “Illegal query: $query” };
$sth ->execute;
while (my @row = $sth->fetchrow_array) {

if ($row[1] ne “”)
{
open (MAIL, “|$mail_prog -t”);
print MAIL “From: $owner <$from>n”;
print MAIL “To: $row[0] <$row[1]>n”;
print MAIL “Cc: $owner <$from>n”;
print MAIL “Subject: $subjectn”;
print MAIL “nn”;
print MAIL ” Merhaba $row[0] ,n “;
print MAIL “Dogum gunun kutlu olsun,iyi ki dogmussun.n”;
print MAIL ” Daha nice saglikli ve mutlu yillar dileklerimle… nn$ownern”;
print MAIL ” http://www.gurcanozturk.comnn” ;
close(MAIL);
}
}
$sth->finish;

Scriptimiz hazır, birkaç test yaptıktan sonra scripti cron yardımıyla her gün bir kez çalıştırarak, o gün doğmuş arkadaşlarınızı otomatik olarak kutlayabilir, unutulmadıklarını gösterebilirsiniz. Cron sistemine aşağıdaki gibi bir satır ekleyin.

00 01 * * * /home/gurcanozturk/kutlama.pl

Not: Yılbaşında kutlama mesajını değiştirmeyi unutmayın

arcadian@arcadia:~# perl whisper_1_2.pl -d &

yazmanız yeterli. Herşey beklendiği gibi çalışırsa programı çalıştırdığınız konsolda aşağıdaki gibi bir bilgi göreceksiniz.

Searching for mp3′s, one moment…
121 mp3′s in list.
Listening on port 2020…

Artık Winamp programınızı açıp Play Location/URL seçeneğini seçip adres kısmına http://sunucu.adresiniz:2020 yazdığınızda mp3 dosyalarınızı ağınızdaki diğer bilgisayarlardan dinleyebilirsiniz. İyi eğlenceler.