!c99Shell v. 1.0 pre-release build #16!

Software: Apache/2.2.3 (CentOS). PHP/5.1.6 

uname -a: Linux mx-ll-110-164-51-230.static.3bb.co.th 2.6.18-194.el5PAE #1 SMP Fri Apr 2 15:37:44
EDT 2010 i686
 

uid=48(apache) gid=48(apache) groups=48(apache) 

Safe-mode: OFF (not secure)

/usr/share/tk8.4/   drwxr-xr-x
Free 51.23 GB of 127.8 GB (40.08%)
Home    Back    Forward    UPDIR    Refresh    Search    Buffer    Encoder    Tools    Proc.    FTP brute    Sec.    SQL    PHP-code    Update    Feedback    Self remove    Logout    


Viewing file:     panedwindow.tcl (5.17 KB)      -rw-r--r--
Select action/file-type:
(+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |
# panedwindow.tcl --
#
# This file defines the default bindings for Tk panedwindow widgets and
# provides procedures that help in implementing those bindings.
#
# RCS: @(#) $Id: panedwindow.tcl,v 1.6.2.4 2006/01/25 18:21:41 dgp Exp $
#

bind Panedwindow <Button-1> { ::tk::panedwindow::MarkSash %W %x %y 1 }
bind Panedwindow <Button-2> { ::tk::panedwindow::MarkSash %W %x %y 0 }

bind Panedwindow <B1-Motion> { ::tk::panedwindow::DragSash %W %x %y 1 }
bind Panedwindow <B2-Motion> { ::tk::panedwindow::DragSash %W %x %y 0 }

bind Panedwindow <ButtonRelease-1> {::tk::panedwindow::ReleaseSash %W 1}
bind Panedwindow <ButtonRelease-2> {::tk::panedwindow::ReleaseSash %W 0}

bind Panedwindow <Motion> { ::tk::panedwindow::Motion %W %x %y }

bind Panedwindow <Leave> { ::tk::panedwindow::Leave %W }

# Initialize namespace
namespace eval ::tk::panedwindow {}

# ::tk::panedwindow::MarkSash --
#
#   Handle marking the correct sash for possible dragging
#
# Arguments:
#   w        the widget
#   x        widget local x coord
#   y        widget local y coord
#   proxy    whether this should be a proxy sash
# Results:
#   None
#
proc ::tk::panedwindow::MarkSash {w x y proxy} {
    if {[$w cget -opaqueresize]} { set proxy 0 }
    set what [$w identify $x $y]
    if { [llength $what] == 2 } {
    foreach {index which} $what break
    if { !$::tk_strictMotif || $which eq "handle" } {
        if {!$proxy} { $w sash mark $index $x $y }
        set ::tk::Priv(sash) $index
        foreach {sx sy} [$w sash coord $index] break
        set ::tk::Priv(dx) [expr {$sx-$x}]
        set ::tk::Priv(dy) [expr {$sy-$y}]
        # Do this to init the proxy location
        DragSash $w $x $y $proxy
    }
    }
}

# ::tk::panedwindow::DragSash --
#
#   Handle dragging of the correct sash
#
# Arguments:
#   w        the widget
#   x        widget local x coord
#   y        widget local y coord
#   proxy    whether this should be a proxy sash
# Results:
#   Moves sash
#
proc ::tk::panedwindow::DragSash {w x y proxy} {
    if {[$w cget -opaqueresize]} { set proxy 0 }
    if { [info exists ::tk::Priv(sash)] } {
    if {$proxy} {
        $w proxy place \
            [expr {$x+$::tk::Priv(dx)}] [expr {$y+$::tk::Priv(dy)}]
    } else {
        $w sash place $::tk::Priv(sash) \
            [expr {$x+$::tk::Priv(dx)}] [expr {$y+$::tk::Priv(dy)}]
    }
    }
}

# ::tk::panedwindow::ReleaseSash --
#
#   Handle releasing of the sash
#
# Arguments:
#   w        the widget
#   proxy    whether this should be a proxy sash
# Results:
#   Returns ...
#
proc ::tk::panedwindow::ReleaseSash {w proxy} {
    if {[$w cget -opaqueresize]} { set proxy 0 }
    if { [info exists ::tk::Priv(sash)] } {
    if {$proxy} {
        foreach {x y} [$w proxy coord] break
        $w sash place $::tk::Priv(sash) $x $y
        $w proxy forget
    }
    unset ::tk::Priv(sash) ::tk::Priv(dx) ::tk::Priv(dy)
    }
}

# ::tk::panedwindow::Motion --
#
#   Handle motion on the widget.  This is used to change the cursor
#   when the user moves over the sash area.
#
# Arguments:
#   w        the widget
#   x        widget local x coord
#   y        widget local y coord
# Results:
#   May change the cursor.  Sets up a timer to verify that we are still
#   over the widget.
#
proc ::tk::panedwindow::Motion {w x y} {
    variable ::tk::Priv
    set id [$w identify $x $y]
    if {([llength $id] == 2) && \
        (!$::tk_strictMotif || [lindex $id 1] eq "handle")} {
    if { ![info exists Priv($w,panecursor)] } {
        set Priv($w,panecursor) [$w cget -cursor]
        if { [$w cget -sashcursor] eq "" } {
        if { [$w cget -orient] eq "horizontal" } {
            $w configure -cursor sb_h_double_arrow
        } else {
            $w configure -cursor sb_v_double_arrow
        }
        } else {
        $w configure -cursor [$w cget -sashcursor]
        }
        if {[info exists Priv($w,pwAfterId)]} {
        after cancel $Priv($w,pwAfterId)
        }
        set Priv($w,pwAfterId) [after 150 \
            [list ::tk::panedwindow::Cursor $w]]
    }
    return
    }
    if { [info exists Priv($w,panecursor)] } {
    $w configure -cursor $Priv($w,panecursor)
    unset Priv($w,panecursor)
    }
}

# ::tk::panedwindow::Cursor --
#
#   Handles returning the normal cursor when we are no longer over the
#   sash area.  This needs to be done this way, because the panedwindow
#   won't see Leave events when the mouse moves from the sash to a
#   paned child, although the child does receive an Enter event.
#
# Arguments:
#   w        the widget
# Results:
#   May restore the default cursor, or schedule a timer to do it.
#
proc ::tk::panedwindow::Cursor {w} {
    variable ::tk::Priv
    # Make sure to check window existence in case it is destroyed.
    if {[info exists Priv($w,panecursor)] && [winfo exists $w]} {
    if {[winfo containing [winfo pointerx $w] [winfo pointery $w]] eq $w} {
        set Priv($w,pwAfterId) [after 150 \
            [list ::tk::panedwindow::Cursor $w]]
    } else {
        $w configure -cursor $Priv($w,panecursor)
        unset Priv($w,panecursor)
        if {[info exists Priv($w,pwAfterId)]} {
        after cancel $Priv($w,pwAfterId)
        unset Priv($w,pwAfterId)
        }
    }
    }
}

# ::tk::panedwindow::Leave --
#
#   Return to default cursor when leaving the pw widget.
#
# Arguments:
#   w        the widget
# Results:
#   Restores the default cursor
#
proc ::tk::panedwindow::Leave {w} {
    if {[info exists ::tk::Priv($w,panecursor)]} {
        $w configure -cursor $::tk::Priv($w,panecursor)
        unset ::tk::Priv($w,panecursor)
    }
}

:: Command execute ::

Enter:
 
Select:
 

:: Shadow's tricks :D ::

Useful Commands
 
Warning. Kernel may be alerted using higher levels
Kernel Info:

:: Preddy's tricks :D ::

Php Safe-Mode Bypass (Read Files)

File:

eg: /etc/passwd

Php Safe-Mode Bypass (List Directories):

Dir:

eg: /etc/

:: Search ::
  - regexp 

:: Upload ::
 
[ Read-Only ]

:: Make Dir ::
 
[ Read-Only ]
:: Make File ::
 
[ Read-Only ]

:: Go Dir ::
 
:: Go File ::
 

--[ c999shell v. 1.0 pre-release build #16 Modded by Shadow & Preddy | RootShell Security Group | r57 c99 shell | Generation time: 0.0113 ]--