Dipin Krishna

RubyOnRails: Create a Controller and Views for it using a single command

Dipin Krishna — Sat, 05 Feb 2011 20:14:15 +0000

Lets create a controller named ‘home‘ with views ‘index‘, ‘view2′ view3′. Fortunately, you can do that in a single command. Enter this command in your terminal: $ rails generate controller home index view2 view3 Rails will create several files for you, including app/views/home/index.html.erb. This is the template that will be used to display the results [...]

Magento: Check if an admin is logged in or not

Dipin Krishna — Mon, 17 Jan 2011 06:50:22 +0000

If you are writing a custom module, and you want it to be accessed only by admins, then you possibly need the following code in your controller. //get the admin session Mage::getSingleton('core/session', array('name'=>'adminhtml')); //verify if the user is logged in to the backend if(Mage::getSingleton('admin/session')->isLoggedIn()){ echo "Admin Logged in"; } else { echo "You need to [...]

Perl: Send a chat message to your gmail buddy using Jabber

Dipin Krishna — Thu, 23 Dec 2010 10:06:49 +0000

Net::Jabber provides a Perl user with access to the Jabber Instant Messaging protocol. Net::Jabber is a convenient tool to use for any perl script that would like to utilize the Jabber Instant Messaging protocol. While not a client in and of itself, it provides all of the necessary back-end functions to make a CGI client [...]

Perl: Send a message to a queue or topic using Stomp

Dipin Krishna — Tue, 21 Dec 2010 14:32:17 +0000

Net::Stomp module allows you to write a Stomp client. Stomp is the Streaming Text Orientated Messaging Protocol (or the Protocol Briefly Known as TTMP and Represented by the symbol :ttmp). It’s a simple and easy to implement protocol for working with Message Orientated Middleware from any language. Net::Stomp is useful for talking to Apache ActiveMQ, an [...]

Perl: Function to print a HASH completely

Dipin Krishna — Wed, 15 Dec 2010 12:25:44 +0000

Below is a perl function that i wrote to print a HASH completely. What i mean by ‘completely’ is that it will expand all hashes and arrays found within the given HASH. sub print_hash { my ($hash,$str) = @_; while( my ($k, $v) = each %{$hash}) { print $str."$k => $v\n"; if( $v =~ /hash/i [...]

Perl: Send bulk mail via SMTP with authentication

Dipin Krishna — Wed, 15 Dec 2010 11:08:13 +0000

This is a tutorial on how to send mails to multiple recipients using Perl Net::SMTP module with authentication. The smtp module implements a client interface to the SMTP and ESMTP protocol, enabling a perl5 application to talk to SMTP servers. The first step is to create a SMTP connection to the server. A new Net::SMTP [...]

Perl: Simple way to read Command line arguments

Dipin Krishna — Tue, 14 Dec 2010 06:06:44 +0000

Parsing command-line arguments in Perl is very easy. All the command-line arguments are present in the array $ARGV. You can get the number of arguments passed as ( $#ARGV + 1 ). Below is a sample Perl script to read the command-line parameters. #!/usr/bin/perl #-------------------------------------------------# # File: argv.pl [...]

Sending Emails Via Gmail SMTP With Perl

Dipin Krishna — Wed, 08 Dec 2010 08:24:48 +0000

This is a tutorial on how to send mails using Perl Net::SMTP module through Gmail SMTP. The smtp module implements a client interface to the SMTP and ESMTP protocol, enabling a perl5 application to talk to SMTP servers. The first step is to create a SMTP connection to the server. A new Net::SMTP object must [...]

Git: Create and delete remote branches

Dipin Krishna — Tue, 30 Nov 2010 07:47:50 +0000

Many git users frequently do create and delete branches. I often forget the command. So i am now writing it down here. May be, it will be useful to some guys out there too. Create a remote branch git push origin new_branch Where origin is your remote name and new_branch is the name of the branch [...]

C++/CPP: Search and Replace in String

Dipin Krishna — Sat, 16 Oct 2010 09:38:01 +0000

My CPP function for search and replace in string is given below: string search_replace( string String, string searchString, string replaceString, string::size_type pos = 0) { while ( (pos = String.find(searchString, pos)) != string::npos ) { String.replace( pos, searchString.size(), replaceString ); pos += replaceString.size(); } return String; } Sample program using it. /* * searchreplace.cpp [...]