#!/usr/bin/perl
use LWP::Simple;

$|=1;

@fileList=();
open (IN, "all_lzx.txt");
while (<IN>){
    $_ =~ s/\"//g;
    $_ =~ s/,//g; 
    push @fileList,$_;
}
close IN;

#$reqTypes = { 'Wrapper' => 'lzt=v1',
#	    };

#print getstore('http://localhost:8080/lps-3.2/docs/design/programs/laszlo_basics-$7.lzx?lzt=v1','foo.html');
#print getstore('http://localhost:8080/lps-3.2/demos/calendar/calendar.lzx?lzt=v1','foo.html');

    my $baseURL = 'http://localhost:8080/lps-3.2';

foreach $file (@fileList){
    chomp $file;
    $file =~ s/"//g;
    $file =~ s/,//g;
    # print '"'.$baseURL.$file.'"' ."\n";

    $filename = $file;
    $filename =~ s/\//_/g;
    $filename =~ s/\$/D/g;
    print localtime(time).' Storing: new_golden/'.$filename.'_lzt_v1 ... ';
    $returnCode = getstore($baseURL.$file.'?lzt=v1','new_golden/'.$filename.'_lzt_v1');

    if ($returnCode == 200 ){
      print "\033[0;32mPASS:\033[0;m Wrapper get of ".$file." completed \n"; 
    } else {
      print "\033[1;31mERROR:\033[0;m wrapper get of ".$file.' returned '.$returnCode."\n\n"; 
    }

    $returnCode = getstore($baseURL.$file.
	       '?lzt=swf&lzr=swf6','new_golden/'.$filename.'_lzt_swf6');

    if ($returnCode == 200 ){
      print "\033[0;32mPASS:\033[0;m swf6 get of ".$file." completed \n"; 
    } else {
      print "\033[1;31mERROR:\033[0;m swf6 get of ".$file.' returned '.$returnCode."\n\n"; 
    }

    $returnCode = getstore($baseURL.$file.
	       '?lzt=swf&lzr=swf7','new_golden/'.$filename.'_lzt_swf7');
    if ($returnCode == 200 ){
      print "\033[0;32mPASS:\033[0;m swf7 get of ".$file." completed \n"; 
    } else {
      print "\033[1;31mERROR:\033[0;m swf7 get of ".$file.' returned '.$returnCode."\n\n"; 
    }
}
# copyright 2006 Laszlo Systems INC use subject to license