<%doc>------------------------------------------------------------------- index.mas Genera la pagina que correspon al directori passat per parametre arguments: $dir - directori de les dades a mostrar ------------------------------------------------------------------- <& template.mas,top=>1 &> % foreach $element (@contingut) { % $tag = lc (substr ($element,3,3)); % $nomelement = substr ($element, 6); #elimino xxx(numero)yyy(tag) % if ($tag eq "img") { #mostro imatge
% } elsif ($tag eq "hh1") { #mostro titol H1 % open(FILE,$dir_real . $element); % $fitxer = ; % close(FILE);

<% $fitxer %>

% } elsif ($tag eq "hh2") { #mostro titol H2 % open(FILE,$dir_real . $element); % $fitxer = ; % close(FILE);

<% $fitxer %>

% } elsif ($tag eq "hh3") { #mostro titol H3 % open(FILE,$dir_real . $element); % $fitxer = ; % close(FILE);

<% $fitxer %>

% } elsif ($tag eq "lnk") { #Creo Link amb el contingut del fitxer % open(LNKFILE,$dir_real . $element); % $fitxer = ; % close(LNKFILE); ><% $nomelement %> % } elsif ($tag eq "nam") { % } elsif ($tag eq "htm") { <& $dir_www . $element &> % } elsif ($tag eq "txt") { % $tmpvar = $TXT2HTM . $dir_real.$element; % $error = qx/$tmpvar/; <% $error %> % } elsif ($tag eq "dwn") { ><% $nomelement %> % } elsif ($tag eq "ret") { % foreach $i (0 .. $nomelement) {
% } % } elsif ($tag eq "spc") { % foreach $i (0 .. $nomelement) {
% } % } elsif ($tag eq "hor") {
% } elsif ($tag eq "par") {

% } % } <%init> my @contingut; my $error; my $element; my $tag; my $dir_real = "/var/www/weblong/"; my $dir_www; my $tmpvar; my $nomelement; my $fitxer; my $i; my $TXT2HTM = "/var/www/weblong/txt2html.pl -l /var/www/weblong/txt2html.dict -e -m "; if (length($ARGS{dir}) == 0) { $dir_real .= "long/"; $dir_www = "long/"; } else { $dir_real .= $dir."/"; $dir_www = $dir."/"; } opendir (DIR,$dir_real); # agafo el contingut del directori que sigui fitxer i que el seu nom comenci per un numero @contingut = sort (grep { /^[0-9]/ && -f "$dir_real/$_"} readdir(DIR)); closedir (DIR); <%args> $dir => undef #directori de les dades. <& template.mas,bottom=>1 &>