#!/usr/bin/perl
#
# Code by macheads101 (c) 2009-2010
# Please do not steel this code
#
#
print "Enter YES or NO or the following\n";
print "\nUse The New Tab System [YES]: ";
$tabs = <STDIN>;
chomp $tabs;
print "\nNew Toolbar Including No Loading Bar [YES]: ";
$load = <STDIN>;
chomp $load;
print "\nNew URL Features [YES]: ";
$url = <STDIN>;
chomp $url;
print "\nCoverflow In Bookmarks [YES]: ";
$cf = <STDIN>;
chomp $cf;
print "\nGoogle suggestions [YES]: ";
$sug = <STDIN>;
chomp $sug;
system("defaults write com.apple.Safari DebugSafari4TabBarIsOnTop -bool $tabs");
system("defaults write com.apple.Safari DebugSafari4IncludeToolbarRedesign -bool $load; defaults write com.apple.Safari DebugSafari4LoadProgressStyle -bool $load");
system("defaults write com.apple.Safari DebugSafari4IncludeFancyURLCompletionList -bool $url");
system("defaults write com.apple.Safari DebugSafari4IncludeGoogleSuggest -bool $sug");
system("defaults write com.apple.Safari DebugSafari4IncludeFlowViewInBookmarksView -bool $cf");
print("Set settings, if your changes resulted in error, please contact macheads101@me.com\n\n");
