|Az ako mi tribvashe takova nesto bih napravil nesto podbno....
|####################
|#!/bin/bash
|ls -almR / > /var/www/data/sometiems_is_better_to_use_win.asc
]- it is never better to use MS software :")), i ste stane mnogo golqm fail.. ste ima
]da go pretyrswa polowin chas..
on the fly..
#!/usr/bin/perl
use strict;
sub formatting {
my $str = shift;
$$str =~ s/\n/<br>/gs;
#tuka nqkakwo dopylnitelno formatirane ..
return $str
}
use CGI;
my $q = new CGI();
my $p = $q->param('q');
if ($p) {
my $result = qx{locate -r $p};
my $str = formating(\$result);
print $$str;
} else {
print qq{<form action=script.pl method=get>
<input type=text name=q>
<input type=submit value=Search>
</form>
}
}
raptor
============================================================================
A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora
To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
============================================================================
