' ."\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 shell_exec( 'umask 0000;touch /var/www/youtube/tag/tag_' . $sstr_canon );
}
elseif ( $interface_action == $actionlist['vlbu'] && $sstr_value != '' )
{
#print shell_exec( 'do_something_here ' . $interface_name . ' 2>&1' );
} ## end if
if ( isset( $_GET{'cannon'} ) )
{
rename( '/var/www/youtube/tag/tag_'.$_GET{'cannon'},
'/var/www/youtube/tag/tag_'.$_GET{'cannon'} . '.please_delete_me'
);
sleep( 10 ); ## the agent is sleeping 5
} ## end if
list_tag_results( '/var/www/youtube/tag', 0 );
print ' | '. "\n";
print ''. "\n";
print 'Remove results:' ."\n";
if ( ( $interface_action == $actionlist['vlbt'] ) &&
( $submitted_value == 'Enter' ) &&
( $sstr_value != '' )
)
{
print shell_exec( 'umask 0000;echo "' .
' --yt_mozilla' .
' --yt_canon_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 .
'" > /var/www/youtube/tag/tag.ctl'
);
}
elseif ( $interface_action == $actionlist['vlbu'] )
{
#print shell_exec( 'do_something_here ' . $interface_name . ' 2>&1' );
} ## end if
list_tag_results( '/var/www/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 '' . "\n";
print $want_fnt_rbtn . 'FOUND TAGGED: This will display all videos found with tags to match the tags you've entered.' ."\n";
print '
' ."\n";
##debug##print 'I\'m working on this Tag & Author matching, the problem is in WWW::YouTube::HTML::vlbt:
' . "\n";
print $want_nft_rbtn . 'NOT_FOUND TAGGED: This will display all videos not found with tags to match the tags you've entered.' ."\n";
print '
' ."\n";
print $want_fna_rbtn . 'FOUND AUTHOR: This will display all videos found with Authors to match the tags you've entered.' ."\n";
print '
' ."\n";
print $want_nfa_rbtn . 'NOT_FOUND AUTHOR: This will display all videos not found with Authors to match the tags you've entered.' ."\n";
print '' . "\n";
print ' | '. "\n";
print '
'. "\n";
print '' ."\n";
print '