Tag Archives: perl

long time no see blog…

Posted on by
Reply

29 days since the last time I something wrote here. It has been kinda busy for me these past weeks and there had been a lot of changes in my personal and professional life (i admit that this could be something historical for me). As much as I would like to write it down here, there are some areas of my life which are not supposed to be (and admittedly, I refuse to be) publicized. My close friends know, and as far as we are concerned, that is more than enough.

It came to my mind that my career in programming (after more than 10 years of doing this) has left my knowledge in programming obsolete pertaining to the present and upcoming trends, especially when it comes to the WEB!. Still my mind and body (simply because I often feel sleepy doing my boring job) rejects this proposal to accept that I should transfer to Web development and leave my desktop programming to history. Even though we know that desktop programs are not “in”, still, I consider expanding my knowledge outside windows development and pursue some other “offline” programs. Here’s a list of what I like:

1. Pursue developing Windows application through the Windows Presentation Foundation. Windows Forms is not an option anymore!

2. Expand my knowledge in the .NET framework 3.5 and later. I still am fighting for LINQ !

3. Go back to studying Computer Science 101 class (Software Engineering). For these years I admit to not knowing the  SDLC (Software Development and Life Cycle) and the Waterfall model.

4. Learn more about Shell Scripts and PERL!!!!! I desperately want to learn these languages.

5. Keep up administering and maintaining my Server for the rest of my life (Uptime of 55 days 05:21 hours at this point).

6. Go back making College Thesis Projects (unethical isn’t it?).

7. Learn developing Mobile Apps and hardware embedded applications. I miss my C days!

8. Force to learn some Web languages specially PHP and ASP.Net but not to the point of loving them!

9. Force to learn back again Database lang specially SQL (I HATE THIS!).

10.  CONTINUE ON PURSUING MY DREAM EVEN IF THIS WILL CAUSE ME MY JOB!

Practical Extraction and Report Language/Common Gateway Interface

Posted on by
Reply

Simply known as PERL and CGI respectively. I decided to change my priorities in studying “Web based apps” from ASPX to Perl and CGI scripting because of the flexibility, powerfulness of this language. Also what is good about it is that I can work in different O.S platforms and I can work also both in Web, Client based or a mixture of them. My first Perl script is a couple of months ago when I made a automatic restart/redial of my DSL modem (which I revised when I changed my ISP and its modem).

#DSL Modem Script
 
#used to reboot Huawei and Prolink modems
 
#(C)opyright 2007 by Michael Angelo Yap. All Rights Reserved.
 
#!/usr/bin/perl -w
use strict;
use Net::Telnet;
use Time::Local;
 
my ($host, $port, $user, $pass, $command);
 
$host = '192.168.1.1';
$port='xxxx'; #replaced for security reasons, duhh!
$user='yyyy'; #replaced for security reasons, duhh!
$pass='zzzz'; #replaced for security reasons, duhh!
 
my ($sec,$min,$hour,$mday,$mon,$year,
$wday,$yday,$isdst) = localtime time;
 
my($vart)="$hour:$min";
 
if($vart eq "HH:MM") #replaced for security reasons, duhh!
{
my $tn = new Net::Telnet(Host => $host, Port => $port,Timeout => 10)
or die "connect failed: $!";
 
$tn->open ($host);
$tn->waitfor('/login: $/i');
$tn->print($user);
$tn->waitfor('/password: $/i');
$tn->print($pass);
 
$tn->waitfor('/\$$/i');
$tn->print('reboot');
$tn->print('exit');
}

super basic, but so very important to me!

Another server load

Posted on by
Reply

I finished installing and configuring ffmpeg, mplayer and ffmpeg-php after 2 days of massive research and trial-errors.

other improvements in the server:

- I wrote my first PERL script about interfacing my DSL modem (tru telnet, sorry hackers, I secured my firewall so that the port will not leak outside my network .hahaha) ability to disconnect my dsl modem connection at certain time(time is secret).

-checked and clean unnecessary configurations, files, bootup scripts and caches to speedup the server by 0.0000000000001%. :)

-perform my ritual full hardrive backup after adding two more hosted websites.