My Technical Notes

This perl program is use for monitoring directory, and doing upload if any matched kind of file using pscp.exe. This program is running on Win32 platform #! perl use warnings; #use strict; use feature "switch"; use Win32::OLE qw(in); use File::Copy; my $app_dir = "C:/EXEC_NEW"; my $raw_dir = "C:/RAW_EOS"; my $arch_npoess = "C:/ARCH_NPOESS"; my $arch_fy = "C:/ARCH_FY"; my $dest = "192.168.20.101"; my $dest_dir = "/raid/raw"; my $dest_acc = "ipopp"; my $dest_access = "*****"; my $dest_addr = "ipopp\@192.168.20.101:/raid/raw"; my $uploaded_file = ""; chdir $app_dir or die "Directory not found"; PARENT: while() { #check pscp #check EOSingest sleep(6); if(matching_processes (qr/EOSingest/)) { print "Retreiving RAW file, please wait ...\n"; next; } if (matching_processes (qr/pscp/)) { print "Uploading $uploa...

Directory watcher to monitor uploaded files in a server, and do some data extraction after upload process is complete   #!/usr/sbin/perl -w #use strict; use warnings; use POSIX; use feature "switch"; use File::Copy; my $dir = "/raid/raw"; my $rtstps_dir = "/home/ipopp/drl/rt-stps"; my $processed_file = ""; my $config_file = ""; my $rtstps = 0; my $rtstps_file = ""; print "starting ... \n"; chdir $rtstps_dir or die "Cannot find RTPSPS directory"; #daemonize(); PARENT: while () {     sleep(6);     if (check_rtstps()) {         print "rt-stps is running, please wait ....! \n";         next;     } elsif ($rtstps == 1 && $rtstps_file ne "") {         move("$dir/$rtstps_file","$dir/arch/$rtstps_file");         $rtstps = 0;         $rtstps_file = "";     }   ...

http://jqmdesigner.appspot.com/

    # # Sample anonymous FTP server configuration # # Mandatory directives # listen=YES local_enable=NO anonymous_enable=YES write_enable=NO anon_root=/var/ftp # # Optional directives # anon_max_rate=2048000 xferlog_enable=YES listen_address=192.168.0.100 listen_port=21   Sumber :: http://www.g-loaded.eu/2008/12/02/set-up-an-anonymous-ftp-server-with-vsftpd-in-less-than-a-minute/