CIT is down considerably during pre-market around 45% at the time of writing, I decided to try my luck, in @ 1.30 and out @ 1.35 its like playing with fire though. I wonder how far down it will go once the market opens, I may buy up if it dips to $1.10 again, lets see what the news says. From what I understand they are in talks for a $10 bln loan. Level 2 quotes are showing alot of resistance at $1.25 and $1.35.
Archive for September, 2009
cPanel VPS DNS problem
Well, another minor set back when setting up my VPS today, every time I tried to assign an ip address it would just sit there indefinitely, however if any of you need a fix, after a bit of google searching I stumbled upon this:
WHM -> Server Configuration -> Tweak Settings and checking Disable whois lookups for the nameserver IP manager
My server is running: cPanel 11.24.5-R38506 – WHM 11.24.2 – X 3.9, CENTOS 5.3 i686 virtuozzo.
CIT day trades
Well, another successful 2 trades today, CIT in @ 1.96 and out at 2.10 on the IRA, and again in at 2.07 and out at 2.16 on the cash account. I think I’m going to call it a day today.
CBAI another HTDS?
Well, I haven’t updated my positions in ages, but today I decided to play around a bit on the market early on, many of you probably saw CBAI if you are on google finance. Anyways I have no idea where it will go, but i was in at 0.0070 and out at 0.0077. The volume is still strong, and while I think it may push over 0.0085, I’m not willing to risk it with this stock. I may be wrong and it would plummet tomorrow, lets see. I’ll start updating my positions as I get more free time this week!
WinRAR on CentOS with cPanel
I’ve seen alot of people get stumped by an error that looks like this, rar: /lib/libc.so.6: version `GLIBC_2.7′ not found (required by rar) even I did for a while, after numerous google searches I found nothing, however today I finally ran into the site that saved me!
Basically
rm -rf /usr/bin/rar
ln -s /usr/local/rar/rar_static /usr/bin/rar
For me the location varied a little because I extracted everything in a different spot!
Relocation Kuwait City
Well for those of you that have no idea, I have moved (temporarily?) to Kuwait city. I should be updating my blog regularly again. My portfolio will begin to get updated again, not much has gone on. The only bad news for me this week is the airline lost my bag & its been about a week, so I put in my claim, I’ll see how good they are to me. I have receipts to show how much everything in the bag is worth. Wish me luck
FSLR First Solar, Inc.
First Solar, shares were up around 10% today, I closed my position with a modest gain, for those of you that didn’t see in the news;
First Solar, Inc. announced a memorandum of understanding (MOU) with the Chinese government to build a 2 gigawatt solar power plant in Ordos City, Inner Mongolia, China. Pursuant to the MOU, signed in the presence of Chairman Wu Bangguo of the Standing Committee of the National People’s Congress of China, the solar project in Ordos will be built over a multi-year period. Phase 1 will be a 30 megawatt demonstration project that will begin construction by June 1, 2010 and be completed as soon thereafter as practicable. Phases 2, 3 and 4 will be 100 megawatts, 870 megawatts, and 1,000 megawatts. Phases 2 and 3 will be completed in 2014 and Phase 4 will be completed by 2019. The project will operate under a feed-in-tariff which will guarantee the pricing of electricity produced by the power plant over a long-term period.
http://www.reuters.com/article/rbssEnergyNews/idUST5132220090907
I will update my positions here in the next 24 hours. My homework load has soared and eaten up most of my time, but I will be updating the site here soon.
Silkroad Online
Well, other than school, perl, linux + vmware, and going out I need a new hobby to eat up some of my downtime without spending tons of money
, I decided I’ll start playing Silkroad Online again! Previously, when the cap was level 80, I had an 80 Full STR blader. Lets see how far I can get this time, word has it I will need 750,000 – 1,000,000 SP (Skill Points). In order to do alright, and more with the cap being raised to 110 by summer of next year at the latest.
If any of you wish to join me, I can be found on server Gaia. I haven’t picked a character name I like yet, however I will update the post once I do. Chances are I will make a Chinese character, instead of European.
Second Perl Experiment
After a bit of reading online and book reading (Learning Perl 2nd Edition), I came up with this;
#!/usr/bin/perl
# Revision 1 - 09-03-09 1530
# Countr Code list, stdin, perl
# SRC for codes: http://www.kropla.com/dialcode.htm
use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1; #reset colors after each line
print GREEN "Please enter the country code you are trying to look up.\n";
$cc = <STDIN>;
chomp $cc;
if ($cc eq "1") {
print GREEN "United States of America or Canada.\n";
}
elsif ($cc eq "93") {
print RED "Afghanistan.\n"; }
elsif ($cc eq "355") {
print RED "Albania.\n"; }
elsif ($cc eq "213") {
print RED "Algeria.\n"; }
elsif ($cc eq "1684") {
print RED "American Samoa.\n"; }
elsif ($cc eq "376") {
print RED "Andorra.\n"; }
elsif ($cc eq "244") {
print RED "Angola.\n"; }
elsif ($cc eq "1268") {
print RED "Antigua.\n"; }
elsif ($cc eq "54") {
print RED "Argentina.\n"; }
elsif ($cc eq "374") {
print RED "Armenia.\n"; }
elsif ($cc eq "297") {
print RED "Aruba.\n"; }
elsif ($cc eq "247") {
print RED "Ascension.\n"; }
elsif ($cc eq "61") {
print RED "Australia.\n"; }
elsif ($cc eq "672") {
print RED "Australian Extrernal Territories.\n"; }
elsif ($cc eq "43") {
print RED "Austra.\n"; }
elsif ($cc eq "994") {
print RED "Azerbaijan.\n"; }
elsif ($cc eq "1242") {
print RED "Bahamas.\n"; }
elsif ($cc eq "973") {
print RED "Bahrain.\n"; }
elsif ($cc eq "880") {
print RED "Bangladesh.\n"; }
elsif ($cc eq "1246") {
print RED "Barbados.\n"; }
elsif ($cc eq "1268") {
print RED "Barbuda.\n"; }
elsif ($cc eq "375") {
print RED "Belarus.\n"; }
elsif ($cc eq "32") {
print RED "Belgium.\n"; }
elsif ($cc eq "501") {
print RED "Belize.\n"; }
Some of you may find this to be pretty elementary, but lets see what I can come up with in the next day or two. Essentially all this does is looks for a country that matches the code you put in. It does not include all countries, but I think I got the idea of elsif in perl.

Experimenting with Perl
Well, this is my first actual experiment with Perl. All it does is chmod 750 some fetch utilities. In my next build I want to set it up so that if the file exists, and if it doesnt, it will prompt you that the file is not on the system and it is being skipped.
#!/usr/bin/perl
# Revision 1 - 09-03-09
# Initial Build
# Chmod 750 of rcp, wget, lynx, links, elinks, scp, nc, ftp, telnet, curl
print ("Permissions?\n");
system ('chmod 750 -v /usr/bin/rcp');
system ('chmod 750 -v /usr/bin/wget');
system ('chmod 750 -v /usr/bin/lynx');
system ('chmod 750 -v /usr/bin/links');
system ('chmod 750 -v /usr/bin/elinks');
system ('chmod 750 -v /usr/bin/scp');
system ('chmod 750 -v /usr/bin/nc');
system ('chmod 750 -v /usr/bin/ftp');
system ('chmod 750 -v /usr/bin/telnet');Lets see how this turns out over the next few days.
Update before I go to bed:
#!/usr/bin/perl
# Revision 1 - 09-03-09 0055
# Initial Build
# Chmod 750 of rcp, wget, lynx, links, elinks, scp, nc, ftp, ssh, telnet, curl
#
# Revision 2 - 09-03-09 0113
# If else statements are in place, they can handle if the file does or does not exist
print ("Permissions lol...\n");
$filename = '/usr/bin/wget';
if (-e $filename) {
print "Found $filename\n";
system ("chmod 750 -v '/usr/bin/wget'");
}
else
{ print "File $filename, not found\n";
}
$filename = '/usr/bin/curl';
if (-e $filename) {
print "Found $filename\n";
system ("chmod 750 -v '/usr/bin/curl'");
}
else
{ print "File $filename, not found\n";
}
$filename = '/usr/bin/rcp';
if (-e $filename) {
print "Founds $filename\n";
system ('chmod 750 -v /usr/bin/rcp');
}
else
{ print "File $filename, not found\n";
}
$filename = '/usr/bin/lynx';
if (-e $filename) {
print "Found $filename\n";
system ('chmod 750 -v /usr/bin/lynx');
}
else
{ print "File $filename, not found\n";
}
$filename = '/usr/bin/elinks';
if (-e $filename) {
print "Found $filename\n";
system ('chmod 750 -v /usr/bin/elinks');
}
else
{ print "File $filename, not found\n";
}
$filename = '/usr/bin/scp';
if (-e $filename) {
print "Found $filename\n";
system ('chmod 750 -v /usr/bin/scp');
}
else
{ print "File $filename, not found\n";
}
$filename = '/usr/bin/nc';
if (-e $filename) {
print "Found $filename\n";
system ('chmod 750 -v /usr/bin/nc');
}
else
{ print "File $filename, not found\n";
}
$filename = '/usr/bin/ftp';
if (-e $filename) {
print "Found $filename\n";
system ('chmod 750 -v /usr/bin/ftp');
}
else
{ print "File $filename, not found\n";
}
$filename = '/usr/bin/telnet';
if (-e $filename) {
print "Found $filename\n";
system ('chmod 750 -v /usr/bin/telnet');
}
else
{ print "File $filename, not found\n";}
print “Permissions set to 750 across the board.\n”
And now the last revision of the night, colors.
#!/usr/bin/perl
# Revision 1 - 09-03-09 0055
# Initial Build
# Chmod 750 of rcp, wget, lynx, links, elinks, scp, nc, ftp, ssh, telnet, curl
#
# Revision 2 - 09-03-09 0113
# If else statements are in place, they can handle if the file does or does not exist
#
# Revision 3 - 09-03-09 0124
# Colors?
use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1; #reset colors after each line, otherwise everything will be green and red
print ("Permissions lol...\n");
$filename = '/usr/bin/wget';
if (-e $filename) {
print GREEN "Found $filename\n";
system ("chmod 750 -v '/usr/bin/wget'");
}
else
{
print RED "File $filename, not found\n";
}
$filename = '/usr/bin/curl';
if (-e $filename) {
print GREEN "Found $filename\n";
system ("chmod 750 -v '/usr/bin/curl'");
}
else
{ print RED "File $filename, not found\n";
}
$filename = '/usr/bin/rcp';
if (-e $filename) {
print GREEN "Found $filename\n";
system ('chmod 750 -v /usr/bin/rcp');
}
else
{ print RED "File $filename, not found\n";
}
$filename = '/usr/bin/lynx';
if (-e $filename) {
print GREEN "Found $filename\n";
system ('chmod 750 -v /usr/bin/lynx');
}
else
{
print RED "File $filename, not found\n";
}
$filename = '/usr/bin/elinks';
if (-e $filename) {
print GREEN "Found $filename\n";
system ('chmod 750 -v /usr/bin/elinks');
}
else
{ print RED "File $filename, not found\n";
}
$filename = '/usr/bin/scp';
if (-e $filename) {
print GREEN "Found $filename\n";
system ('chmod 750 -v /usr/bin/scp');
}
else
{ print RED "File $filename, not found\n";
}
$filename = '/usr/bin/nc';
if (-e $filename) {
print GREEN "Found $filename\n";
system ('chmod 750 -v /usr/bin/nc');
}
else
{ print RED "File $filename, not found\n";
}
$filename = '/usr/bin/ftp';
if (-e $filename) {
print GREEN "Found $filename\n";
system ('chmod 750 -v /usr/bin/ftp');
}
else
{ print RED "File $filename, not found\n";
}
$filename = '/usr/bin/telnet';
if (-e $filename) {
print GREEN "Found $filename\n";
system ('chmod 750 -v /usr/bin/telnet');
}
else
{ print RED "File $filename, not found\n";
}
print "Permissions set to 750 across the board.\n"Additional reading:
http://perl.about.com/od/programmingperl/qt/perlexists.htm
http://perl.active-venture.com/lib/Term/ANSIColor.html
http://www.linuxforums.org/forum/linux-programming-scripting/116383-how-can-i-use-wget-perl.html
