#!/usr/bin/perl
use strict;
use warnings;



#charset below would be 1 and  in future 1 for bookmark and 0 for history item
my @charset =  ('1','0');
my @charset2 =('');
my @charset3 =('');
my @charset4 = (('A'..'Z'), ('a'..'z'));
my @charset5 = (('A'..'Z'), ('a'..'z'));
my @charset6 = ('1' .. '1000');
my @charset7 =('http://www.','https://www.');
my @charset8=('.com','.co','.in','.info','.org','.net','.biz','.us','.me','.mobi','.co.in','.firm.in','.gen.in','.ind.in','.net.in','.org.in','.tv','.ag','.am','.asia','.at','.be','.bz','.ca','.cc','.co.nz','.co.uk','.com.ag','.com.au','.com.br','.com.bz','.com.co','.com.es','.com.mx','.com.pe','.com.so','.com.tw','.cz','.de','.es','.eu','.fm','.fr','.gs','.idv.tw','.it','.jobs','.jp','.la','.me.uk','.ms','.mx','.net.ag','.net.au','.net.br','.net.bz','.net.co','.net.nz','.net.pe','.net.so','.nl','.nom.co','.nom.es','.nom.pe','.org.ag','.org.au','.org.es','.org.nz','.org.pe','.org.so','.org.tw','.org.uk','.pe','.se','.so','.tk','.tw','.ws','.xxx');
my @charset9 = ('":"');
my @charset40=('"');
my @charset41=(',');
my @charset42=('{"browserBookMarksData":[');
my @charset43=(']}');
my @charset51=('{');


my $i=0;
my $prefix ;
my $suffix ;
print "Enter the limit : ";
chomp(my $lim = <STDIN>);

		{
	$prefix .=$charset42[rand(@charset42) ];
	}
{
	$suffix .=$charset43[rand(@charset43) ];
	}
	
	open(FILE, ">>bookmarkmirror.json");
	print FILE   ("$prefix");

while ( $lim-- ) {
      my $bookMark;
	my $created;
	my $date;
	my $title;
	my $url;
	my $www;
	my $com;
	my $visits;
my $quotes;
my $comma;
my $start;
my $end;
my $curly ;
my $extra;

 {
        $bookMark .= $charset[ rand(@charset) ];
		
    }
	 {
        $created .= $charset2[ rand(@charset2) ];
		
    }
	
	  {
         $date .= $charset3[ rand(@charset3) ];
		
    }
	
	
	
 {
    $title .= join '', @charset4[map {int rand @charset4} (1..8)];
	}
	
	{
	$url .=join '', @charset5[map {int rand @charset5} (1..8)];
	}
	
	
	{
	$visits .=$charset6[rand(@charset6) ];
	}
	
	#if ($EmailType == '0'){
	#$m_emailLabel .="test";}
	#else {$m_emailLabel .="";}
	
	
	
			{
	$quotes .=$charset40[rand(@charset40) ];
	}
	
			{
	$comma .=$charset41[rand(@charset41) ];
	}
	
	
	
{
	$curly .=$charset51[rand(@charset51)];
	
}	

	
	{
	$www .=$charset7[rand(@charset7)];
	
}	

		
	{
	$com .=$charset8[rand(@charset8)];
	
}	

	{
	$extra .=$charset9[rand(@charset9)];
	
}	

	
   
   
   print FILE  ( "$curly"."\"bookMark\"\:"."$quotes"."$bookMark"."$quotes"."$comma","\"created\"\:"."$quotes".int(rand(10000000000000))."$quotes"."$comma","\"date\"\:"."$quotes".int(rand(10000000000000))."$quotes"."$comma","\"title"."\"\:\"$title\""."$comma","\"url"."$extra"."$www"."$url"."$com\""."$comma","\"visits"."\"\:\"$visits\"\}\ ". if ($lim != $i){"$comma"}); 
    if($lim == '1') {
        print FILE   (",");
	}
   $i++;
}

 print FILE   ("$suffix");
 

 
  close(FILE);

##</code><code>##

{"browserBookMarksData":[{"bookMark":"0","created":"5663146972656","date":"6965942382812","title":"QQjVYxgf","url":"https://www.ySLjEGzo.org","visits":"783"} ,,{"bookMark":"1","created":"3386840820312","date":"4520874023437","title":"GTHCiPLs","url":"http://www.cmBoOQmy.pe","visits":"946"} ,]}