Archive for category Uncategorized

The below function will post data to the corresponding site. There are four arguments for this function as you can see. I will explain each parameter in detail.

• $url — This represents the URL to which we send the POST data to.
• $header  — This represents the HTTP header used to send POST data.
• $cookie — This includes the cookies  to be send to authenticate.
• $p —  This shows the data to be sent as post to the URL.

<?php
function cURL($url, $header, $cookie, $p)
{
$ch = curl_init();
curl_setopt($ch, CURLOPT_HEADER, $header);
curl_setopt($ch, CURLOPT_NOBODY, $header);
curl_setopt($ch, CURLOPT_URL, $url);
curl_setopt($ch, CURLOPT_SSL_VERIFYHOST, 0);
curl_setopt($ch, CURLOPT_COOKIE, $cookie);
curl_setopt($ch, CURLOPT_USERAGENT, $_SERVER['HTTP_USER_AGENT']);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
curl_setopt($ch, CURLOPT_PROXY, "[proxy server]");
curl_setopt($ch, CURLOPT_PROXYPORT, [proxy port]);
curl_setopt ($ch, CURLOPT_PROXYUSERPWD, "[username]:[password]");
curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, 0);
if ($p) {
curl_setopt($ch, CURLOPT_CUSTOMREQUEST, "POST");
curl_setopt($ch, CURLOPT_POST, 1);
curl_setopt($ch, CURLOPT_POSTFIELDS, $p);
}
;
$result = curl_exec($ch);
curl_close($ch);
if ($result) {
return $result;
} else {
return curl_error($ch);
}
}
?>

When you want to add someone in orkut, you click on “add as a friend” and again it will refresh to some add page and then you click add again to actually send friend request. This process is made simple by the below script. When you click “add as a friend” in orkut it will automatically add the user. This is just a one click process now.

Hope you like this userscript

You need firefox ( Web browser )
and greasemonkey add-on to be installed to use this script.

Click on the link below to install the script.

 
         ==---------------==                                                    
       =-                   -=          ====SSS===                              
     S-    Come See Me At     S       =SSSSSSSSSSSS=                            
     S                        S      SSSSSSSSSSSSSSSSS=                          
     S www.hackattacking.com  S    =SSSSSSSSSSSSSSSSSSS=                        
      -=                     =-    SSSSSSSSSSSSSSSSSSSSS                        
        -==      ===========-     SSS-SSSSSSSSSSSSSSSSSS=                       
           -=   S                SSS = --------SSSSSSSSSS                       
            -=  -=               SS- -=         -SSSSSSSSS                      
              -=  -=             SS   -S==S      -SSSSSSSS                        
                -== -=           SS=          S=   -SSSSSSS                     
                   -----          SS           -S=S  SSSSSS                       
                                =SSSS  -=  -=        SSSSSS                      
                               =SS -S=  S--==   =====SSSSSS                     
                               SS   -SS=-S==S-=S----SSSSSSS                    
                               SS     -SS==  =S      SSSSSS                  
                               SS       --SSSS-      SSSSSS                  
                               SSSSS=  =====S-       SSSSSS                   
                             =SS--  =SS----SS       SSSSSSS                   
                            SS-    SS-    =S-      SSSSSSSS                   
                           SS     =S  =S==S-      SSSSSSSSS                    
                          SS-S    S-  S =S-      =SSSSSS--                      
                          S==S    S=  SSSS      =S-SS--                         
                          -SS-    -S   SS       S- SS                           
                            SS=    SS  S-      S-  -S=                          
                             -SS====SS=S      S-    SS                          
                               --SS--SS      =S     SS                          
                                 SS =S-     =S      SS                          
                                 SS=S-     =S-       SS=                        
                                 SSS-     =S-        -SSS=                      
                                 SSS     =S-           -SS=                     
                               ==SS-    =SSS=            SS=                    
                            ==SSSS     =SSS--             SS=                   
                         ==SSS-SS  ===SS--                SSS                   
                      ==SSS--  SSSSS--                     SS                   
                   ==SSS--  ==SSS--                       =S-                   
                ==SSS--  ==SS---                          SS                    
              =SSS--  ==SS--                            =SS                     
            =SS--    =S--                           ===SS=                      
           =SS-     SS-                        ====SSSSSSSSSSS=                 
           SSS     SS-                    ===SSSS---------   -SS                
           SS-     SS=              ====SSS----                SS               
           -SS      SS             -SS----                      S=              
            SS=     -S=                                    =S    S=             
             SSS==   -SS=                                 =SSS    -=   
              -SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS- SSSSSSS       
                 -----------------------------------------    -----             

Usage: $ME [OPTION]… PERLEXPR FILE…
Rename FILE(s) using PERLEXPR on each filename.

-b, –backup make backup before removal
-f, –force remove existing destinations, never prompt
-i, –interactive prompt before overwrite
-S, –suffix=SUFFIX override the usual backup suffix
-v, –verbose explain what is being done
-V, –version-control=WORD override the usual version control
-n, –just-print, –dry-run don’t rename, implies –verbose
-l, –link-only link file instead of reame
–help display this help and exit
–version output version information and exit

