' ."\n";
print ''. "\n";
print ''. "\n";
print '- P : Pornography or Obscenity
' ."\n";
print '- I : Illegal Acts
' ."\n";
print '- G : Graphic Violence
' ."\n";
print '- R : Racially or Ethnically Offensive Content
' ."\n";
print ' | '. "\n";
print ''. "\n";
print '' ."\n";
print ' | '. "\n";
print ''. "\n";
print '' . $AUTHOR .
'
'.
' ' .
'
' .
'to protect children'. "\n";
print ' | '. "\n";
print '
'. "\n";
print '' ."\n";
print '| '. "\n";
print $arm_cbox . 'PARENTS: If you're logging into ' . $interface_name . ' to flag videos, like me, then use my armed interface.' ."\n";
print ' | '. "\n";
print '
'. "\n";
print ''. "\n";
print ''. "\n";
if ( 1 )
{
print '' ."\n";
}
else
{
print '' ."\n";
} ## end if
if ( 1 )
{
print '' ."\n";
}
else
{
print '' ."\n";
} ## end if
print '
' ."\n";
print 'Tag:' ."\n";
print '' ."\n";
print ' | '. "\n";
print 'Refresh' ."\n";
print '
' ."\n";
print '' ."\n";
print ' | '. "\n";
print ''. "\n";
print '"Keep it FUN, CLEAN and REAL!"' ."\n";
print '
' ."\n";
print 'Please help to protect all children, by flagging all adult content as inappropriate material.' ."\n";
print ' | '. "\n";
print '
'. "\n";
print ''. "\n";
print '| '. "\n";
print 'First Page: ' ."\n";
print 'Pages: ' ."\n";
print ' | '. "\n";
print ''. "\n";
print 'Per Page: ' ."\n";
print ' | '. "\n";
print ''. "\n";
print 'Columns: ' ."\n";
print ' | '. "\n";
print '
'. "\n";
print ''. "\n";
print '| '. "\n";
print 'View results:' ."\n";
if ( $interface_action == $actionlist['vlbt'] && $sstr_value != '' )
{
$sstr_canon = preg_replace( '/\s+/', '_nbsp_', $sstr_value );
print '' . $sstr_value .
'' ."\n";
}
elseif ( $interface_action == $actionlist['vlbu'] )
{
#print shell_exec( 'do_something_here ' . $interface_name . ' 2>&1' );
} ## end if
if ( isset( $_GET{'cannon'} ) )
{
remove_directory( '/var/www/html/youtube/tag/tag_'.$_GET{'cannon'} );
} ## end if
list_tag_results( '/var/www/html/youtube/tag', 0, $sstr_value );
print ' | '. "\n";
print ''. "\n";
print 'Remove results:' ."\n";
if ( ( $interface_action == $actionlist['vlbt'] ) &&
( $submitted_value == 'Enter' ) &&
( $sstr_value != '' )
)
{
print shell_exec( 'umask 0000;/var/www/html/youtube/tag/tag.plx' .
' --apache' .
' --ml_tag=' . $sstr_canon . ' ' .
' --ml_vlbt_want=' . $vlbt_wnt .
' --ml_delay_sec=' . $vlbt_dly .
' --ml_first_page=' . $vlbt_1st .
' --ml_max_pages=' . $vlbt_max .
' --ml_per_page=' . $vlbt_per .
' --html_columns=' . $vlbt_col .
' --html_watch_size=' . $vlbt_siz .
$vlbt_flg .
' 2>&1'
);
}
elseif ( $interface_action == $actionlist['vlbu'] )
{
#print shell_exec( 'do_something_here ' . $interface_name . ' 2>&1' );
} ## end if
list_tag_results( '/var/www/html/youtube/tag', 1 );
print ' | '. "\n";
print '
'. "\n";
print ''. "\n";
print ''. "\n";
print 'Display method:' ."\n";
print '
' ."\n";
print $stdmethod_rbtn . 'STANDARD Display method: This will load slowly.' ."\n";
##print '
' ."\n";
##
##print $auto_play_rbtn . 'AUTO-PLAY Display method: This will load more slowly, and makes a mess of the audio.' ."\n";
print '
' ."\n";
print $thumbnail_rbtn . 'THUMBNAIL Display method: This will load quickly.' ."\n";
print ' | '. "\n";
print '
'. "\n";
print ''. "\n";
print ''. "\n";
print 'Display:' ."\n";
print '
' ."\n";
print $want_all_rbtn . 'ALL: This will display all videos returned.' ."\n";
print '
' ."\n";
print $want_fnd_rbtn . 'FOUND: This will display all videos found to match the tags you've entered.' ."\n";
print '
' ."\n";
print $want_nfd_rbtn . 'NOT_FOUND: This will display all videos not found to match the tags you've entered.' ."\n";
print ' | '. "\n";
print '
'. "\n";
print '' ."\n";
print '