# ! / u s r / b i n / p e r l
# u s e C G I : : C a r p q w ( f a t a l s T o B r o w s e r ) ; # c o m m e n t o u t t h i s l i n e w h e n y o u r d o n e d e b u g g i n g t h i s s c r i p t
$ | + + ; # d o n t ' t b u f f e r o u t p u t
u s e s t r i c t ;
= h e a d
F r e e P E R L P a y P a l s h o p p i n g c a r t s c r i p t
d o w n l o a d t h e l a t e s t v e r s i o n f r o m :
h t t p : / / w w w . p e r l - s t u d i o . c o m / p a y p a l / f r e e
C o p y r i g h t N o t i c e
C o p y r i g h t ( c ) 1 9 9 6 - 2 0 0 2 A y e r S o f t / P e r l - S t u d i o . A l l r i g h t s r e s e r v e d .
= c u t
# C r e a t e d o n S u n d a y , S e p t e m b e r 1 5 , 2 0 0 2 u s i n g
# P e r l S t u d i o b y A y e r S o f t c o p y r i g h t ( C ) 2 0 0 2
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Y o u a r e f r e e t o c u s t o m i z e t h i s s c r i p t a s y o u w i s h , b u t d o n o t
# r e d i s t r i b u t e w i t h o u t w r i t t e n p e r m i s s i o n f r o m A y e r S o f t .
# D I S C L A I M E R
# T h e i n f o r m a t i o n a n d c o d e p r o v i d e d i s p r o v i d e d ' a s i s ' w i t h o u t
# w a r r a n t y o f a n y k i n d , e i t h e r e x p r e s s o r i m p l i e d . I n n o e v e n t
# s h a l l t h e A y e r S o f t C o m p a n y b e l i a b l e f o r a n y d a m a g e s w h a t s o e v e r
# i n c l u d i n g d i r e c t , i n d i r e c t , i n c i d e n t a l , c o n s e q u e n t i a l , l o s s o f
# b u s i n e s s p r o f i t s o r s p e c i a l d a m a g e s , e v e n i f t h e a u t h o r h a s b e e n
# a d v i s e d o f t h e p o s s i b i l i t y o f s u c h d a m a g e s .
# D O N O T U S E T H I S S C R I P T U N L E S S Y O U C A N F U L L Y A G R E E W I T H T H I S
# D I S C L A I M E R .
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
= h e a d
T h i s P E R L P a y P a l s h o p p i n g c a r t s c r i p t c a n d i s p l a y a n u n l i m i t e d n u m b e r
o f p r o d u c t s f r o m a M i c r o s o f t E x c e l s p r e a d s h e e t . J u s t e x p o r t y o u r
M i c r o s o f t E x c e l p r o d u c t s p r e a d s h e e t a s a d e l i m i t e d t e x t f i l e ( t a b )
a n d y o u r P a y p a l s h o p p i n g c a r t c a n b e r e a d y i n m i n u t e s
I m p l e m e n t a t i o n :
E n t e r t h e d e t a i l s o f e a c h i t e m y o u w i s h t o s e l l i n t o y o u r
M i c r o s o f t E x c e l p r o d u c t s p r e a d s h e e t .
E x p o r t y o u r M i c r o s o f t E x c e l p r o d u c t s p r e a d s h e e t a s a d e l i m i t e d
t e x t f i l e ( t a b ) s a v e d a s p r o d u c t s . t x t .
E d i t t h e P a y P a l b u s i n e s s n a m e ( e m a i l a d d r e s s ) i n t h e P E R L P a y P a l
s h o p p i n g c a r t s c r i p t s , t o r e f l e c t t h e P a y P a l e m a i l a d d r e s s t h a t
y o u r e c e i v e t h e P a y P a l p a y m e n t s a t .
U p l o a d t h e P E R L P a y P a l s h o p p i n g c a r t s c r i p t s t o a F T P d i r e c t o r y
o n y o u r W e b S i t e .
U p l o a d t h e p r o d u c t s . t x t t o t h e s a m e F T P d i r e c t o r y t h e P E R L P a y P a l
s h o p p i n g c a r t s c r i p t s a r e i n . C o d e S Y N O P S I S :
T h e P E R L P a y P a l s h o p p i n g c a r t s c r i p t r e a d s i n t h e d e l i m i t e d t e x t f i l e
a n d w r i t e s t h e H T M L a d d t o c a r t b u t t o n s f o r e a c h p r o d u c t i n t h e d e l i m i t e d t e x t f i l e .
T h e P a y P a l a d d t o c a r t b u t t o n s c o d e i s a u t o m a t i c a l l y g e n e r a t e d .
T h e P a y P a l v i e w c a r t b u t t o n c o d e i s a l s o a u t o m a t i c a l l y g e n e r a t e d . M i c r o s o f t E x c e l p r o d u c t s p r e a d s h e e t I m p l e m e n t a t i o n :
T h r e e r e q u i r e d c o l u m n s / f i e l d s
i t e m _ n u m b e r
i t e m _ n a m e
i t e m _ a m o u n t
T h e i t e m _ n u m b e r f i e l d i s a n I D , S K U o r t r a c k i n g n u m b e r f o r y o u r i t e m .
T h e i t e m _ n a m e f i e l d i s t h e n a m e o f t h e i t e m o r s e r v i c e y o u w i s h t o s e l l .
T h e i t e m _ a m o u n t f i e l d i s t h e p r i c e o f t h e i t e m y o u w i s h t o s e l l .
= c u t
# s t a r t u s e r c o n f i g u r a t i o n
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
# Q u i c k i n s t a l l :
# e d i t t h e $ b u s i n e s s _ e m a i l v a r i a b l e
# u p l o a d t h e s c r i p t a n d p r o d u c t s . t x t t o t h e s a m e F T P d i r e c t o r y
#
# $ p r o d u c t s _ p a t h : p a t h t o M i c r o s o f t E x c e l t a b d e l i m i t e d t e x t
# f i l e w i t h f i e l d s i t e m _ n u m b e r , i t e m _ n a m e , i t e m _ a m o u n t o n e a c h l i n e .
#
m y $ p r o d u c t s _ p a t h = " p r o d u c t s . t x t " ;
# P a y P a l b u s i n e s s n a m e ( e m a i l a d d r e s s )
m y $ b u s i n e s s _ e m a i l = " birchtreebooks@gmail.com " ;
# o p t i o n a l u s e r c o n f i g u r a t i o n
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
# b a c k g r o u n d c o l o r f o r p r o d u c t s t a b l e
m y $ b g c o l o r = " # f f f f f f " ;
# t y p e o f d e l i m i t e r u s e d i n p r o d u c t s d e l i m i t e d t e x t f i l e
m y $ d e l i m i t e r = " \ t " ;
# $ i m a g e _ u r l = A d d Y o u r L o g o
# C u s t o m i z e t h e l o o k o f y o u r P a y P a l p a y m e n t p a g e s b y a d d i n g y o u r l o g o . T h i s
# i m a g e , w h i c h m u s t b e 1 5 0 b y 5 0 p i x e l s i n s i z e , w i l l a p p e a r i n t h e u p p e r l e f t
# h a n d c o r n e r o f t h e p a g e w h e n y o u r c u s t o m e r p r e s s e s y o u r S h o p p i n g C a r t
# b u t t o n . m y $ i m a g e _ u r l = " " ;
# $ r e t u r n _ u r l = S u c c e s s f u l P a y m e n t U R L
# E n t e r t h e U R L w h e r e y o u w o u l d l i k e t o s e n d y o u r c u s t o m e r s a f t e r t h e y h a v e
# c o m p l e t e d p a y m e n t . O n c e y o u r c u s t o m e r h a s c o m p l e t e d t h e i r p a y m e n t , t h e y w i l l
# s e e a p a y m e n t c o n f i r m a t i o n p a g e . F r o m t h i s p a g e , t h e y w i l l p r e s s t h e
# ' C o n t i n u e ' b u t t o n a n d r e t u r n t o t h e S u c c e s s f u l P a y m e n t U R L y o u h a v e
# s p e c i f i e d . I f y o u d o n o t e n t e r a S u c c e s s f u l P a y m e n t U R L , c u s t o m e r s w h o c l i c k
# t h i s l i n k w i l l b e t a k e n t o a P a y P a l w e b p a g e . m y $ r e t u r n _ u r l = " h t t p : / / $ E N V { H T T P _ H O S T } " ;
# $ c a n c e l _ r e t u r n = C a n c e l P a y m e n t U R L
# E n t e r t h e U R L w h e r e y o u w o u l d l i k e t o s e n d y o u r c u s t o m e r s i f t h e y c a n c e l
# t h e i r p a y m e n t a t a n y p o i n t i n t h e S h o p p i n g C a r t p a y m e n t f l o w . I f y o u d o
# n o t e n t e r a C a n c e l P a y m e n t U R L , c u s t o m e r s w h o c l i c k t h i s l i n k w i l l b e t a k e n
# t o a P a y P a l w e b p a g e . m y $ c a n c e l _ r e t u r n = " h t t p : / / $ E N V { H T T P _ H O S T } " ;
# E n t e r t h e c u r r e n c y s y m b o l s P a y P a l u s e s t o d e s i g n a t e U S d o l l a r s
# o r E u r o s o r P o u n d s S t e r l i n g s . E n t e r a b a c k s l a s h b e f o r e t h e $ s y m b o l .
# U S : $
# E u r o s : ¬
# P o u n d s S t e r l i n g : £
# C a n a d i a n D o l l a r ( C $ )
# J a p a n e s e Y e n ( ¥ ) m y $ m _ s y m b o l = " \ $ " ; # T h e c u r r e n c y o f t h e p a y m e n t i s U . S . D o l l a r s : U S D
# T h e c u r r e n c y o f t h e p a y m e n t i s B r i t i s h P o u n d s S t e r l i n g : G B P
# T h e c u r r e n c y o f t h e p a y m e n t i s E u r o s : E U R
# T h e c u r r e n c y o f t h e p a y m e n t i s C a n a d i a n D o l l a r : C A D
# T h e c u r r e n c y o f t h e p a y m e n t i s Y e n : J P Y m y $ c u r r e n c y _ c o d e = " U S D " ;
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
# e n d u s e r c o n f i g u r a t i o n
p r i n t " C o n t e n t - t y p e : t e x t / h t m l \ n \ n " ; s i t e _ h e a d e r ( ' O u r P r o d u c t s ' ) ; # l o a d p r o d u c t s . t x t .
o p e n ( F I L E , " < $ p r o d u c t s _ p a t h " ) | | s h o w _ e r r o r ( " $ p r o d u c t s _ p a t h : C a n ' t o p e n b e c a u s e ( $ ! ) . " ) ;
# P l a c e e a c h l i n e i n t h e p r o d u c t s f i l e i n t o a n a r r a y
m y @ f i l e _ c o n t e n t s = < F I L E > ;
c l o s e ( F I L E ) ; # u r l e n c o d e t h e P a y P a l b u s i n e s s e m a i l a d d r e s s
m y $ e m a i l = u r l e n c o d e ( $ b u s i n e s s _ e m a i l ) ;
# l o o p t h r o u g h t h e a r r a y o f p r o d u c t s a n d d i s p l a y t h e H T M L a d d t o c a r t b u t t o n s * /
f o r e a c h ( @ f i l e _ c o n t e n t s ) {
# s p l i t t h e l i n e w i t h d e l i m i t e r u s e d i n t h e f i l e
m y ( $ i t e m _ n u m b e r , $ i t e m _ n a m e , $ i t e m _ a m o u n t ) = s p l i t ( $ d e l i m i t e r , $ _ , 3 ) ;
i f ( $ i t e m _ a m o u n t > 0 ) {
m y $ n u m b e r = u r l e n c o d e ( $ i t e m _ n u m b e r ) ;
$ i t e m _ n a m e = ~ s / \ " / / g ;
m y $ n a m e _ v a l u e = $ i t e m _ n a m e ;
# r e m o v e c h a r a c t e r s t h a t m i g h c a u s e p r o b l e m s w i t h t h e j a v a s c r i p t f u n c t i o n s
$ n a m e _ v a l u e = ~ s / [ \ , \ ; \ ` \ ' \ | \ * \ ~ \ ^ \ [ \ ] \ { \ } \ $ \ " ] / / g ;
$ n a m e _ v a l u e = ~ s / ^ \ s + | \ s + $ / / ;
m y $ n a m e = u r l e n c o d e ( $ n a m e _ v a l u e ) ;
m y $ a m o u n t = u r l e n c o d e ( $ i t e m _ a m o u n t ) ;
m y $ u r l = " h t t p s : / / w w w . p a y p a l . c o m / c a r t / a d d = 1 & b u s i n e s s = $ e m a i l & i t e m _ n u m b e r = $ n u m b e r & i t e m _ n a m e = $ n a m e & a m o u n t = $ a m o u n t & c u r r e n c y _ c o d e = $ c u r r e n c y _ c o d e & b n = A y e r S o f t . P e r l S t u d i o " ;
$ u r l . = " & r e t u r n = $ r e t u r n _ u r l & c a n c e l _ r e t u r n = $ c a n c e l _ r e t u r n! _ u r l = $ i m a g e _ u r l " ;
# c r e a t e t h e c o d e f o r t h e a d d t o c a r t b u t t o n s f o r e a c h p r o d u c t
m y $ h t m l _ r o w = q q ^
< t r >
< t d c l a s s = " c a r t T D " > $ i t e m _ n u m b e r < / t d > < t d c l a s s = " c a r t T D " > $ i t e m _ n a m e < / t d > < t d c l a s s = " c a r t T D " > $ m _ s y m b o l $ i t e m _ a m o u n t < / t d >
< t d >
< a h r e f = " j a v a s c r i p t : o n c l i c k = w i n d o w . p a y p a l w i n O p e n ( ' $ u r l ' ) ; " > < i m g s r c = " h t t p : / / i m a g e s . p a y p a l . c o m / i m a g e s / x - c l i c k - b u t 2 2 . g i f " b o r d e r = " 0 " > < / a >
< / t d > < / t r >
^ ;
# d i s p l a y t h e c o d e f o r t h e a d d t o c a r t b u t t o n s f o r e a c h p r o d u c t
p r i n t $ h t m l _ r o w ;
}
}
s i t e _ f o o t e r ( ) ;
e x i t ;
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# l i b r a r y s u b r o u t i n e s f o l l o w
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
# s i t e h e a d e r a n d f o o t e r f u n c t i o n s
# r e a d i n a h t m l h e a d e r f i l e o r p r i n t o u t a H T M L h e a d e r s e c t i o n
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
s u b s i t e _ h e a d e r ( $ t i t l e ) {
m y $ t i t l e = s h i f t ;
m y $ f i l e = $ E N V { D O C U M E N T _ R O O T } . ' / h e a d e r . h t m l ' ;
i f ( ! ( - r $ f i l e ) ) {
$ f i l e = " h e a d e r . h t m l " ;
} m y $ h e a d e r = q q ^
< H T M L >
< H E A D >
< T I T L E > $ t i t l e < / T I T L E >
< s c r i p t l a n g u a g e = " J a v a S c r i p t " >
< ! - -
v a r p i x e l s _ w i d t h = w i n d o w . s c r e e n . w i d t h ;
v a r p i x e l s _ h e i g h t = w i n d o w . s c r e e n . h e i g h t ;
v a r n W i d t h = " 6 0 0 " ;
v a r n H e i g h t = " 4 0 0 " ;
i f ( p i x e l s _ w i d t h < 7 4 0 ) {
n W i d t h = " 5 4 0 " ;
}
i f ( p i x e l s _ h e i g h t < 5 4 0 ) {
n H e i g h t = " 3 5 0 " ;
}
v a r o p t i o n S t r i n g = " s c r o l l b a r s , l o c a t i o n , r e s i z a b l e , s t a t u s , " ;
o p t i o n S t r i n g + = " h e i g h t = " + n H e i g h t + " , w i d t h = " + n W i d t h ;
o p t i o n S t r i n g + = " , s c r e e n X = 1 0 , s c r e e n Y = 1 0 , t o p = 1 0 , l e f t = 1 0 " ;
v a r c a r t W i n d o w = n u l l ;
f u n c t i o n p a y p a l w i n O p e n ( u r l ) {
i f ( ! c a r t W i n d o w | | c a r t W i n d o w . c l o s e d ) {
c a r t W i n d o w = w i n d o w . o p e n ( u r l , " c a r t " , o p t i o n S t r i n g ) ;
} e l s e {
/ / w i n d o w a l r e a d y e x i s t s , s o b r i n g i t f o r w a r d
c a r t W i n d o w . l o c a t i o n . h r e f = u r l ;
c a r t W i n d o w . f o c u s ( ) ;
}
}
/ / - - >
< / s c r i p t >
< s t y l e t y p e = " t e x t / c s s " >
. c a r t T D { f o n t - s i z e : 1 1 p x ; f o n t - f a m i l y : v e r d a n a , h e l v e t i c a , a r i a l , s a n s - s e r i f ; }
< / s t y l e >
< / H E A D >
^ ;
p r i n t $ h e a d e r ;
i f ( - r $ f i l e ) {
i n c l u d e ( $ f i l e ) ;
}
p r i n t " \ n < t a b l e w i d t h = 5 5 0 b g c o l o r = \ " $ b g c o l o r \ " c e l l s p a c i n g = 0 c e l l p a d d i n g = 0 b o r d e r = 1 > \ n " ;
}
# r e a d i n a h t m l f o o t e r f i l e o r p r i n t o u t a H T M L f o o t e r s e c t i o n
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
s u b s i t e _ f o o t e r ( ) {
m y $ f i l e = $ E N V { D O C U M E N T _ R O O T } . ' / f o o t e r . h t m l ' ;
i f ( ! ( - r $ f i l e ) ) {
$ f i l e = " f o o t e r . h t m l " ;
}
m y $ c a r t _ u r l = " h t t p s : / / w w w . p a y p a l . c o m / c a r t / d i s p l a y = 1 & b u s i n e s s = $ e m a i l " ;
m y $ f o o t e r = q q ^
< / t a b l e >
< p a l i g n = c e n t e r >
< a h r e f = " j a v a s c r i p t : o n c l i c k = w i n d o w . p a y p a l w i n O p e n ( ' $ c a r t _ u r l ' ) ; " > < i m g s r c = " h t t p s : / / w w w . p a y p a l . c o m / i m a g e s / v i e w _ c a r t _ 0 2 . g i f " b o r d e r = " 0 " > < / a >
< / p >
^ ;
p r i n t $ f o o t e r ;
i f ( - r $ f i l e ) {
i n c l u d e ( $ f i l e ) ;
}
e l s e {
p r i n t " \ n
< a h r e f = h t t p : / / w w w . 1 - c o u n t e r . c o m t i t l e = " F r e e w e b s i t e s t a t i s t i c s " >
< s c r i p t s r c = " h t t p : / / w w w . 1 - h i t . c o m / 1 c o u n t e r . j s " > < / s c r i p t >
< n o s c r i p t > < i m g a l t = " F r e e w e b s i t e s t a t i s t i c s " s r c = " h t t p : / / w w w . 1 - c o u n t e r . c o m / p p h l o g g e r . p h p ? i d = 1 - h i t & s t = i m g & s h o w m e = y " > < / n o s c r i p t >
< / a >
< / b o d y >
< / H T M L > \ n " ;
}
}
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
s u b i n c l u d e {
m y $ f i l e = s h i f t ;
r e t u r n u n d e f u n l e s s ( - r $ f i l e ) ;
m y $ c o n t e n t s ;
o p e n ( P K , " < $ f i l e " ) | | s h o w _ e r r o r ( " $ f i l e : C a n ' t o p e n b e c a u s e ( $ ! ) . " ) ;
r e a d ( P K , $ c o n t e n t s , - s P K ) ;
c l o s e P K ;
p r i n t $ c o n t e n t s ;
}
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
s u b s h o w _ e r r o r {
m y ( $ i t e m ) = s h i f t ;
m y $ s e r v e r = ( $ E N V { H T T P _ H O S T } ) ? $ E N V { H T T P _ H O S T } : ' l o c a l h o s t ' ;
m y $ R E Q U E S T _ U R I = $ 0 ;
$ i t e m = ~ s / \ ] / \ ] < b r > / g ;
$ i t e m = ~ s / \ ( / < b r > \ ( / g ;
$ i t e m = ~ s / \ ) / \ ) < b r > / g ;
p r i n t q q !
< H T M L > < H E A D > < T I T L E > S c r i p t E r r o r < / T I T L E > < / H E A D > < B O D Y B G C O L O R = # F F F F F F >
< C E N T E R > < T A B L E b o r d e r = 0 c e l l p a d d i n g = 0 c e l l s p a c i n g = 1 B G C O L O R = # 0 0 0 0 9 9 >
< T R > < T D > < T A B L E B O R D E R = 0 W I D T H = 6 0 0 C E L L S P A C I N G = 0 B G C O L O R = # f f f f f f c e l l p a d d i n g = 3 >
< T R > < T D a l i g n = " c e n t e r " B G C O L O R = # 0 0 0 0 9 9 > < T A B L E > < T R > < T D >
< F O N T c o l o r = # F F F F F F f a c e = " V e r d a n a , A r i a l , H e l v e t i c a " s i z e = 3 >
< B > C G I S c r i p t E r r o r < / B > < / F O N T > < / T D > < / T R > < / T A B L E > < / T D > < / T R > < T R > < T D >
< F O N T c o l o r = # 0 0 0 0 0 0 f a c e = " V e r d a n a , A r i a l , H e l v e t i c a " s i z e = 2 >
< B L O C K Q U O T E > < F O N T s i z e = 3 > h t t p : / / $ s e r v e r < / F O N T >
< P > < A H R E F = " h t t p : / / $ E N V { H T T P _ H O S T } " > $ s e r v e r < / A > < / P >
< P > T h e r e q u e s t e d U R L < P > < B > $ R E Q U E S T _ U R I < / B > < / p >
< P > r e t u r n e d t h e f o l l o w i n g e r r o r m e s s a g e < / P >
< P > < s t r o n g > $ i t e m < / s t r o n g > < / P >
< P > < A H R E F = " h t t p : / / w w w . p e r l - s t u d i o . c o m / c g i - b i n / f a q / s e a r c h . c g i " > P e r l C G I S c r i p t E r r o r H e l p < / A >
< / F O N T > < / B L O C K Q U O T E > < / T D > < / T R > < T R > < T D B G C O L O R = # 0 0 0 0 9 9 >
< D I V a l i g n = " c e n t e r " > < F O N T c o l o r = # f f f f f f s i z e = 1 f a c e = " V e r d a n a , A r i a l , H e l v e t i c a " >
< B > P e r l S t u d i o f o r U n i x / L i n u x / W i n d o w s < / B >
< / F O N T > < / D I V > < / T D > < / T R > < / T A B L E > < / T D > < / T R > < / T A B L E > < B R >
< P > < A H R E F = " h t t p : / / w w w . p e r l - s t u d i o . c o m " > T h i s s c r i p t g e n e r a t e d b y w w w . p e r l - s t u d i o . c o m < / A >
< / C E N T E R >
< a h r e f = h t t p : / / w w w . 1 - c o u n t e r . c o m t i t l e = " F r e e w e b s i t e s t a t i s t i c s " >
< s c r i p t s r c = " h t t p : / / w w w . 1 - h i t . c o m / 1 c o u n t e r . j s " > < / s c r i p t >
< n o s c r i p t > < i m g a l t = " F r e e w e b s i t e s t a t i s t i c s " s r c = " h t t p : / / w w w . 1 - c o u n t e r . c o m / p p h l o g g e r . p h p ? i d = 1 - h i t & s t = i m g & s h o w m e = y " > < / n o s c r i p t >
< / a >
< / b o d y >
< / H T M L >
! ;
e x i t ;
}
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = #
s u b u r l e n c o d e {
m y ( $ e s c ) = @ _ ;
$ e s c = ~ s / ^ \ s + | \ s + $ / / g s ;
$ e s c = ~ s / ( [ ^ a - z A - Z 0 - 9 _ \ - . ] ) / u c s p r i n t f ( " % % % 0 2 x " , o r d ( $ 1 ) ) / e g ;
$ e s c = ~ s / / \ + / g ;
$ e s c = ~ s / % 2 0 / \ + / g ;
r e t u r n $ e s c ;
}
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = #
_ _ E N D _ _
= h e a d 1 A U T H O R S
T h i s m o d u l e i s p a r t o f t h e P e r l S t u d i o d i s t r i b u t i o n .
C o p y r i g h t 2 0 0 2 A y e r S o f t
= c u t