The backup suffix is ~, unless set with SIMPLE_BACKUP_SUFFIX. The
version control may be set with VERSION_CONTROL, values are:

t, numbered make numbered backups
nil, existing numbered if numbered backups exist, simple otherwise
never, simple always make simple backups

#!/usr/bin/perl

use strict;

use Getopt::Long;
use Text::Abbrev;
use File::Basename;

Getopt::Long::config(qw(bundling));
$Getopt::Long::prefix = '--';

my $ME = $0;
($ME = $0) =~ s!.*/!!;
$| = 1;

my $nothing         = 0;
my $backup          = 0;
my $force           = 0;
my $interactive     = 0;
my $verbose         = 0;
my $help            = 0;
my $version         = 0;
my $linkonly        = 0;
my $backup_suffix   = $ENV{SIMPLE_BACKUP_SUFFIX} || '~';
my $version_control = $ENV{VERSION_CONTROL} || 'existing';

my $vcm             = 0;

sub error {
    my($ERROR) = @_;
    print "$ME: $ERROR\n";
    print "try: `$ME --help' for more information.\n";
    exit 1;
}

{
    local $SIG{__WARN__} = sub {
	if ($_[0] =~ /^Unknown option: (\S+)/) {
	    error("unrecognized option `--$1'");
	} else {
	    print @_;
	}
    };
    GetOptions(
	       'b|backup'             => \$backup,
	       'f|force'              => \$force,
	       'i|interactive'        => \$interactive,
	       'v|verbose'            => \$verbose,
	       'S|suffix=s'           => \$backup_suffix,
	       'V|version-control=s'  => \$version_control,
	       'n|just-print|dry-run' => \$nothing,
               'l|link-only'          => \$linkonly,
	       'help'                 => \$help,
	       'version'              => \$version,
	      );
}

if ($version) {
    print "$ME $VERSION\n";
    exit 0;
}

if ($help) {
    print< VCM_TEST,
	       existing => VCM_TEST,
	       t        => VCM_NUMBERED,
	       numbered => VCM_NUMBERED,
	       never    => 0,
	       simple   => 0,
	   }}{$vcm};
}

my $op = shift
    or error('missing arguments');

if (!@ARGV) {
    @ARGV = ;
    chomp(@ARGV);
}

for (@ARGV) {
    my $was = $_;
    {
        no strict;
        eval $op;
    }
    die $@ if $@;
    next if $was eq $_;

    if (-e $_) {
        unless ($force) {
	    if (! -w && -t) {
		printf "%s: overwrite `%s', overriding mode 0%03o? ",
                       $ME, $_, (stat _)[2]&0777;
		next unless  =~ /^y/i;
	    } elsif ($interactive) {
		print "$ME: replace `$_'? ";
		next unless  =~ /^y/i;
	    }
	}
	if ($backup) {
            my $old;
	    if ($vcm) {
		($old) = sort {($b=~/~(\d*)~/)[0] <=> ($a=~/~(\d*)~/)[0]} <$_.~*~>;
		$old =~ s/~(\d*)~$/'~'.($1+1).'~'/e;
		if ($vcm & VCM_TEST) {
		    $old ||= "$_$backup_suffix";
		} elsif ($vcm & VCM_NUMBERED) {
		    $old ||= "$_.~1~";
		}
	    } else {
		$old = "$_$backup_suffix";
	    }
            print "backup: $_ -> $old\n" if $verbose && $nothing;

            unless ($nothing) {
                if (rename($_,$old)) {
                    warn "$ME: cannot create `$_': $!\n";
                    next;
                }
            }
        }
    }

    print "$was ", $linkonly?"=":'-', "> $_\n" if $verbose || $nothing;

    if (m,/,) {
        my $dir = File::Basename::dirname($_);
        unless (-d $dir) {
            if ($nothing) {
                print "mkdir: $dir\n" if $verbose;
            }
            else {
                mkpath($dir) || next;
            }
         }
    }

    unless ($nothing) {
        if ($linkonly) {
	    link($was,$_) || warn "$ME: cannot create `$_': $!\n";
        } else {
            rename($was,$_) || warn "$ME: cannot create `$_': $!\n";
	}
    }
}

sub mkpath {
    my($path) = @_;
    $path .= '/' if $^O eq 'os2' and $path =~ /^\w:\z/s; # feature of CRT
    # Logic wants Unix paths, so go with the flow.
    if ($^O eq 'VMS') {
        next if $path eq '/';
        $path = VMS::Filespec::unixify($path);
        if ($path =~ m:^(/[^/]+)/?\z:) {
            $path = $1.'/000000';
        }
    }
    return 1 if -d $path;
    my $parent = File::Basename::dirname($path);
    unless (-d $parent or $path eq $parent) {
        mkpath($parent) || return;
    }
    #print "mkdir: $path\n" if $verbose;
    unless (mkdir($path, 0777)) {
        unless (-d $path) {
            warn "$ME: cannot mkdir `$path': $!\n";
            return;
        }
    }
    return 1;
}

__END__