Langkah Mudah Membangun E-Mail Server Mandrake 10+Postfix

Membangun mail server postfix dengan Mandrake 10 sangat mudah sekali, berikut langkah-langkahnya:
langkah-langkah yang saya jelaskan ini adalah membuat mail server di belakang ruter, untuk setting ruternya silakan baca buku manual ruternya untuk mengaktifkan Virtual server (portforwarding), beberapa port yang harus dibuka adalah : Port 53 (DNS), 80 (http), 25 (SMTP), 110(POP),

Syarat : Punya domain yang halal (valid) di internet, Punya IP PUBLIK, Buat domain di DynDns (dynamik DNS). untuk contoh saya punya domain: xyz.web.id yang diregistrasikan di PANDI, kemudian saya daftar di DynDNS dengan domain: xyz.dnsalias.net

1. Install linux mandrake, xwindows yang dipakai pake KDE saja (saya tidak terbiasa pakai Gnome), instal juga apache, mysql dsb
2. setelah terinstall dengan baik, Klik start-system-configuration-configure your computer, masukkan password root anda
3. Pilih Software Management – Install, pada Kotak SEARCH ketik drakwizard,
4. Install software drakwizard tersebut (drakwizard salah satu tool untuk mempermudah setting server DNS server, Postfix, Samba,Apache dll
5. Kemudian install BIND (server dns) seperti langkah No 3
6. Install Postfix seperti langkah No 3
7. Install IMAP seperti langkah No 3
8. Install Squirrelmail (untuk web mail) seperti langkah 3
9. Konfigurasikan DNS server anda :klik start-system-configuration-configure your computer-server wizard-DNS, setelah diklik DNS akan ditanyakan External domain isikan dengan IP addres DNS ISP anda, masukkan nama domain anda misalnya xyz.web.id, anda akan melihat laporan konfigurasi. selesai setting DNS
10. Untuk setting DNS selanjutnya masuk direktori /var/named/zone (saya menggunakan program MC seperti NC di DOS), edit file xyz.web.id.rev tambahkan cname domain anda sbb: www.xyz.web.id. IN CNAME xyz.dnsalias.net. tambahkan juga rute email anda di bawahnya : xyz.web.id. IN MX 20 xyz.dnsalias.net. (perhatikan titik harus ada dibelakan domain. dimain xyz.dnsalias.net adalah yang kita daftarkan di DynDNS)
11. restart DNS server anda yaitu masuk menu : klik start-system-configuration-configure your computer-system-service, cari named kemudian klik start, cari IMAP kemudian centang start in requested, demikian juga untuk POP3S
12. Coba ping ke www.xyz.web.id, jika semuanya berjalan dengan baik maka akan replay.
13. Coba masuk ke Browser anda ketik : http://www.xyz.web.id seharusnya semuanya sudah ok.
14. Konfigurasikan Postfix server anda :klik start-system-configuration-configure your computer-server wizard-mail, pilih internal server. selesai.
15. edit main.cf di /etc/postfix cari inet_interfaces= xxx, ganti xxx menjadi all, cari juga mydestination=xxxxxx, xxxxx , xyz.web.id, xxxxxx adalah konfigurasi standar biarkan saja, xyz.web.id ditambahkan dibelakangnya. 
16. restart postfix anda seperti langkah 11, pilih postfix klik start.
17. Seharusanya sekarang anda sudah bisa menerima dan mengirim email ke luar.
18. Selamat server anda sekarang sudah jadi.
19. coba ketik di browser anda : http://www.xyz.web.id/squirrelmail/ seharusnya sudah berjalan sempurna.

Bell Otomatis untuk sekolah dg Visual Basic

Ide dasar program ini adalah :
Menjalankan file suara (.wav) pada waktu tertentu (timer), suara di mainkan bila telah mencapai waktu tertentu. Program harus bersifat fleksibel terhadap perobahan waktu yang diinginkan. Misalnya saja pada hari tertentu mungkin saja rentang waktu untuk 1 jam pelajaran berbeda dengan hari lain.

Option Explicit
Option Base 1
Private Declare Function PlaySound Lib “winmm.dll” Alias “PlaySoundA” _
(ByVal lpszName As String, ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
Private Declare Function waveOutGetNumDevs Lib “winmm.dll” () As Long
Public WavePlay As Boolean
Dim Detik As Long
Dim aTandaBell(20) As String
Dim aTandaBunyi(20) As String
Dim aTandaNada(20) As Integer
Dim I As Integer
Dim SedangBunyi As Boolean
Public Function CanPlayWaves() As Boolean
CanPlayWaves = waveOutGetNumDevs()
End Function
Public Function PlayWaveFile(FileName As String, Optional Async As Boolean) As Boolean
Dim Flags As Long
Const SND_SYNC = &H0 ‘ Play synchronously
Const SND_ASYNC = &H1 ‘ Play asynchronously
Const SND_NODEFAULT = &H2 ‘ No default sound event is used
Const SND_FILENAME = &H20000 ‘ Name is a file name
Flags = SND_NODEFAULT Or SND_FILENAME Or SND_SYNC
If Async Then Flags = Flags Or SND_ASYNC
PlayWaveFile = PlaySound(FileName, 0&, Flags)
End Function
Public Function StopPlayingWave() As Boolean
Const SND_PURGE = &H40
PlaySound vbNullString, 0&, SND_PURGE
End Function
Private Sub Command1_Click()
‘Initialize boolean variable WavePlay
WavePlay = CanPlayWaves
If WavePlay Then ‘If Boolean is true (system can play sound)
PlayWaveFile App.Path + “\trumpet1.wav”, True
End If
End Sub

Private Sub Form_Load()
Dim nFree As Integer

nFree = FreeFile
Detik = 0
SedangBunyi = False
End Sub

Private Sub Timer1_Timer()
Dim TandaBell As String
Dim TandaBunyi As String
Dim tandaNada As Integer
Detik = Detik + 1
Dim N As Integer
Dim jam As String
Dim menit As String
Dim JamMenit As String
Dim dtk As String
Dim HariIni As String
Dim nFree As String
Dim nomor As Integer
Label1.Caption = Time
HariIni = NamaHari()
Label2.Caption = HariIni
Dim NmFile As String
nFree = 1
NmFile = HariIni + “.cfg”
If Dir(App.Path + “\” + NmFile) <> “” Then
Open App.Path + “\” + NmFile For Input As #nFree
I = 0
While Not EOF(nFree)
I = I + 1
Input #nFree, nomor, TandaBell, TandaBunyi, tandaNada
aTandaBell(I) = TandaBell
aTandaBunyi(I) = TandaBunyi
aTandaNada(I) = tandaNada
Wend
Close #1
End If

jam = Hour(Time)
menit = Minute(Time)
dtk = Second(Time)
JamMenit = jam + “.” + menit + “.” + dtk
Label3.Caption = JamMenit
For N = 1 To I
If (aTandaBell(N) = JamMenit) And (UCase(aTandaBunyi(N)) = “ON”) Then
WavePlay = CanPlayWaves
If WavePlay Then ‘If Boolean is true (system can play sound)
If aTandaNada(N) = 1 Then
PlayWaveFile App.Path + “\trumpet1.wav”, True
Else
PlayWaveFile App.Path + “\trumpet2.wav”, True
End If
End If
End If
Next N
End Sub

Private Function NamaHari()
Dim BilHari As Integer
BilHari = Weekday(Date)
Select Case BilHari
Case 1
NamaHari = “MINGGU”
Case 2
NamaHari = “SENIN”
Case 3
NamaHari = “SELASA”
Case 4
NamaHari = “RABU”
Case 5
NamaHari = “KAMIS”
Case 6
NamaHari = “JUMAT”
Case 7
NamaHari = “SABTU”
End Select
End Function