Colors

---------env vars---- ... PATH=/kunden/homepages/9/d349337426/htdocs/perl5/bin::/usr/local/sbin:/usr/sbin:/sbin:/usr/local/bin:/usr/bin:/bin PERL5LIB=/kunden/homepages/9/d349337426/htdocs/perl5/lib/perl5:/home/bob/perl5/lib/perl5 PERL_LOCAL_LIB_ROOT=/kunden/homepages/9/d349337426/htdocs/perl5:/home/bob/perl5 PERL_MB_OPT=--install_base "/kunden/homepages/9/d349337426/htdocs/perl5" PERL_MM_OPT=INSTALL_BASE=/kunden/homepages/9/d349337426/htdocs/perl5 PWD=/home/bob/1.scripts/pages XDG_SESSION_DESKTOP=ubuntu ---------bash driver---- #!/bin/bash # ... cd "perlmonks" cd "scripts" cd "cgi" echo "-------executing upload" | tee -a "$out" perl 2.sftp1.pl $1 | tee -a "$out" echo "-------cat uploaded file" | tee -a "$out" cat $1 | tee -a "$out" chmod 0755 $1 | tee -a "$out" echo "-------executing $1" | tee -a "$out" $1 | tee -a "$out" base_url="http://merrillpjensen.com/perlmonks/scripts/cgi" new_link= "$base_url/$1" echo "$new_link" | tee -a "$out" firefox $new_link & | tee -a "$out" exit $SUCCESS ##

##

remote dir is /perlmonks/scripts/cgi
.
..
1.color.cgi
-------cat uploaded file
#!/usr/bin/perl -wT
use 5.011;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);


# declare the colors hash:
my %colors = (	red => "#ff0000", green=> "#00ff00",
    blue => "#0000ff",	black => "#000000",
    white => "#ffffff" );

# print the html headers
print header;
print start_html("Colors");

foreach my $color (keys %colors) {
    print "$color\n";   
}
print end_html;

__END__ 

##

##


-------executing 1.color.cgi
Content-Type: text/html; charset=ISO-8859-1




Colors



black
white
green
blue
red