Размер файла: 6.98Kb
яю< ?
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# * * * * * * * * * W A P - M O T O R S * * * * * * * * * #
# M a d e b y : D A R K - S T A R _ M C #
# E - m a i l : j o h n x c m s @ y a . r u #
# W A P - S i t e : h t t p : / / h o m e p h p . r u #
# I C Q : 7 4 - 7 5 6 - 6 7 #
# K =5 8<55B5 ?@02> 2=>A8BL 87<5=5=8O 2 :>4 A:@8?B0 #
# 4;O 53> 40;L=59H53> @0A?@>AB@0=5=8O #
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
r e q u i r e _ o n c e " . . / i n c l u d e s / s t a r t . p h p " ;
r e q u i r e _ o n c e " . . / i n c l u d e s / f u n c t i o n s . p h p " ;
r e q u i r e _ o n c e " . . / i n c l u d e s / h e a d e r . p h p " ;
i n c l u d e _ o n c e " . . / t h e m e s / " . $ c o n f i g [ ' t h e m e s ' ] . " / i n d e x . p h p " ;
e c h o ' < i m g s r c = " . . / i m a g e s / i m g / p a r t n e r s . g i f " a l t = " i m a g e " / > < b > X M L 0;840B>@< / b > < b r / > < b r / > ' ;
i f ( ! $ _ G E T [ ' s o u r c e ' ] )
{
s w i t c h ( $ _ G E T [ ' g o ' ] )
{
d e f a u l t :
p r i n t ' < d i v c l a s s = " w 2 " > X M L 0;840B>@< b r / > < / d i v >
< d i v c l a s s = " i n p u t " >
< f o r m a c t i o n = " ? " m e t h o d = " g e t " >
< d i v >
4@5A< b r / >
< i n p u t t y p e = " t e x t " n a m e = " s o u r c e " v a l u e = " h t t p : / / " / > < b r / >
< i n p u t t y p e = " s u b m i t " v a l u e = " @>25@8BL" / >
< / d i v >
< / f o r m >
< / d i v >
< d i v c l a s s = " b o r d e r " >
< a h r e f = " ? g o = f a q " > F A Q < / a > < b r / >
< / d i v > ' ;
b r e a k ;
c a s e ' f a q ' :
p r i n t ' < d i v >
- ! ?><>ILN 40==>3> A5@28A0 2K <>65B5 ?@>25@8BL A2>8 AB@0=8FK =0 A>>B25BAB285 X M L AB0=40@B0<. < b r / >
- W M L 8 x H T M L AB@0=8FK 1O70B5;L=> 4>;6=K A>>B25BAB2>20BL AB0=40@B0< X M L . H T M L =5 B0: B@51>20B5;5=, >4=0:> ;8H=8< B0:>5 A>>B25BAB285 =5 1C45B. < b r / >
< / d i v > ' ;
b r e a k ;
}
}
e l s e
{
$ s o u r c e = r a w u r l d e c o d e ( t r i m ( $ _ G E T [ ' s o u r c e ' ] ) ) ;
i f ( e r e g ( " ^ ( h t t p : \ / \ / ) + [ a - z A - Z _ 0 - 9 / . & = ? - ] + $ " , $ s o u r c e ) )
{
f u n c t i o n v a l i d a t o r ( $ c u r r e n t )
{
g l o b a l $ l n g ;
$ d a t a = @ f o p e n ( $ c u r r e n t , ' r ' ) ;
i f ( ! $ d a t a )
{ r e t u r n ' < d i v c l a s s = " r e d " > 5 C40;>AL ?@>25@8BL C:070==K9 04@5A< b r / > < / d i v > ' ; }
i n i _ s e t ( ' u s e r _ a g e n t ' , $ _ S E R V E R [ ' H T T P _ U S E R _ A G E N T ' ] ) ;
$ f l = f i l e _ g e t _ c o n t e n t s ( $ c u r r e n t ) ;
$ x m l _ p a r s e r = x m l _ p a r s e r _ c r e a t e ( ) ;
i f ( ! x m l _ p a r s e ( $ x m l _ p a r s e r , $ f l , f e o f ( $ d a t a ) ) )
{
$ e r r = x m l _ e r r o r _ s t r i n g ( x m l _ g e t _ e r r o r _ c o d e ( $ x m l _ p a r s e r ) ) ;
$ l i n e = x m l _ g e t _ c u r r e n t _ l i n e _ n u m b e r ( $ x m l _ p a r s e r ) ;
$ c o l u m n = x m l _ g e t _ c u r r e n t _ c o l u m n _ n u m b e r ( $ x m l _ p a r s e r ) ;
x m l _ p a r s e r _ f r e e ( $ x m l _ p a r s e r ) ;
f c l o s e ( $ d a t a ) ;
r e t u r n ' < d i v c l a s s = " r e d " > E r r o r [ L i n e ' . $ l i n e . ' , C o l u m n ' . $ c o l u m n . ' ] : ' . $ e r r . ' < b r / > < / d i v > ' . c o d e ( $ f l , $ l i n e ) ;
}
e l s e
{
x m l _ p a r s e r _ f r e e ( $ x m l _ p a r s e r ) ;
r e t u r n ' < d i v c l a s s = " r e d " > >:C<5=B !>>B25BAB2C5B X M L @028;0<< b r / > < / d i v > ' . c o d e ( $ f l , 0 ) ;
}
}
f u n c t i o n u r l _ h i g h l i g h t ( $ f l )
{ r e t u r n ' < c o d e > ' . n l 2 b r ( p r e g _ r e p l a c e ( " ~ ( & q u o t ; | & # 0 3 9 ; ) [ ^ < > ] * ( & q u o t ; | & # 0 3 9 ; ) ~ i U " , ' < s p a n s t y l e = " c o l o r : # D D 0 0 0 0 " > \ \ 0 < / s p a n > ' , p r e g _ r e p l a c e ( " ~ & l t ; ! - - . * - - & g t ; ~ i U " , ' < s p a n s t y l e = " c o l o r : # F F 8 0 0 0 " > \ \ 0 < / s p a n > ' , p r e g _ r e p l a c e ( " ~ ( & l t ; [ ^ \ s ! ] * \ s ) ( [ ^ < > ] * ) ( [ / ? ] ? & g t ; ) ~ i U " , ' \ \ 1 < s p a n s t y l e = " c o l o r : # 0 0 7 7 0 0 " > \ \ 2 < / s p a n > \ \ 3 ' , p r e g _ r e p l a c e ( " ~ & l t ; [ ^ < > ] * & g t ; ~ i U " , ' < s p a n s t y l e = " c o l o r : # 0 0 0 0 B B " > \ \ 0 < / s p a n > ' , h t m l s p e c i a l c h a r s ( $ f l , E N T _ Q U O T E S ) ) ) ) ) ) . ' < / c o d e > ' ; }
f u n c t i o n c o d e ( $ f l , $ l i n e )
{
i f ( s u b s t r _ c o u n t ( $ f l , " \ r " ) > 2 )
{ $ a r r = s p l i t ( " \ r " , u r l _ h i g h l i g h t ( s t r _ r e p l a c e ( " \ n " , n u l l , $ f l ) ) ) ; }
e l s e
{ $ a r r = s p l i t ( " \ n " , u r l _ h i g h l i g h t ( $ f l ) ) ; }
$ e n d = s i z e o f ( $ a r r ) ;
f o r ( $ i = 0 ; $ i < $ e n d ; $ i + + )
{
i f ( $ i = = ( $ l i n e - 1 ) )
{ $ p a g e . = ' < s p a n c l a s s = " f a i l _ c o d e " > & # 1 6 0 ; ' . ( $ i + 1 ) . ' & # 1 6 0 ; < / s p a n > ' . $ a r r [ $ i ] ; }
e l s e
{ $ p a g e . = ' < s p a n c l a s s = " t r u e _ c o d e " > ' . ( $ i + 1 ) . ' < / s p a n > ' . $ a r r [ $ i ] ; }
}
r e t u r n ' < d i v c l a s s = " c o d e " > ' . $ p a g e . ' < / d i v > ' ;
}
p r i n t v a l i d a t o r ( $ s o u r c e ) ;
}
e l s e
{ p r i n t ' < d i v c l a s s = " r e d " > 2545= =5 25@=K9 04@5A< b r / > < / d i v > ' ; }
}
e c h o ' < i m g s r c = " . . / i m a g e s / i m g / h o m e p a g e . g i f " a l t = " i m a g e " / > < a h r e f = " . . / i n d e x . p h p ? ' . S I D . ' " > 0 3;02=CN< / a > ' ;
i n c l u d e _ o n c e " . . / t h e m e s / " . $ c o n f i g [ ' t h e m e s ' ] . " / f o o t . p h p " ;
? >