S2kDesigns Technical Blog

Mysql: How to drop a Unique Constraint?

ALTER TABLE `test_table` DROP INDEX `subject`
where test_table is the table name and subject is the column name

How to find world writable directories by "find" command?

find . -type d -perm -a+w -exec ls -lah {} \; > ww.txt

perl - handling sigint

Write a small Perl program that waits for 30 seconds and exits with printing �Bye�. If interrupted by any key before 30 second then print �Hello� before exiting.

perl -e "$SIG{INT}= sub {print 'Hello';exit;};for ($i=0;$i<30;$i++){sleep 1;}; print 'bye';"

Perl Important links

Remove repeated characters from a string - http://www.perlmonks.org/?node_id=353072

How to find and remove duplicate elements from an array? - http://www.perlmonks.org/?node_id=90493

perlfaqs - http://perldoc.perl.org/perlfaq4.html

perl references - http://www.sdsc.edu/~moreland/courses/I ... rlref.html

perl tuts - http://perldoc.perl.org/index-tutorials.html

Perl - Difference Between my local our

The variables declared with my() are visible only within the scope of the block which names them. They are not visible outside of this block, not even in routines or blocks that it calls.

local() variables, on the other hand, are visible to routines that are called from the block where they are declared.

Neither is visible after the end (the final closing curly brace) of the block at all.

Whereas our() has Package scope.

Windows 7: I want WinXP Style back

http://www.howtogeek.com/howto/windows- ... -or-vista/

Windows7 How to add the Quicklaunch Toolbar

Right-click on an open area of the taskbar, and choose Toolbars \ New Toolbar from the menu.
You should probably also unlock the taskbar at this point.
paste the following path into the location bar:

%appdata%\Microsoft\Internet Explorer\Quick Launch

The normal Quick Launch that we�re used to doesn�t have text, so right-click on the dotted lines and uncheck �Show Text� as well as �Show Title� from the menu.

opensubtitles.org oscar not working - resolved

http://trac.opensubtitles.org/projects/ ... iki/XMLRPC

change www.opensubtitles.org to api.subtitles.org in OSCAR's Preferences tab

Find Joomla Module Positions

In Joomla there is a hidden core function which once activated displays a layer on a Joomla website which shows you exactly the template positions currently used.

To activate this function you just need to add ?tp=1 to the end of your current Joomla address. As an example take a look at the following link: http://www.dart-creations.com?tp=1 As you can see, you can know see all the positions which are template makes use of. You can use this on any Joomla version, on any Joomla site and on any Joomla page (though you might need to use &tp=1). The following parameters can be used:
?tp=1 (for horizontal view)
?tp=-1 (for no wrapper niew)
?tp=0 (for normal view - no view of positions)

Duplicate a Table using Javascript

Duplicate a row using javascript
function addNonPhysicianRow() {

var nonpTbl = document.getElementById('NPTbl');
var trs = nonpTbl.getElementsByTagName('tr');
var len = trs.length - 1;
var lastRow = trs[len];
var newRow = lastRow.cloneNode(true);
var tds = newRow.getElementsByTagName('td');
var currLen = len - 3;
currLen++;
for (var i=0; i < tds.length; i++) {
var td = tds;
if (i == 0) {
td.innerHTML = td.innerHTML.replace(/Third /, "");
}
var input = (td.getElementsByTagName('input'))[0];
var currName;
if (input) {
currName = input.name;
var new_name = currName.replace(/NNP_\d_(.*)/, "NNP_" + currLen + "_$1");
input.name = new_name;
}
var sel = (td.getElementsByTagName('select'))[0];
if (sel) {
currName = sel.name;
var new_name = currName.replace(/NNP_\d_(.*)/, "NNP_" + currLen + "_$1");
sel.name = new_name;
}

}
nonpTbl.appendChild(newRow);
var val = parseInt(document.getElementById('totalNonPhysician').value);
val++;
document.getElementById('totalNonPhysician').value = val;
//alert('val = ' + val + ' - ' + document.getElementById('totalNonPhysician').value);
return false;
}

CS1010: Newline in Constant" Error Message - fixed
CS1010: Newline in Constant" Error Message

I got this error from asp.net application and here is the solution

Modify string as like

string strValue = "Test value";
string strAll = " in strAll is the closing tag for the ";

http://weblogs.asp.net/sbehera/archive/ ... 27228.aspx

iPhone Screen Orientation: Portrait and Landscape
http://www.evotech.net/blog/2009/09/iph ... landscape/

Private Messaging System
http://www.pixel2life.com/publish/tutor ... ng_system/

Page layout Ideas/JS/Flash
This is a living article and contains urls which I find interesting and Might incorporate one day into something.

1. http://www.marriott.com/default.mi

php quote in mysql like perl
mysql_real_escape_string()

// Connect
$link = mysql_connect('mysql_host', 'mysql_user', 'mysql_password')
OR die(mysql_error());

// Query
$query = sprintf("SELECT * FROM users WHERE user='%s' AND password='%s'",
mysql_real_escape_string($user),
mysql_real_escape_string($password));
?>

After Registration Email
$content = "
'http://www.w3.org/TR/html4/loose.dtd'>

TotalESL

Dear ".$username.":

Thank you for joining TotalESL.com, First Stop for Your Second Language Needs.
Please note your account information

Username: ".$username."

Password: ".$password."

IM/Chat Username: ".$username."

Congratulations! You may to proceed and use our member features:

Thank you.

Admin

TotalESL.com

http://www.totalesl.com

";

PHP Sending Mail
Code below works without errors

$Name = "Da Duder"; //senders name
$email = "email@adress.com"; //senders e-mail adress
$recipient = "PersonWhoGetsIt@emailadress.com"; //recipient
$mail_body = "The text for the mail..."; //mail body
$subject = "Subject for reviever"; //subject
$header = "From: ". $Name . " <" . $email . ">\r\n"; //optional headerfields

mail($recipient, $subject, $mail_body, $header); //mail command :)
?>

PHP random password generator

function generatePassword($length=9, $strength=0) {
$vowels = 'aeuy';
$consonants = 'bdghjmnpqrstvz';
if ($strength & 1) {
$consonants .= 'BDGHJLMNPQRSTVWXZ';
}
if ($strength & 2) {
$vowels .= "AEUY";
}
if ($strength & 4) {
$consonants .= '23456789';
}
if ($strength & 8) {
$consonants .= '@#$%';
}

$password = '';
$alt = time() % 2;
for ($i = 0; $i < $length; $i++) {
if ($alt == 1) {
$password .= $consonants[(rand() % strlen($consonants))];
$alt = 0;
} else {
$password .= $vowels[(rand() % strlen($vowels))];
$alt = 1;
}
}
return $password;
}

?>

PERL OOP - Destructors
If constructors can have arbitrary names, then why not destructors? Because while a constructor is explicitly called, a destructor is not. Destruction happens automatically via Perl's garbage collection (GC) system, which is a quick but somewhat lazy reference-based GC system. To know what to call, Perl insists that the destructor be named DESTROY. Perl's notion of the right time to call a destructor is not well-defined currently, which is why your destructors should not rely on when they are called.

Why is DESTROY in all caps? Perl on occasion uses purely uppercase function names as a convention to indicate that the function will be automatically called by Perl in some way. Others that are called implicitly include BEGIN, END, AUTOLOAD, plus all methods used by tied objects, described in the perltie manpage.